第3章vbnet语言基础

第3章vbnet语言基础内容摘要：

显式转换为值类型。 拆箱也包括两个步骤：首先检查对象实例是否为给定值类型的一个装了箱的值，然后将该值从实例中复制出来。 下面的例子完成装箱和拆箱的操作： Dim a As Integer Dim b As Integer = 1000 Dim x As Object x = b 39。 装箱 a =CInt(x) 39。 拆箱 在程序中，通常要处理或存储数据，这些数据就是用变量来存储的。 变量也就是值可以改变的量。 变量具有名称，可以通过名称来引用变量。 同时变量还具有数据类型，用于确定哪些值可以存储在该变量中。 变量声明语法： Dim 变量名 1，变量名 2， „ As 数据类型 例如： Dim aa As Double 39。 声明一个 Double型变量 aa Dim bb , cc ,dd As String 39。 声明多个 String变量 可以在变量声明之后，给变量赋值；也可以在声明变量的同时给变量赋值。 例如： Dim dDate As Date 39。 先声明一个变量 dDate = Today( ) 39。 再给变量赋值 Dim dTime As Date = 10/12/2020 39。 变量声明和赋值同时进行 Dim sStr As String = This is a test 运算符与表达式 用运算符将操作数连接起来，形成符合 为表达式。 在表达式中比较重要的是各种运算符。 ：一元运算符、算术运算符、移位运算符、关系和类型测试运算符、逻辑运算符、条件逻辑运算符、条件运算符和赋值运算符。 算术运算符用于各种算术运算，它包括 +（加）、 （减）、 *（乘）、/（除）、 \（整除，除的结果是整数）、 ^（乘方）和 Mod（余数）。 ^只适用于 Double类型； \只适用于整数类型；其它算术运算符适用于整数和浮点类型。 另外， +还可用于连接两个字符串。 例如： Dim result , x, y ,z As Double result = 21 \ 2 x = 20 Mod 2 y = Mod 3 z = ^ 2 比较运算符 ==（相等）、 （不想等）、 （小于）、 （大于）、 =（小于等于）、 =（大于等于）和 is（对象比较）运算符称为比较运算符。 比较运算符比较两个表达式，并返回表示比较结果的 Boolean 值。 前六个比较运算符可用于比较数值和字符串。 Is 运算符用于确定两个对象变量是否引用某个对象的同一实例。 动手做： [例 34]()使用比较运算符 %@page LANGUAGE = vb% HTML HEAD titleTest Array/title /HEAD Script Language=VB RunAt=Server Enum Range As Long Max = 2147483648 Min = 255 End Enum /Script BODY TABLE width=100% bordercolor=blue border=1 TR height=25 bgcolor=blue TD align=centerfont color=white程序输出结果/font/TD/TR TR bgcolor=whiteTD % Dim a As Range = Dim b As Range = Dim m As String = Test Dim n As String = Equal (a = b: amp。 (a=b) amp。 br) (m n: amp。 (m n) amp。 br) (3 5: amp。 (3 5) amp。 br) % /TD /TR /TABLE /BODY /HTML 程序输出如图 34所示： 图 34 比较运算符结果 逻辑运算符用于比较 Boolean 表达式，并返回 Boolean 结果。 它包括 And（与）、 Or（或）、 Not （非）、 Xor（异或）、 AndAlso 和 OrElse。 当两个操作数均为 true时， And的结果才为 true，否则为 false；当两个操作数均为 false时， Or的结果才为 false，否则为 true；如果操作数为 True， Not的结果为 False，如果操作数为 False， Not的结果为 True；如果两个操作数均为True或 False， Xor的结果为 False，否则为 True。 例如： Dim a As Integer = 30 Dim b As String = Yes Dim c As Boolean a 20 And b Yes 39。 结果为 False，因为 a20成立，而 bYes不成立 AndElse和 OrElse称为“短路”逻辑运算符。 AndElse与 And类似，但又有区别，如果 AndAlso 表达式中的第一个表达式计算为 False，则不计算第二个表达式，并且为该 AndAlso 表达式返回 False。 同理， OrElse与 Or类似，区别是如果 OrElse 表达式中的第一个表达式计算为 True，则不计算第二个表达式，并且为该 OrElse 表达式返回 True。 例如： Dim a As Integer = 30 Dim b As String = Yes Dim c As Boolean b Yes AndElse a 20 39。 因为 bYes结果为 False，则不需计算 a20的值，而直接给出表达式的结果为 False 赋值运算符 赋值运算符为变量、属性、事件或索引器元素赋新值，它包括： =、 +=、 =、*=、 /=、 \=、 amp。 =、 ^=运算符。 例如： Dim a As Integer = 0 39。 用赋值运算符“ =” 给变量 a赋值 0 a += 20 39。 相当于 a = a + 20 串联运算符 串联运算符用于连接字符串。 它包括 + 和 amp。 例如： Dim str1 As String = Tian Dim str2 As String = Tan str1 + str2 39。 结果为“ TianTan” str1 amp。 str2 39。 结果为“ TianTan” 程序控制语句 程序一般包括三种基本结构 —— 顺序结构、选择结构和循环结构，用于控制程序流程按照我们的要求进行。 这些基本结构通过使用选择语句和循环语句来实现。 选择语句 当程序出现多条执行路线时，使用选择语句。 ，即If„Then 语句和 Select„Case 语句。 „Then 语句 在程序中，可使用 if„Then 语句来有条件地执行某一语句序列。 语法形式为： If 条件表达式 Then 嵌入语句 39。 嵌入语句只能有一条，且必须与 If在同一行上 或 If 条件表达式 Then 嵌入语句 39。 嵌入语句可以有多条 End If 或 If 条件表达式 Then 嵌入语句 1 Else 嵌入语句 2 End If 如果布尔表达式的值为 True，则执行 If后的嵌入语句，否则程序继续执行或执行 Else后的嵌入语句。 动手做： [例 35]()比较两个数的大小并输出较大的数 %@page LANGUAGE = vb% HTML HEAD titleTest If/title /HEAD BODY TABLE width=100% bordercolor=blue border=1 TR height=25 bgcolor=blue TD align=centerfont color=white程序输出结果 /font/TD/TR TR bgcolor=whiteTD % Dim max As Integer Dim a As Integer = 20 Dim b As Integer = 30 If a b Then max = a Else max = b End If (The max of a and b is amp。 max) % /TD /TR /TABLE /BODY /HTML 程序输出如图 35所示： 图 35 If语句测试结果 if语句可以嵌套，内嵌的 if语句既可以嵌套在 if子句中，也可以嵌套在 else子句中。 „Case 语句 Select„Case 语句是一个多分支选择语句，当表达式取不同值时执行不同的动作。 语法形式为： Select 表达式 Case常量表达式： 嵌入语句 „ Case Else 嵌入语句 End Select Select表达式的类型为某个基本数据类型（ Boolean、 Byte、 Char、Date、 Double、 Decimal、 Integer、 Long、 Object、 Short、 Single 和 String）。 每个 case分支中的常量表达式表示 Select表达式的匹配值。 执行 Select„Case 语句时，首先计算 Select表达式的值，然后与case常量表达式的值进行比较，执行第一个与之匹配的 case分支中的嵌入语句。 如果没有 case常量表达式的值与之匹配，则执行 Case Else分支下的嵌入语句，如果不存在 Case Else语句，则跳过 Select„„Case 语句体，什么也不做。 Case Else分支可有可无，但每个 Select„Case 语句最多只能有一个 Case Else分支。 %@page LANGUAGE = vb% HTML HEAD titleTest Select/title /HEAD BODY TABLE width=100% bordercolor=blue border=1 TR height=25 bgcolor=blue TD align=centerfont color=white程序输出结果 /font/TD/TR TR bgcolor=whiteTD % Dim days As Integer = 0 Dim month As Integer = 3 Select month case 1,3,5,7,8,10,12 days = 31 case 2: days = 28 case 4, 6,9,11 days = 30 Case Else days = 0 End Select (This month has amp。 days amp。 days ) % /TD /TR /TABLE /BODY /HTML 程序输出如图 36所示： 图 36 Select语句测试结果 循环语句 当重复执行一行或多行代码时，使用循环语句。 ，它们分别是 While、 Do„Loop 、 For„Next 和 For Each„Next。 While语句 While语句按不同条件执行一个嵌入语句零次或多次，用于循环次数不确定的场合。 它的语法形式为： While 条件表达式 嵌入语句 它判断条件表达式的值，如果为 True，则重复执行嵌入语句，直到布尔表达式的值为 False，则结束 While语句。 动手做： [例 37]()使用 whil。