1、第3章 VB.NET语言基础 3.1 编码规则 3.2 数据类型 3.3 变量 3.4 常量 3.5 预定义数据类型 3.6 类型转换 3.7 运算符 3.8 常用函数 3.9 表达式 3.10 语句 3.11 MsgBox函数 3.12 InputBox函数第3章 VB.NET语言基础 3.1.1 语句的书写语句的书写规则规则(1)将单行语句分成多行 空格后面跟下划线(2)将多个语句合并到同一行上 英文冒号：(3)Visual Basic代码不区分字母的大小写 3.1.2 注释注释 在VB.NET里，注释语句有两种，一种是用“Rem”关键字表示，还有一种是利用单引号“”表示。例如：Rem 这
2、是从窗口左边开始的注释 TextBox1.Text=Welcome!在文本框中写欢迎词 TextBox2.Text=Hello!:Rem 向文本框中写入问候语 注：注释语句不执行注：注释语句不执行3.1 编码规则 3.2.1 类型系统类型系统3.2 数据类型数据类型 3.2.2 值类型值类型 值类型的变量在堆栈中直接包含其数据，每个变量都有自己的数据副本(Byref 参数变量除外)，因此对一个变量的操作不影响另一个变量。值类型一般适合于存储少量数据，可以实现高效率处理。3.2.3 引用类型引用类型 引用类型的变量在堆栈中存储对数据(对象)的引用(地址)，数据(对象)存储在托管运行环境管理的堆中
3、。对于引用类型，两个变量可能引用同一个对象，因此对一个变量的操作可能影响另一个变量引用的对象。计算机在处理数据时，必须将其装入内存，并且需要为程序执行期间用于存放数据的内存单元命名，通过内存单元名来访问其中的数据。命了名的内存单元，就是变量或常量。变量需有一个名字(用来引用变量所包含的值)和数据类型(确定变量能够存储的数据的种类)，在内存中占有一定的存储单元，在该存储单元中存放变量的值，其值在程序运行期间可以改变。可以通过赋值运算改变变量的值。注意：变量名和变量的值是不同的两个概念。常量，是指在程序运行过程中始终保持不变的量。3.3 变量变量和常量和常量 3.3.1 标识符标识符 标识符的第一
4、个字符必须是英文字母或下划线，其后的字符可以是字母、下划线或数字。注意，VB.NET定义的关键字不能用作用户自定义的标识符(如Case)，但可以定义用中括号括起来的“转义名称”(如Case)。3.3.2 变量的命名规则变量的命名规则 目前，.NET Framework一般遵循两种命名约定：PascalCase和camelCase。PascalCase约定在多个单词组成的名称中，每个单词除第一个字母大写外，其余的字母均小写。camelCase约定在多个单词组成的名称中，第一个单词以小写字母开头，其余单词的第一个字母大写，其他的字母均小写。PascalCase命名约定一般用于自定义类型，如自定义类
5、名；而camelCase命名约定一般用于变量名。3.3.3 变量的声明和赋值变量的声明和赋值 在Visual Basic中，变量的声明一般有两种方法：显式声明和隐式声明。显式声明变量语句的语法格式为：Dim|Private|Static|Public 变量名 As 变量类型=初值 Option Explicit 例3.2 局部变量的声明和赋值示例。运行结果如图3-3所示。Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object,ByVal e As System.EventArgs)Handles MyBas
6、e.Load Dim var1 声明局部变量varl，默认为Object类型，未初始化 Dim var2%声明局部变量var2，指定“类型字符”%强制为整型 var2=2 赋值语句 Dim var3 As Integer 声明局部变量var3，指定为整型，默认初值为0 Dim var4 As Long=2 声明局部变量var4，指定为长整型，并赋初值 Dim var5=2 声明局部变量var5，并赋初值，编译器会执行局部类型推断为整型 Label1.Text=varl:&var1&Convert.ToString(var1.GetType)运行时产生警告：变量“var1”在赋值前被使用，可能会
7、在运行时导致null引用异常。Label1.Text=var2:&var2&Convert.ToString(var2.GetType)&vbCrLf Label1.Text&=var3:&var3&Convert.ToString(var3.GetType)&vbCrLf Label1.Text&=var4:&var4&Convert.ToString(var4.GetType)&vbCrLf Label1.Text&=var5:&var5&Convert.ToString(var5.GetType)&vbCrLf End Sub End Class 常量：指在程序运行过程中始终保持不变的量
8、。3.4.1 文本常量文本常量 代码中出现的以文本形式表示的常数即文本常量。3.4 常量常量 编译器通常将整数解释为十进制(基数为10)。可以用&H前缀将整数强制为十六进制(基数为16)，可以用&O前缀将整数强制为八进制(基数为8)。3.4.2 用户声明常量用户声明常量 用户定义的常量是用Const语句来声明的，其语法如下：Public|Private Const 常量名 As 数据类型=表达式 例3.3 常量的声明和赋值示例。Private Sub Form1_Load(ByVal sender As System.Object,ByVal e As System.EventArgs)Han
9、dles MyBase.Load Dim radius As Double=100声明变量radius(半径)并赋值为100 Dim amount As Double=10000声明变量amount(金额)并赋值为10000 Const PI As Double=3.14159声明常量Pl(圆周率)为3.14159 Const TAXRATE As Double=0.17声明常量TAXRATE(增值税率)为0.17 PI=3.14编译错误，不能修改常量 Dim perimeter As Dou ble=2*PI*radius计算圆周长 Dim area As Double=PI*radius*
10、radius计算圃面积 Dim tax As Double=amount*TAXRATE计算增值税 Label1.Text=”半径=”&radius&“;周长=”&perimeter&vbCrLf Label1.Text&=”半径=&radius&;面积=”&area&vbCrLf Label1.Text&=”金额=&amount&;税=&tax End Sub 注意：常量必须在声明时初始化；指定了其值后，不能再对其进行赋值修改。3.4.3 系统提供的常量系统提供的常量 Microsoft.VisualBasic命名空间包含常用的字符常量。这些常量可以在代码中的任何位置使用。Microsoft
11、.VisualBasic命名空间包含的常量一般以小写的vb开头，后跟有意义的符号。例如:vbCrLf(回车/换行组合符)、vbTab(Tab字符)。3.5.1 整型整型 3.5.2 浮点类型浮点类型 3.5.3 Decimal类型类型 3.5.4 Boolean类型类型 3.5.5字符类型字符类型 3.5.6 Object类型类型 3.5.7 日期类型日期类型 3.5.8 可以为可以为Nothing的的类型类型3.5 预定义数据类型预定义数据类型 整型整型 Visual Basic支持8个预定义整数类型，如表3-6所示，分别支持8位、16位、32位和64位整数值的有符号和无符号的形式。整型变量
12、的默认值为0。浮点类型浮点类型 Visual Basic支持2种浮点数据类型(Single和Double)，用于包含小数的计算，如表3-7所示。浮点类型变量的默认值为0。Decimal类型类型 Visual Basic支持高精度小数类型(Decimal)，如表3-8所示。Decimal数据类型一般用于需要使用大量数位，但不能容忍舍入误差的计算，如金融方面的计算。Decimal类型变量的默认值为0。例3.4 Decimal类型变量示例。运行结果如图3-4所示。Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Obje
13、ct,ByVal e As System.EventArgs)Handles MyBase.Load Dim bigDec1 As Decimal=9223372036854775807 No overflow Dim bigDec2 As Decimal=9223372036854775808 Overflow Dim bigDec3 As Decimal=9223372036854775808D No overflow Label1.Text=Format(bigDec1,c)&vbCrLf Label1.Text&=Format(bigDec3,c)End Sub End Class B
14、oolean类型类型 Visual Basic的Boolean数据类型用于逻辑运算，包含Boolean值True或False，如表3-9所示。Boolean类型变量的默认值为False。字符类型字符类型 Visual Basic提供了“字符数据类型”来处理可打印和可显示的字符。其中，Char存储单个字符，String存储任意数量的字符串。1.Char数据类型 Char数据类型保存一个无符号的16位(双字节)码位，如表3-10所示，其值的范围从0到65535，每个码位(或字符代码)表示单个Unicode字符。Char类型变量的默认值是码位为0的字符。String数据类型 Visual Basic
15、字符串处理使用String(System.String的别名类型表示零或更多个双字节(16位)Unicode字符组成的序列。必须将String文本放入英文半角双引号()内。如果必须在字符串中包含英文半角双引号字符，则需使用两个连续的英文半角双引号()，其中第一个双引号()相当于转义字符。例如：Dim str1 As String=He said,Hello!str1的值为 He said,Hello!System.String的常用方法和属性见教材表3-11。例3.5 字符串类型变量示例。运行结果如图3-5所示。Private Sub Form1_Load(ByVal sender As Sy
16、stem.Object,ByVal e As System.EventArgs)Handles MyBase.Load Dim str1 As String=Hello Dim str2 As String=World Dim str3 As String=str1&str2 字符串拼接，形成Hello World Dim char1 As Char=str3(1)访问str3的第2个字符(即e),index从0开始 Label1.Text=str3&vbCrLf Label1.Text&=char1&vbCrLf Dim m As String=Mary said Hello to me.D
17、im h As String=Hello 以下语句均可显示:Mary said Hello to me.注意：双引号需要两对双引号 Label1.Text&=m&vbCrLf Label1.Text&=Mary said&h&to me.&vbCrLf Label1.Text&=Mary said&h&to me.to me.双引号在to左侧 to me.End Sub例3.6 字符串使用示例：根据提示输入任意宇符串，统计字符串中元音宇母(a、e、i、o、u，不区分大小写)出现的次数和频率。Public Class Form1 Private Sub Button1_Click(ByVal s
18、ender As System.Object,ByVal e As System.EventArgs)Handles Button1.Click Dim countA%=0,countE%=0,countI%=0,countO%=0Dim countU%=0,countAll%=0 Dim str As String=TextBox1.Text str=str.ToUpper()Dim chars()As Char=str.ToCharArray()For Each ch As Char In chars countAll+=1 统计字母总数 Select Case ch Case Ac 统计
19、元膏A或a的出现次数 countA+=1 Case Ec 统计元音E或e的出现次数 countE+=1 Case Ic 统计元音I或i的出现次数 countI+=1 Case Oc 统计元音0或0的出现次数 countO+=1 Case Uc 统计元音U或u的出现次数 countU+=1 End Select Next ch Label2.Text=所有字母的总数为:&countAll&vbCrLf Label2.Text&=元音字母出现的次数和频率分别为:&vbCrLf Label2.Text&=A:&countA&个&Format(countA*1.0/countAll,Percent)&
20、vbCrLf Label2.Text&=E:&countE&个&Format(countE*1.0/countAll,Percent)&vbCrLf Label2.Text&=I:&countI&个&Format(countI*1.0/countAll,Percent)&vbCrLf Label2.Text&=O:&countO&个&Format(countO*1.0/countAll,Percent)&vbCrLf Label2.Text&=U:&countU&个&Format(countU*1.0/countAll,Percent)&vbCrLf End SubEnd Class Obje
21、ct类型 Object类型是Visual Basic编程语言的类层次结构的根类型。Object变量可以代表任何类型。日期类型 Date表示公元0001年1月1日午夜0:00:00到公元9999年12月31日晚上11:59:59之间的日期和时间。Date的默认值为0001年1月1日的0:00:00(午夜)。必须将Date文本括在“#”符号内。必须以M/d/yyyy格式指定日期值。例如:Dim dt1 As Date=#10/1/2013 8:30:52 PM#2013/10/1 20:30:52 Dim dt2 As DateTime=New DateTime(2013,9,18)2013/9/
22、18 Dim dt3 As DateTime=New Date(2013,7,18,18,30,15)2013/7/18 18:30:15 Dim dt4 As DateTime=DateTime.Now 当前日期和时间 Dim dt5 As Date=Date.Today 当前日期 3.6.1 隐式转换和显示转换隐式转换和显示转换 Dim intI As Integer Dim doubleD As Double intI=225 doubleD=intI 从Integer到 Double的隐式转换(如果Option Strict On)3.6.2 类型转换类型转换函数函数 参见教材49页，
23、表3-14 类型转换函数3.6 类型类型转换转换 例3.7 类型转换示例。Private Sub Form1_Load(ByVal sender As System.Object,ByVal e As System.EventArgs)Handles MyBase.Load Dim sbyte1 As SByte=123 隐式类型转换 Integer到SByte Dim sbyte2 As SByte=CSByte(123)显式类型转换Integer 到SByte Dim byte1 As Byte=123 隐式类型转换Integer 到 Byte Dim byte2 As Byte=CByt
24、e(123)显式类型转换Integer 到 Byte Dim short1 As Short=123 隐式类型转换 Integer 到 Short Dim short2 As Short=123S 使用后缀s初始化Short Dim short3 As Short=CShort(123)显式类型转换Integer到Short Dim ushort1 As UShort=123 隐式类型转换Integer到UShort Dim ushort2 As UShort=123US 使用后缀US初始化UShort Dim ushort3 As UShort=CUShort(123)显式类型转换integ
25、er剑UShort Dim int1 As Integer=123 123默认为Integer类型 Dim int2 As Integer=123I 使用后缀I初始化Integer Dim int3 As Integer=123 123默认为Integer类型 Dim uint1 As UInteger=123 隐式类型转换Integer到Ulnteger Dim uint2 As UInteger=123UI 使用后缀UI初始化Ulnteger Dim uint3 As UInteger=CUInt(123)显式类型转换Integer 到 Ulnteger Dim long1 As Long
26、=123 隐式类型转换 Integer圭ULong Dim long2 As Long=123L 使用后缀L初始化long Dim long3 As Long=CLng(123)显式类型转换Integer到Long End Sub Visual Basic运算符(Operator)是术语或符号，用于在表达式中对一个或多个称为操作数的进行计算并返回结果值。接收一个操作数的运算符被称作一元运算符，如New。接收两个操作数的运算符被称作二元运算符，如算术运算符+、-、*、/。当表达式包含多个运算符时，运算符的优先级控制各运算符的计算顺序。算术运算符、赋值运算符、比较运算符、串联运算符、逻辑/按位运算
27、符、移位运算符等。3.7 运算符运算符 算术运算符3.7.1 算术运算符算术运算符例3.8 算术运算符：幂、一元+、一元-、二元+、二元-、*、/、Mod等示例。运行结果参见图3-8所示。Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object,ByVal e As System.EventArgs)Handles MyBase.Load 幂运算 Dim d1,d2,d3,d4,d5,d6,d7,d8 As Double d1=2 2 4(2的平方)d2=3 3 3 19683(先求3的立方，再对得到的值求立
28、方)d3=(-5)3 -125(亏的立方)d4=(-5)4 625(-击的四次方)d5=-5 4 -625(-(5的四次方)d6=8 (1.0/3.0)2(8的立方根)d7=8 (-1.0/3.0)0.5(1.0除以8的立方很)d8=8 -1.0/3.0 0.0416666666666667(8的-1次方，即0.125)除以3.0)Label1.Text=d1&;:Label1.Text&=d2&;:Label1.Text&=d3&;:Label1.Text&=d4&vbCrLf Label1.Text&=d5&;:Label1.Text&=d6&;:Label1.Text&=d7&;:Lab
29、el1.Text&=d8&vbCrLf +Dim X As Single=5.8 Dim i As Integer=5,j As Integer=-10 Label1.Text&=i=&i&,+i=&+i&,+j=&+j&vbCrLf 一元+Label1.Text&=i+5=&i+5&,i+5=&i+0.5&vbCrLf 加法 Label1.Text&=x=&X&,x+8=&x+8&vbCrLf String隐式转换为Double Label1.Text&=8+8=&8+8&vbCrLf 字符串拼接 -i=5 Label1.Text&=i=&i&,-i=&-i&,i-1=&i-1&,i-0.5
30、=&i-0.5&vbCrLf *Label1.Text&=i*8=&i*8&,-i*0.8=&-i*0.8&vbCrLf /(浮点除法。请注意，即使两个操作数都是整数常数，结果也始终为浮点类型(Double)d1=10/14 2.5 d2=10/3 3.333333 Label1.Text&=d1&;:Label1.Text&=d2&;&vbCrLf (整数除法)Dim i1,i2,i3,i4 As Integer i1=i1 4 2 i2=9 3 3 i3=100 3 33 i4=67 -3 -22 Label1.Text&=i1&;:Label1.Text&=i2&;:Label1.Tex
31、t&=i3&;:Label1.Text&=i4&vbCrLf Mod(取模)d1=10 Mod 5 0 d2=10 Mod 3 1 d3=12 Mod 4.3 3.4 d4=12.6 Mod 5 2.6 d5=47.9 Mod 9.35 1.15 Label1.Text&=d1&;:Label1.Text&=d2&;:Label1.Text&=d3&;Label1.Text&=d4&;:Label1.Text&=d5 End SubEnd Class 3.7.2 关系关系运算符运算符 模式匹配(String Like pattern)为字符串比较提供了一种多功能工具。模式匹配功能将String
32、中的每个字符与特定字符、通配符字符、字符列表或某个字符范围进行匹配。表3-17显示了pattern中允许的字符和这些字符的匹配项。逻辑逻辑/按位运算符按位运算符 逻辑/按位运算符除逻辑非(Not)是一元运算符，其余均为二元运算符，用于将Boolean操作数进行逻辑运算或者将数值操作数按位运算。3.7.4 赋值运算符赋值运算符 赋值运算符(=)将其右边的值赋给其左边的变量或属性中。等号(=)左边的元素可以是简单的标量变量，也可以是属性或数组元素。1.简单赋值语句 简单赋值语句形式如下：变量名=表达式 2.复合赋值语句例3.9 赋值运算符=、=、+=、-=、*=、/=、=、&=、=等示例。运行结果
33、如图3-9所示。Public Class Form1图3-9 赋值运算符示例 Private Sub Form1_Load(ByVal sender As System.Object,ByVal e As System.EventArgs)Handles MyBase.Load 幂赋值运算符 Dim a As Integer=5 a=3 Label1.Text=a&vbCrLf 加法赋值运算符 a=5 a+=6 Label1.Text&=a&vbCrLf 字符串拼接赋值运算符 Dim s As String=Hello s&=world.Label1.Text&=s&vbCrLf 减法赋值运算
34、符 a=5 a-=6 Label1.Text&=a&vbCrLf 乘法赋值运算符 a=5 Dim i As Integer=10 a*=i+6 Label1.Text&=a&vbCrLf 浮点除法赋值运算符 Dim d As Double=5 d/=i-6 Label1.Text&=d&vbCrLf 整数除法赋值运算符 d=5 d=i-6 Label1.Text&=d&vbCrLf 左移赋值运算符 a=1000 a=4 Label1.Text&=a&vbCrLf End SubEnd Class 字符串运算符 字符串运算符可将多个字符串连接为一个字符串。Visual Basic提供两个字符串运
35、算符：“+”和“&”。两个运算符的区别？例如：计算机+程序设计结果为计算机程序设计 123+123结果为246 123+Nothing+123 结果为123123 123+2.5 结果为125.5 abc+123 编译错误从字符串abc到类型Double的转换无效 abc&123 结果为abc123 123&123+100 结果为123223 移位运算符 运算符优先级 当具有相同优先级的运算符(如乘法和除法)在表达式中一起出现时，编译器将按每个运算符出现的顺序从左至右进行计算。例如，x*y/z计算顺序为(x*y)/z。优先级和结合性都可以用括号控制。例如，2+3*2的计算结果为2+(3*2)=
36、8;而(2+3)*2的计算结果为10。再如：Dim b As Boolean=16+2*5=7*8/2 Or XYZ 18/2)相当于：Dim b As Boolean=(16+(2*5)=(7*8/2)Or(XYZ xyz)And(Not(10-6)(18/2)结果为：True 1.Math类和数学函数 Math类为三角函数、对数函数和其他通用数学函数提供常数和静态方法(函数)。该类属于System命名空间。Math类是一个密封类，有两个公共字段和若干静态方法。若要不受限制地使用这些函数，可以在源代码顶端添加如下代码，将System.Math命名空间导入项目：Imports.System.M
37、ath3.8 常用函数常用函数 2.Random类和随机函数 Random类提供了产生伪随机数的方法。可以使用如下代码声明一个随机对象myRandom。Dim myRandom As Random=New Random()VB.NET保留了早期版本中利用Rnd函数和Randomize语句生成随机数的方法。Rnd(x)函数返回介于0和1之间的双精度随机数。参数x为随机数生成时的种子。当x0或省去参数时，得到序列中的下一个随机数；当x=0时，返回最近生成的随机数。默认的情况下，每次运行一个应用程序，Visual Basic都提供相同的种子，为了每次运行应用程序时产生不同的随机数，可在调用Rnd之前
38、，先使用Randomize(number)语句初始化随机数生成器，该生成器给number（整型量）一个新的种子值，若省略number，则只有根据系统计时器得到的种子值。例3.10 Rnd(x)函数的使用。Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object,ByVal e As System.EventArgs)Handles MyBase.Load Dim i%Randomize()Label1.Text=For i=1 To 5 Label1.Text&=Int(10-3+1)*Rnd()+3)&vb
39、CrLf 生成3到10之间的随机整数值 Next i End Sub End Class 3.8.2 字符串函数字符串函数 Visual Basic字符串处理一般采用System.String类提供的成员函数，也可以使用VB6.0等早期版本中提供的函数，如表3-25所示，其中，s1和s2为字符串变量，假设s1的值为AbcdEF，s2的值为12345(表示空格)。日期函数日期函数 Visual Basic日期时间处理一般采用System.DateTime类提供的成员函数，也可以使用早期版本中提供的函数。这些日期函数主要包括用于提取计算机系统的当前时间和日期的函数Now；还有Year、Month、
40、Day、Hour、Minute、Second、Weekday等函数分别返回年份、月、日、小时、分、秒、星期几等信息。例如：Dim MyDate,MyYear,MyWeekDay,MyHour,Today MyDate=#9/1/2013 9:10:15 PM#指定一日期 MyYear=Year(MyDate)MyYear的值为2013 MyWeekDay=Weekday(MyDate)MyWeekDay的值为1，2013年9月1日是星期日 MyHour=Hour(MyDate)MyHour的值为9 Today=Now 将系统当前的日期与时间赋给变量Today 转换函数转换函数 Visual B
41、asic数据类型的转换可以采用本章3.6.2节介绍的各种方法，也可以使用早期版本中提供的转换函数，以实现数值与非数值类型转换、数制转换、大小写字母转换等。所谓表达式就是指一个或多个运算的某种组合。Visual Basic中的表达式，就是由VB语言中的变量、常量、运算符、函数和圆括号按照一定的规则组合起来的式子。表达式可用来执行运算、操作字符或测试数据。表达式通过运算后有一个结果，运算结果的类型由参加运算的数据和运算符共同决定。3.9 表达式表达式 1.算术表达式 表达式中运算量是数值型量（整型、长整型、单精度型、双精度型、货币型），使用的运算符为算术运算符，表达式的运算结果也是数值型量的表达式
42、称为算术表达式。例如：(3+5)*5 Mod 2-2*3*Sin(x)2 2.关系表达式 关系表达式是由关系运算符组成的表达式，表示两操作数之间的关系。关系表达式中两个操作数必须是相同类型，运算结果为逻辑真（True或-1）或假（False或0）。3.逻辑表达式 由逻辑运算符连结起来的表达式称为逻辑表达式，表达式中的操作数只能是由表达式构成的逻辑值，其运算结果也是一逻辑值。例如，将“3x5”写成Visual Basic表达式是：(x=3)And(x=bAND b=a结果为:&CStr(c=b And b=a)&vbCrLf Label1.Text&=(b2-4ac)的平方根为:&Format(
43、Math.Sqrt(b 2-4*a*c),0.00)&vbCrLf Dim m,n,p As Boolean m=False:n=True:p=True Label1.Text&=m=&m&，0=&0&，p=&p&vbCrLf Label1.Text&=m Or n Xor p=&CStr(m Or n Xor p)&vbCrLf Label1.Text&=Not m Or n Xor p=&CStr(Not m Or n Xor p)End Sub End Class 语句是Visual Basic程序的过程构造块，用于声明变量和常量、创建对象、变量赋值、调用方法、控制分支、创建循环等。VB
44、程序常见的一些语句如下：声明语句：用于声明局部变量和常量。表达式语句：用于对表达式求值。可用作语句的表达式包括方法调用、使用New运算符的对象分配、使用“=”和复合赋值运算符的赋值。选择语句：用于根据表达式的值从若干个给定的语句中选择一个来执行。这一组语句有 If.Then.Else和Select Case语句。迭代语句：用于重复执行嵌入语句。这一组语句有While、Do、For和For Each语句。跳转语句：用于转移控制。这一组语句有Continue、Goto、Return、Exit、End和Stop语句等。3.10 语句语句 例3.11 Visual Basic语句示例:声明语句、赋值语
45、句、循环语句、调用静态方法等。Imports System.Math Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object,ByVal e As System.EventArgs)Handles Button1.Click Const PI As Double=3.14 声明语句 声明常量 Dim a As Double,i%声明语句 声明变量 Label1.Text=赋值语句 For i=1 To 5 控制语句 循环语句 a=PI*i*i 赋值语句 Label1.Text&=半径=&i&面积=&a
46、&vbCrLf 复合赋值语句 Next i End Sub End Class MsgBox函数在执行时屏幕上会出现一个消息框，用以向用户提示信息，并可通过用户在对话框上的选择接收用户所做的响应，作为程序继续执行的依据。MsgBox函数的语法格式为：MsgBox(msg,buttons,title)其中，第一个参数msg是一个字符串，表示提示的内容，第三个参数title表示消息框的标题，第二个参数由3个数值相加之和组成，这3个数值分别代表按钮的类型、显示图标的种类和哪一个按钮是缺省的“活动按钮”。3.11 MsgBox函数函数 例3.12 使用MsgBox函数弹出消息对话框。Private S
47、ub Form1_Click1(ByVal sender As Object,ByVal e As System.EventArgs)Handles Me.Click Dim Info1$,Info2$,Answer$Info1=请点击下面的一个按钮 Info2=这是一个消息对话框 Answer=MsgBox(Info1,291,Info2)275=3+32+256Label1.Text=Answer End Sub 注：用MsgBox函数显示的提示信息最多不超过1024个字符，所显示的信息自动换行，并能自动调整信息框得大小。如果由于格式要求需要换行，则须增加回车换行符（Chr$(13)+Ch
48、r$(10)或vbCrLf）。Visual Basic提供的InputBox函数可以产生一个输入对话框，作为输入数据的界面，等待用户在其中的文本输入区内输入信息，并返回所输入的内容。InputBox函数的语法格式为：InputBox(prompt,title,default,xpos,ypos)3.12 InputBox函数函数 其中，第一个参数prompt是一个长度不超过1024个字符的字符串，它是显示在对话框内的提示信息。第二个参数title也是一个字符串，它作为对话框的标题。第三个参数default也是一个字符串，作为文本输入区中的缺省值，如果用户认可它，则可用它作为默认输入值；如果用户
49、不想用这个字符串作为输入值，则可直接改变它；如果省略该参数，则对话框的输入文本区为空白，等待用户键入信息。第四、五个参数xpos和ypos是数值，它们分别表示对话框的左上角距窗体的左边界和上边界。执行InputBox函数所产生的输入对话框有两个按钮：“确定”和“取消”。用户在文本输入区输入数据后，单击“确定”按钮（或按回车键）表示确认，函数将以字符串的形式返回用户在输入区中输入的数据；如果用户单击“取消”按钮（或按Esc键），则使当前的输入无效，函数将返回一个空字符串。例3.13 使用InputBox函数输入信息。Private Sub Form1_Click1(ByVal sender As
50、 Object,ByVal e As System.EventArgs)Handles Me.Click Dim Info1$,Info3$,Info$,title$,username$Info1=请输入用户名 Info3=须注意大小写 Info=Info1+vbCrLf+Info3 title=用户信息输入框 username=InputBox(Info,title,Jack)Label1.Text=username End Sub习习 题题 31.下列哪些可作为Visual Basic.NET的变量名，哪些不可以？(1)4*Delta(2)Alpha(3)4ABC(4)AB(5)Strin
