VB程序设04-1.pptVIP

第四章 VB基本控制结构(2) 学习目标 If语句、iif函数、Select语句 选择结构的基本技巧 复习与总结 单分支、双分支均有单行的语法形式； 单分支、双分支是多分支格式的特例。 练习 1、下面程序运行后，显示的结果是______ 　　　Dim x If x Then Print x Else print x+1 　 A. 1 　B. 0 　 C. -1 　 D. 显示出错信息 分析： x未赋初值，默认为0 数值0转换为逻辑型值false，选择第2分支 练习 2、用If语句表示分段函数 ，下列不正确的程序是______ iif 函数 此例亦可用iif函数完成： f=iif(x=1, sqr(x+1), x*x+3) 相当于C语言的 f=(x=1)?sqr(x+1):x*x+3; 功能：根据表达式的值，来返回两部分中的一个。 语法：IIf(逻辑表达式, true部分, false部分) 多分支if中条件的层次 在下面“分数评定程序”中，可以看到，条件的层次与逻辑的重要性。 练习：分数评定程序 指出如下两段分数评定程序中的错误 练习：程序的修改 If mark60 then 　Print 不及格 elseif mark70 then Print 及格 elseif mark80 then 　Print 中等 elseif mark90 then Print 良好 else Print 优秀 end if 多分支if中条件表达式的处理 当条件表达式较为复杂时，可利用逻辑型变量进行简化。 整除判断程序 整除的判断程序 输入一个整数，判断它是否是3、5、7的倍数，程序结果要具体指出各种情况，如：48 能被 3 整除，但不能被 5 和 7 整除。 整除的判断 代码： Private Sub Form_Load() Dim n, s$, m$ Dim a As Boolean, b As Boolean, c As Boolean s = “请输入一个整数并单击确定” vbCrlf “以判断它是否被3、5、7整除 m = InputBox$(s, 输入框, , 4000, 4000) If m = Then End 当按下取消时程序结束 n = Val(m) a = (n Mod 3 = 0) b = (n Mod 5 = 0) c = (n Mod 7 = 0) 整除的判断 If a And b And c Then MsgBox n 能同时被3、5和7整除, 64, 结果 ElseIf a And b And Not c Then MsgBox n 能被3和5整除，但不被7整除, 64, 结果“ ElseIf a And Not b And c Then MsgBox n 能被3和7整除，但不被5整除, 64, 结果 ElseIf Not a And b And c Then MsgBox n 能被5和7整除，但不被3整除, 64, 结果 ElseIf Not a And Not b And c Then MsgBox n 不被3和5整除，但能被7整除, 64, 结果 ElseIf Not a And b And Not c Then MsgBox n 不被3和7整除，但能被5整除, 64, 结果 整除的判断 ElseIf a And Not b And Not c Then MsgBox n 不被5和7整除，但能被3整除, 64, 结果 Else MsgBox n 不能被3、5与7整除, 64, 结果 End If Call Form_Load 重新加载窗体，即重新执行该程序 End Sub 多分支if对复杂条件的处理 奖学金计算程序 奖学金计算程序 以三门功课成绩为依据，奖学金的评奖标准为： 一等奖学金：符合以下条件之一者 平均分大于 95 分； 有两门 100 分，且第三门不低于 80 分； 二等奖学金：符合以下条件之一者 平均分大于 90 分； 有一门 100 分，且其他门不低于 75 分； 三等奖学金： 各门成绩不低于 70 分； 写一个计算程序，输入三门成绩，输出其奖学金等