[工学]4 VB中的3种程序结构.ppt

第4章 VB中的3种程序结构 VB应用程序的执行是由事件驱动的，当用户触发某一事件时，执行相应的事件过程，这些事件过程之间并没有特定的执行次序。但在每一个事件过程内部，是有一定的执行控制流程的，这就是通常所说的3种基本结构： 4.1 顺序结构 4.1 顺序结构 1. 赋值语句 格式1：变量名 = 表达式 格式2：[对象名.]属性名 = 表达式 4.1 顺序结构 2. 输入数据 (1) 使用输入框InputBox函数 调用格式： 变量名 = InputBox(提示信息[,对话框标题][,默认值][,X坐标][,Y坐标]) 例如： filename$ = InputBox (“请输入文件名”, “输入文件名对话框”, “filename”)将产生一个如上图所示的对话框。 4.1 顺序结构 3. 输出数据(1)Print方法输出数据 Print的格式： [对象名.] Print [输出项列表] [{; | , }] Print方法在Form_Load事件过程中不起作用。 与Print方法有关的函数 ①Tab函数：在指定的第n个位置上输出数据。 例如：Print Tab(10); 姓名; Tab(25); 年龄 ②Spc函数：在输出下一项之前插入n个空格。 例如：Print 您好; Spc(8); 欢迎 (3) 用消息框（MsgBox函数）输出结果 调用格式： 变量名＝MsgBox(提示信息[,按钮类型][,对话框标题]) 4.2 分支（选择）结构 1. 行If语句 格式：If 条件表达式 Then 语句组1 [Else 语句组2] Private Sub Form_Click() Dim a As Single, b As Single, c As Single, max As Single a = InputBox(请输入第一个数, 输入框) b = InputBox(请输入第二个数, 输入框) c = InputBox(请输入第三个数, 输入框) max = a If b max Then max = b If c max Then max = c Print 三个数中最大的为： max End Sub 2. 块If语句（双分支结构） 格式： If 条件表达式 Then 语句组1 [Else 语句组2] End If Private Sub Form_Click() Dim weight As Single, pay As Single weight = InputBox(请输入行李重量, 输入框) If weight 40 Then pay = (weight - 40) * 0.5 + 40 * 0.2 Else pay = weight * 0.2 End If Print 行李重量= weight Print 所付费用= pay End Sub 3. 块if语句的嵌套 Private Sub Form_Click() Dim a!, b!, c!, d!, x1!, x2!, x! a = InputBox(请输入系数a:) b = InputBox(请输入系数b:) c = InputBox(请输入系数c:) d = b * b - 4 * a * c If d 0 Then x1 = (-b + Sqr(d)) / (2 * a) x2 = (-b - Sqr(d)) / (2 * a) Print x1=; x1, x2=; x2 Else If d = 0 Then x = -b / (2 * a): Print x=; x Else Print 此方程无实根 End If End If End Sub 4. ElseIf子句（多分支结构） Private Sub Form_Click() Dim score As Single score = InputBox(请输入学生的成绩score:) If score 60 Then Print 不及格 ElseIf score = 70 Then Print 及格 ElseIf score = 80 Then Print 中等 ElseIf score = 90 Then Print 良好 ElseIf score = 100 Then Print 优秀 Else P