语句与控制流.docVIP

七、语句与控制流 注释语句 在VB中用“”和Rem来标识一条注释语句。 在VB中的注释语句会自动变成绿色。 结束语句End 暂停语句Stop 赋值语句Let 格式：[Let] 名称 = 表达式 卸载对象语句 在VB中在结束应用程序而从内存中卸载窗体或卸载某些控件用Unload 语句。 格式：Unload 对象名 顺序语句 顺序语句即按照顺序依次执行的语句。 如：赋值语句、声明变量语句和打印方法等。 条件语句 条件语句用于根据条件产生执行相应的语句。 1) If…语句 If…语句有三种格式： 单分支格式，即： If 条件 Then [语句块] End If 也可改用：If 条件 Then 语句[: 语句] 双分支格式，即： If 条件 Then [语句块] [Else 语句块] End If 多分支格式，即： If 条件 Then [语句块] [ElseIf 条件 Then [语句块] [Else 语句块] End If 例22：设计一个程序，某运动队规定运动员12分钟跑评定成绩（2900米以上为“及格”，3020米以上为“中等”，3120米以上为“良好”，3200米以上为“优秀”）。 程序的界面有一个文本框、二个标签框和三个命令按钮。在文本框内输入运动员12分钟跑的距离，再鼠标点击“确定”按钮，就可得到成绩评定的结果。点击“清除”按钮，就可清除输入的距离和成绩评定的数据。 在属性窗口分别设置如表： 对象 属性 设置 Form1(窗体) Caption 例22 (名称) Form1 text1(文本框1) (名称) Txt1 text Label1(标签框1) (名称) Lab1 Caption 12分钟跑的距离（米）： Label2(标签框2) (名称) Lab2 Caption 成绩评定： Command1(命令按钮1) (名称) Cmd1 Caption 确定 Command2(命令按钮2) (名称) Cmd2 Caption 清除 Command3(命令按钮3) (名称) Cmd3 Caption 退出 在代码窗口完成如下： Private Sub Cmd1_Click() s = Val(Txt1.Text) t1 = 成绩评定： If s 2900 Then t2 = 不及格 If s = 2900 Then t2 = 及格 If s = 3020 Then t2 = 中等 If s = 3120 Then t2 = 良好 End If If s = 3200 Then t2 = 优秀 Lab2.Caption = t1 + t2 End Sub Private Sub Cmd2_Click() Txt1.Text = Lab2.Caption = 成绩评定： End Sub Private Sub Cmd3_Click() End End Sub 其中Cmd1_Click()过程可改为： Private Sub Cmd1_Click() s = Val(Txt1.Text) t1 = 成绩评定： If s 2900 Then t2 = 不及格 End If If s = 2900 And s 3020 Then t2 = 及格 End If If s = 3020 And s 3120 Then t2 = 中等 End If If s = 3120 And s 3200 Then t2 = 良好 End If If s = 3200 Then t2 = 优秀 End If Lab2.Caption = t1 + t2 End Sub 也可改为： Private Sub Cmd1_Click() s = Val(Txt1.Text) t1 = 成绩评定： If s 2900 Then t2 = 不及格 Else t2 = 及格 If s = 3020 Then t2 = 中等 If s = 3120 Then t2 = 良好 If s = 3200 Then t2 = 优秀 End If Lab2.Caption = t1 + t2 End Sub 也可改为： Private Sub