VB课件5.pptx

选拔优秀生的条件为：年龄(Age)小于19岁，三门课总分(Total)高于285分，其中有一门为100分，如果其表达式写为： Age 19 And Total 285 And Mark1 = 100 Or Mark2 = 100 Or Mark3 = 100 有何问题？应如何改正。 ;运算符的优先级 P56;实验;错误类型 （1）语法错误 编辑代码时VB进行语法检查，发现代码存在输入错误，如遗漏关键字、括号不匹配等语法错误，弹出一个对话框，提示出错信息，出错的一行变成红色;（2）运行时错误 按了“启动”按钮，VB编译时产生的错误。此类错误是执行非法操作引起的，如除数为0、类型不匹配、试图打开不存在的文件等原因产生。出错行高亮度显示;变量的隐式声明和强制显式声明(Option Explicit) P51;（4） 逻辑错误 程序运行后，得不到所期望的结果，通常是程序存在逻辑上的缺陷所引起 例如：运算符使用不正确、语句的次序不对、循环语句的起始、终值不正确等 逻辑错误不会产生错误提示信息，错误较难排除，需要仔细阅读分析程序以及调试;例：输入三个边长，判断能否构成三角形;数据输入函数 InputBox P73;调试错误;a = abc b = efg Print a b;选择结构 P79;If…Then …条件语句 P80;If 条件 Then {语句组1} Else {语句组2} End if;课堂练习;例：猜数字游戏，判断是否猜对;多分支结构If…Then…ElseIf P82;;例：计算分段函数的值;例：输入一个字符,判断该字符是字母字符、数字字符还是其它字符;例：模拟计算器;选择结构的嵌套 P86;Private Sub Text1_LostFocus() If Not IsNumeric(Text1) Then i% = MsgBox(是否重新输入, vbYesNo + vbQuestion) If i = 6 Then Text1 = Text1.SetFocus Else End End If End If End Sub;Private Sub Command1_GotFocus() If Not IsNumeric(Text1) Or Not IsNumeric(Text2) Then i% = MsgBox(是否重新输入, vbYesNo + vbQuestion) If i = 6 Then If Not IsNumeric(Text1) Then Text1 = : Text1.SetFocus If Not IsNumeric(Text2) Then Text2 = : Text2.SetFocus Else End End If End If End Sub; If 条件1 Then 语句组1 ElseIf 条件2 Then 语句组2 ElseIf 条件3 Then 语句组3 Else 语句组4 End If;注 ???： 1)If ... End If 的配对 2)多层嵌套，不可交叉 3)Else总是跟最近的If…Then匹配 4)不管有几个分支，程序执行了一个分支后不再执行其余的分支 5)书写时一般采用锯齿缩进格式; 例：开始运行如左下图所示，单击“出题”按钮后计算机自动出题，窗口如右下图所示，此时由用户输入加法运算答案，然后单击“判定”按钮。如果用户运算正确则提示“运算正确”，否则显示“运算错误”。再次按下“出题”就会再出一道题。;课堂练习;实验：