
4.3 顺序结构
采用顺序结构编写的过程,只需要将Visual Basic中的语句按照合理的逻辑顺序排列组合,即可完成顺序结构的程序设计。采用顺序结构编写程序,需要特别注意语句的逻辑顺序。
4.3.1 例题
在本节中,通过例题,理解顺序结构编程的基本思想。
【例4-4】任意两个数据分别保存在变量X和Y中,编写程序,实现变量X和Y值的交换。
【问题分析】经分析题目,可以将问题归纳为:
(1)已知变量为X和Y,需要用输入语句给这两个变量赋值。
(2)交换变量X和Y的值。
(3)输出变量X和Y的值。
用InputBox函数给变量X和Y赋值;输出结果用窗体的Print方法;两个变量值的交换需要借助第3个变量。在窗体中添加2个命令按钮,Command1的事件过程实现两个变量X和Y的交换,Command2的事件过程结束工程文件的运行。图4-10给出了设计模式图和运行模式图,表4-7给出了窗体及窗体中对象的属性列表。

图4-10 例4-4设计模式图和运行模式图
表4-7 例4-4中对象属性

【参考代码】

【例4-5】用随机函数产生1~10的任意两个数,求这两个数的平均值。
【问题分析】经分析题目,可以将问题归纳为:
(1)任意两个数用变量X和Y表示,用Rnd函数产生1~10之间的数并赋值给X和Y。
(2)求平均值。
(3)输出X和Y的平均值。
在窗体中添加2个命令按钮,图4-11给出了设计模式图和运行模式图,表4-8给出了对象的属性列表。

图4-11 例4-5设计模式图和运行模式图
表4-8 例4-5中对象属性

【参考代码】


4.3.2 End语句
End语句用于结束一个程序的运行,可以放到任何一个事件过程中。
格式:
End
例如,在例4-5中Command2的Click事件过程中的End语句。
在Visual Basic中,还有多种形式的End语句,用于结束一个过程或语句块。例如,End if、End Select、End With、End Type、End Sub、End Function等,与其所对应的语句配对使用。
例如,给窗体中的Label1设置一系列的属性,可以用With…End With语句。
