《Visual Basic程序设计二》由会员分享，可在线阅读，更多相关《Visual Basic程序设计二（97页珍藏版）》请在金锄头文库上搜索。
1、Visual Basic程序设计,主讲人：马正元山东大学物理微电子学院,2017/12/10,2,Visual Basic程序设计,第八讲 第四章 程序流程的控制 （一）,2017/12/10,3,本章要点,常用控件的使用,关系表达式,选择结构,循环结构,布尔表达式,2017/12/10,4,4.1关系运算符和关系表达式,4.1.1 关系运算符 VB提供六种关系运算符,表4-1,2017/12/10,5,4.1.2 关系表达式,1. VB中的关系表达式格式为： , 2. 说明：（1）其中可为算术表达式、字符串表达式和日期型表达式。（2）关系表达式求值的次序是先求关系运算符两边表达式的值，再求关
2、系表达式的值。关系表达式的值为Boolean型，只有两个值True和False。（3）若关系运算符两边为算术表达式时，则应先计算算术表达式的值，再进行关系比较。,2017/12/10,6,（4）若关系运算符两边为字符串表达式时，按字符串中每个字母的ASCII码逐一进行比较，若比较的前几个字母的ASCII码都一样，而当比较到后面哪一个字母不一样，则哪个字母的ASCII码数值大，则对应的字符串就大。,2017/12/10,7,例如: “qwert ” = “qweRt ” 的值为True。常见字符的ASCII值大小排列如下： “空格”“0”“1”“9” “A”“B”“Z” “a”“b” #10/2
3、3/96# 值为True。 #09/13/00# #09/12/99# 值为False。3. 注意： 因为浮点数在计算机内不能精确表示，所以在VB中不能用“=”来比较两个单精度或双精度数的浮点数。例如： 5.0*4.0 = 20.0在数学上是成立的，而在VB中其值可能为False。若需要比较两个浮点数时，则应写成下列形式： Abs(5.0*4.0-x) = 1e-5 若(5.0*4.0-x)的绝对值小于等于1e-5时，则认为x等于 5.0*4.0。,2017/12/10,9,在VB中不能把数学中的不等式10x20表示成 10 x = 20，若表示成10 x = 20这种形式，不论x为何值关系表
4、达式10 x = 20的值都为True。 关系表达式10 x = 20相当于（10 x） = 20由于（10 x）的值无论为True(-1)或False(0)都小于20，所以10 x = 20的值总为True。这显然与数学中的不等式的意义不同。,2017/12/10,10,4.2布尔运算符和布尔表达式,对于不能用关系表达式表示的较复杂的条件可用布尔表达式来表示。如上面提到的数学不等式10 10 And x =0.0 and a+c b+d or Not True True 6.0 6.0 False False False False最后结果为False。,2017/12/10,17,4.3
5、选择结构,4.3.1 IfThen语句1. 行If语句格式如下： If Then Else 2. 块If结构格式如下： If Then 语句组1 Else 语句组2 End If,2017/12/10,18,3. 说明：,（1）If语句后面的可以是前面讲的算术表达式、关系表达式和布尔表达式，执行该结构时应先计算值，然后根据值确定程序的流向。（2）当的值为真，执行Then后面语句组1中各语句；当的值为假，则执行Else后面的语句组2中各语句。无论是执行语句组1或执行语句组2中各语句执行完后，接着应执行End If。,2017/12/10,19,（3）在VB中数值表达式的值为非0时，则条件表达式的
6、值为真，数值表达式的值为0时条件表达式的值为假。（4）第一种形式的If结构，没有配对的End If语句；若Then后面的语句组1省略,则必须有Else语句及其后的语句组2；若Else语句省略，则语句组1是必选项。第二种If结构必须有配对的结束语句End If，不能省略。其Then后面的两个可选项也必须选其中之一。,2017/12/10,20,【例4-1】计算分段函数： 工程设计步骤如下：（1）启动VB后选“新建工程”的“标准EXE”出现一个窗体，在此窗体上添加一个标签控件一个文本框和二个命令按钮如下页图4-1左图所示。（2）设置窗体及各控件的属性如下页图4-1右图所示。,Y=1+x (x0)Y
7、=1+2*x (x= 0 Then y = 1 + x Else y = 1 + 2 * x Text1.Text = yEnd Sub,2017/12/10,23,编写单击“退出”按钮执行的代码。Private Sub Command2_Click() Unload MeEnd Sub（4）运行结果。按工具栏上的执行按钮出现如图4-1右图所示的界面。单击“计算函数的值”按钮出现输入对话框如图4-2左图所示，输入数值后，出现最后的结果如图4-2右图所示。,2017/12/10,24,图4-2 计算分段函数的运行结果,2017/12/10,25,4.3.2 嵌套的If语句,如果上面的块If结构中
8、的Then下面的语句组1或者在Else下面的语句组2又包含另外的If结构称If语句的嵌套，如： If Then If Then 语句组1 Else 语句组2 End If,当表达式1的值为真时执行的语句组。,2017/12/10,26,4.3.2 嵌套的If语句,当表达式1的值为假时执行的语句组。,Else If Then 语句组3 Else 语句组4 End If End If,2017/12/10,27,块IF嵌套的N-S结构化流程图表示,条件表达式1,条件表达式2,条件表达式3,语句组1,语句组2,语句组3,语句组4,Y,Y,Y,N,N,N,2017/12/10,28,【例4-2】简单密
9、码验证程序。工程设计步骤如下：（1）在窗体上添加二个个标签控件、一个文本框控件和二个命 令按钮。 如图4-3所示。 （2）设置窗体与各控件的属性如表4-5所示。,图4-3,2017/12/10,29,表4-5 简单密码验证程序中窗休及各控件的属性的设置,2017/12/10,30,表4-5 简单密码验证程序中窗休及各控件的属性的设置（续）,2017/12/10,31,判断密码程序N-S结构化流程图,判断输入密码是否正确,正确,不正确,在标签框中显示密码正确，可以进入系统！,在消息框中显示密码错误！Intd=Intd-1,Intd=0,Y,N,退出程序,提示还有几次输入机会。,2017/12/1
10、0,32,（3）代码编写如下Dim Pass As StringDim intD As Integer编写单击命令按钮“确定”所执行的代码。Private Sub Command1_Click() If Text1.Text = Pass Then intD = 3 Label1.Caption = “密码正确，_ 可以进入系统！ Else,在窗体的声明段中声明的变量在窗体的各个模块都起作用,2017/12/10,33,intD = intD - 1 MsgBox 密码错误！ If intD = 0 Then End 行IF结构 Label1.Caption = “仔细想想，还有” &_ St
11、r(intD) & 次! Text1.SetFocus End IfEnd Sub,使文本框重新获得焦点,2017/12/10,34,编写单击命令按钮“退出”所执行的代码。Private Sub Command2_Click() EndEnd Sub编写窗体的Form_Load()事件所执行的代码。Private Sub Form_Load() Pass = Hello intD = 3End Sub,2017/12/10,35,图4-4密码正确显示结果,（4）按F5键运行工程，在文本框中输入密码后，单击“确定”按钮。若密码输入正确，则在框中显示“密码正确，可以进入系统！”。若密码错误则信息输出框显示密码错误，按“确定”按钮后出现提示允许再输入两次。结果如图4-4和图4-5所示。,2017/12/10,36,图4-5 密码错误信息输出框显示密码错误， 并且提示允许再输入两次,
