VB编书学习资源资料.ppt

第4章;主要内容;顺序结构是程序设计中最简单的一

种结构，顺序结构中的每一条语句都被

执行一次，而且只能被执行一次。;【例4.1】交换两个文本框中的内容。在窗

体上添加两个文本框、两个命令按钮。程序运

行时单击“交换〞按钮，那么将两个文本框中的内

容进行交换，单击“退出〞按钮结束整个程序的

运行。;编写代码;说明：;选择结构的流程是对条件进行判

断，根据判断结果执行相应语句，选

择结构也称分支结构。;【例4.2】单行If语句例如。输入一个整数，判断

该数是奇数还是偶数。在窗体上添加一个文本框、

三个命令按钮。运行程序时在输入文本框中输入数

据后，单击“判断〞按钮，在弹出的消息框中显示奇

、偶数的判断结果。单击“去除〞按钮，可重新输入

数据，单击“退出〞按钮，结束程序运行。;编写代码;说明：;〔2〕语句输出偶数或输出奇数是根据条件有选择地执

行，二者中只能选择其中一个。代码中分支的选择是通

过If语句实现的，当判断条件式Val(Text1.Text)Mod

2=0为“真〞时执行Then后面的语句，为“假〞时执行

Else后面的语句。

〔3〕运行程序时应分别输入一个偶数值或奇数值，以

判断输出结果是否正确，不能只验证其中一种情况〔偶

数或奇数〕后就认为程序是正确的。;【例4.3】在窗体上添加一个文本框、三个复选框和

两个命令按钮。运行程序时，根据需要选择不同复选

框，然后单击“确定〞按钮，那么在文本框中显示一个结

果操作。单击“取消〞按钮，可以重新选择。;编写代码;说明：;;【例4.4】编写程序，求一元二次方程

ax2+bx+c=0的实根〔要求方程的系数a≠0〕。程序

运行时，在文本框中输入方程的系数，单击“求解〞按

钮，根据判断方程有无实根的情况输出结果。;编写代码;说明：;〔2〕语句“EndIf〞是多行If语句的结束标志。在多行

If语句中，即使省略Else子句，也要写该结束标志。省

略Else子句时的多行If语句形式为：

If表达式Then

语句组

EndIf

〔3〕语句组可以由一条或多条语句组成，语句组不能

与Then书写在同一行，否那么VB会认为是一个单行If语

句，单行If语句没有EndIf。;在If语句的Then或Else后面还可以包含另一If语句，这样

结构的If语句称为If语句的嵌套。嵌套If语句的一般形式是：

If表达式1Then

[语句组1]

If表达式2Then

语句组2

[Else

语句组3]

EndIf

[语句组4]

[Else

[语句组5]

If表达式3Then

语句组6

[Else

语句组7

EndIf

[语句组8]

EndIf;【例4.6】编写程序。在文本框中输入用户密码〔密码

为6666〕。假设正确，那么弹出密码正确消息框。假设密码

不正确，那么显示错误信息并询问是否重试，允许在文本

框中输入密码3次。窗体界面如下图。;编写代码;说明：;If…Then…ElseIf的一般形式是：

If表达式1Then

语句组1

ElseIf表达式2Then

语句组2

ElseIf表达式3Then

语句组3

…

[Else

语句组n+1]

EndIf

;该语句的功能是根据不同表达式值决定执行哪个语句组。如

果“表达式1〞为True，那么执行“语句组1〞；否那么如果“表达式2〞为

True，那么执行“语句组2〞…，该语句中不管有几个分支，依次判

断各表达式，当某个表达式条件满足时，执行相应的语句，其

余分支不再执行。如果所有ElseIf子句的条件表达式均不满足

且有Else子句，那么执行“语句组n+1〞，否那么什么也不执行。;【例4.7】根据距离，计算运输货物的每吨运费。在窗体上添加

2个标签、2个文本框和2个命令按钮。程序运行时，在Text1中

输入距离，单击“计算运费〞按钮，那么计算运输货物的每吨运费

〔结果保存1位小数〕，并显示在Text2中。如下图。

;要求：每吨运费的计算方法是：距离×单价×折扣。

其中：单价为0.5。

折扣为：距离＜500