第四章控制结构

第四章控制结构内容摘要：

f m a r k = 70 T he n P r i nt 中 E l s e I f m a r k = 80 T he n P r i nt 良 E l s e I f m a r k = 90 T he n P r i nt 优 E l s e P r i nt 不及格 E nd I f 返回 72  Select Case 语句 Select Case 语句是多分支结构的又一种表示形式，又称情况语句。 语句形式： Select Case 变量或表达式 Case 表达式列表 1 语句块 1 Case 表达式列表 2 语句块 2 …… [Case Else 语句块 n＋ 1] End Select F 表达式列表 1 语句块 1 表达式列表 2 语句块 2 表达式列表 n 语句块 n … . . 语句块 n＋ 1 T T T Select语句流程示意图 F F … . . Private Sub Command1_Click() Dim code As String code = Trim() Select Case code Case + Text4 .Text= Val(Text1) + Val(Text3) Case = Val(Text1) Val(Text3) Case * = Val(Text1) * Val(Text3 Case / IF Val(Text3) = 0 Then MsgBox (除数不能为 0，请重新输入 ) Text3 = “ = Else Text4 = Val(Text1) / Val(Text3 End IF End Select End Sub Private Sub Command2_Click() End End Sub Private Sub Command3_Click() Text1 = Text2 = Text3 = Text4 = End Sub 例 47编写一个简便四则运算器，应用 Select Case 判断运算符。 运行界面如图 【 程序代码 】 表达式列表 ：与 变量或表达式 同类型的下面四种形式之一： 表达式 例 : case A 一组枚举表达式 (用逗号分隔 ) case 2,4,6,8 表达式 1 To 表达式 2 case 60 To 100 Is 关系运算符表达式 case Is 60 语句的嵌套 语句形式： IF 表达式 1 Then 语句块１ IF 表达式 2 Then 语句块２ … End IF 语句块３ … End IF 例 46 输入 3个整数，按从小到大的顺序输出。 程序运行界面如图 程序代码如下： Private Sub Command1_Click() Dim x%, y%, z%, t% x = Val(InputBox(请输入 1个整数 )) y = Val(InputBox(请输入 1个整数 )) z = Val(InputBox(请输入 1个整数 )) Print 您输入三个的数是：。 x。 Spc(1)。 y。 Spc(1)。 z IF x y Then ‘ 如果 x y则 x,y交换 t = x: x = y: y = t End IF IF y z Then t = y: y = z: z = t IF x y Then t = x: x = y: y = t End IF End IF Print 从小到大的顺序是：。 x。 Spc(1)。 y。 Spc(1)。 z End Sub Private Sub Command2_Click() End End Sub 例 27在文本框中输入 11000之间的数字，如果输入非数值，或数值超出范围，给予提示，并重新输入。 运行效果及程序代码如下： Private Sub Form_Load() = = End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then 39。 回车键的 ASCII码值为 13 If IsNumeric() Then 39。 判断是否是数值 x = Val() If x 0 Or x 1000 Then = 39。 焦点回到文本框 = 数值超出范围 ,再输入 ! 39。 文本框中显示提示信息 Else = 输入正确。 End If Else = 请输入数字 ! End If End If End Sub 条件函数 VB中提供的条件函数： IIF（）函数和 Choose（）函数，适用于简单的判断场合。 前者代替 IF语句，后者可代替 Select Case语句， IIF（）函数 函数形式： IFF（表达式，条件为 True时的值，条件为 False时的值） 例如：求 x， y中大的数，放入变量 T中，可以应用语句 T=IFF( xy , x ,y) Choose ()函数 函数形式： Choose（整型表达式，选项列表） 其中整型表达式的值决定函数返回选项列表中的哪个值。 如果整型表达式为 1，则函数返回选项列表中的第一项的值，若整型表达式为 2，则函数返回选项列表中的第 2项的值， … 依次类推。 如果整型表达式的值小于 1或大于列出的选项数目时，函数返回 Null。 如果整型表达式的值为非整型时，系统自动取其整数进行判断。 例如，根据 x是 1～ 4的值，转换成 “ 内科 ” 、 “ 外科 ” 、 “ 妇科 ” 、 “ 儿科 ” 的语句可以写成： kb＝ Choose（ x,“内科 ” ,“外科 ” ,“妇科 ” ,“儿科 ” ） For循环语句 For循环语句是计数型循环语句，用于控制循环次数预知的循环结构。 语句形式： For 循环变量＝初值 To 终值 [ Step 步长 ] Next 循环变量 说明： 循环变量必须是数值型 步长：一般为正数，初值小于终值 ； 若为负数，初值大于终值； Step。