第4章VisualBasic基本语法.doc

第4章 Visual Basic基本语法 4.1 赋值语句 赋值语句的作用是将一个数据赋给一个变量，它的一般个格式如下： 变量名=表达式 在VB中，经常用到下述几种赋值语句。 1. 给变量赋值 可以采用如下方式为变量赋值： Dim V As Integer Dim Book As String*20 V=26 Book=”Visual Basic” 以上语句分别把数值26 赋给整型变量V，把字符串变量“Visual Basic”赋给字符串变量Book。26和“Visual Basic”都为常量，常量是表达式的最简单的形式。可以将一个表达式的值赋给一个变量，所以下面的赋值语句是合法的： Dim sum1 As Double Dim pricel As Single，pricel2 As Single Price1=198.6 Price2=1386.95*0.8 Sum1=price1*23+price2*500 2. 为对象的属性赋值 在VB中可以在程序中用赋值语句为对象的属性设置属性值。它的一般格式为： 对象名.属性名=属性值 例如，为命令按钮Command1的Caption属性设置值： Command1.Caption=“运算” 为文本框Text1的FontName属性赋值： Text1.FontName=“宋体” 4.2条件语句 在VB中可以进行条件测试，然后根据条件测试的结果执行不同的操作。VB提供下述几种格式的If语句。 1. 单条件If语句 If 条件 Then 语句 End If 如果条件为真，执行Then后面的语句，如果条件为假，不执行Then后面的语句而执行End If后面的语句。 例题3.4见程序【例题3.4求最大数】 2.块If结构 If 条件1 Then 语句块1 Else If 语句块2 Then 语句块2 Else If 语句块3 Then 语句块3 …… Else 语句块n End If 这种结构称为块If结构。执行块If结构：先测试条件1，如果条件1成立（True），执行Then后面的语句块1；如果条件1不成立（False），继续测试条件2，如果条件2成立，则执行条件2Then后面的语句块2….如此测试下去，如果所有条件都不成立，则执行Else后面的语句块n。 例题3.5见程序【例题3.5】 3.Select Case语句 SelectCase语句一般格式有下述3种： （1）最基本的select case语句 Select Case 变量 Case值1 语句1 Case 值2 语句2 … Case值n-1 语句n-1 [Case Else 语句n] End Select 上述语句可以用来实现多分支选择，Select Case中的变量称为Case变量，它可以是一个表达式，通常使用一个变量或常量，可以是数值型或是字符串型。在每一个Case子句中指定一个值，当Case变量的值符合某个Case 子句指定的值条件时，就执行个Case子句中的语句，然后跳到End Select，从End Select出口。如果变量的值与任何一个Case子句都不匹配，就执行Case Else子句后面的语句n，然后从End Select出口。，这里的语句可以是一个语句，也可以是一组语句。 例题3.6见【程序3.6】 4.3 循环语句 人们在使用计算机处理问题时，常常需要重复执行一组操作，这是可以使用循环语句。VB最常用的循环语句有下述2种： For循环 For循环语句的一般格式为： For循环变量=循环初始值To循环变量终值[Step增量] [循环体] [Exit For] Next变量 例题【程序3.7】 Private Sub Command1_Click() For c = 1 To 5 Step 1 Print c, 这是一个For循环语句 Next c End Sub 其中，For语句的作用是确定循环变量的值如何变化，也就是用来控制循环的次数。循环变量c的值在循环过程中是不断变化的，它的初始值被指定为1，终止值为5，每执行完一次循环体后增值（步长）1.如果变量的增量为1时，Step子句可以省略。循环体只有一个Print语句。当执行第一次循环时，c的值为1，第一次循环执行完毕，c的值增加1变为2，以后各次循环中c的值依次变为3、4、5.当c的值变为6时，超过了For语句中指定的循环变量终值，循环过程结束。运行以上程序，结果如下： 1 这是一个For循环语句 2这是一个For循环语句 3这是一个For循环语句 4这是一个For循环语句 5这是一个For循环语句 Exit For语句的作用是停止循环过程跳出循环，流程转到Next语句的下一语句。例如，可