七、语句与控制流

《七、语句与控制流》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、七、语句与控制流注释语句在VB中用“'”和Rem来标识一条注释语句。在VB中的注释语句会自动变成绿色。结束语句End暂停语句Stop赋值语句Let格式：[Let]名称=表达式卸载对象语句在VB中在结束应用程序而从内存中卸载窗体或卸载某些控件用Unload语句。格式：Unload对象名顺序语句顺序语句即按照顺序依次执行的语句。如：赋值语句、声明变量语句和打印方法等。条件语句条件语句用于根据条件产生执行相应的语句。1)If…语句If…语句有三种格式：单分支格式，即：If条件Then[语句块]EndIf也可改用：If条件Then语句[:语句]

2、双分支格式，即：If条件Then[语句块][Else语句块]EndIf多分支格式，即：If条件Then[语句块][ElseIf条件Then[语句块][Else语句块]EndIf例22：设计一个程序，某运动队规定运动员12分钟跑评定成绩（2900米以上为“及格”，3020米以上为“中等”，3120米以上为“良好”，3200米以上为“优秀”）。程序的界面有一个文本框、二个标签框和三个命令按钮。在文本框内输入运动员12分钟跑的距离，再鼠标点击“确定”按钮，就可得到成绩评定的结果。点击“清除”按钮，就可清除输入的距离和成绩评定的数据。在属性窗口

3、分别设置如表：对象属性设置Form1(窗体)Caption例22(名称)Form1text1(文本框1)(名称)Txt1textLabel1(标签框1)(名称)Lab1Caption12分钟跑的距离（米）：Label2(标签框2)(名称)Lab2Caption成绩评定：Command1(命令按钮1)(名称)Cmd1Caption确定Command2(命令按钮2)(名称)Cmd2Caption清除Command3(命令按钮3)(名称)Cmd3Caption退出在代码窗口完成如下：PrivateSubCmd1_Click()s=Val(Tx

4、t1.Text)t1="成绩评定："Ifs<2900Thent2="不及格"Ifs>=2900Thent2="及格"Ifs>=3020Thent2="中等"Ifs>=3120Thent2="良好"EndIfIfs>=3200Thent2="优秀"Lab2.Caption=t1+t2EndSubPrivateSubCmd2_Click()Txt1.Text=""Lab2.Caption="成绩评定："EndSubPrivateSubCmd3_Click()EndEndSub其中Cmd1_Click()过程可改为：PrivateSubCmd

5、1_Click()s=Val(Txt1.Text)t1="成绩评定："Ifs<2900Thent2="不及格"EndIfIfs>=2900Ands<3020Thent2="及格"EndIfIfs>=3020Ands<3120Thent2="中等"EndIfIfs>=3120Ands<3200Thent2="良好"EndIfIfs>=3200Thent2="优秀"EndIfLab2.Caption=t1+t2EndSub也可改为：PrivateSubCmd1_Click()s=Val(Txt1.Text)t1="成绩评定："Ifs<290

6、0Thent2="不及格"Elset2="及格"Ifs>=3020Thent2="中等"Ifs>=3120Thent2="良好"Ifs>=3200Thent2="优秀"EndIfLab2.Caption=t1+t2EndSub也可改为：PrivateSubCmd1_Click()s=Val(Txt1.Text)t1="成绩评定："Ifs<2900Thent2="不及格"ElseIfs>=2900Ands<3020Thent2="及格"ElseIfs>=3020Ands<3120Thent2="中等"ElseIfs>=3120Ands<3

7、200Thent2="良好"Elset2="优秀"EndIfLab2.Caption=t1+t2EndSub例23：设计一个程序，显示例16的一首诗“海门”时为一行一行的显示。设计窗体有一个文本框和两个命令按钮。运行时，当点击“显示”命令按钮，在文本框内出现诗名，“显示”命令按钮变为“继续”命令按钮，“结束”命令按钮隐含了。当点击“继续”命令按钮，在文本框内就逐行出现诗句，直到全部显示完。诗句全部显示完时，“继续”命令按钮隐含了，“结束”命令按钮就显出来。在属性窗口分别设置如表：对象属性设置Form1(窗体)Caption例23(名称)

8、Form1text1(文本框1)(名称)Txt1MultiLineTruetextCommand1(命令按钮1)(名称)Cmd1Caption显示Command2(命令按钮2)(名称)Cmd2Caption