重点难点和错误分析——项目二四则运算.ppt

1、重点难点和错误分析 项目二 四则运算,主 讲 ：浙江广播电视大学 陈小冬,重点难点讲解,程序控制结构 变量与数组,程序控制结构,顺序结构,Private Sub Command1_Click() Dim a As Integer Dim b As Integer a = Val(Text1) b = Val(Text2) Label1.Caption = a + b Label2.Caption = a - b End Sub,选择结构,程序控制结构,If Then End If,单分支,交换两个数 If op1 op2 Then temp = op1 op1 = op2 op2 = temp

2、 End If,If Then Else End If,双分支,If op1 op2 Then max = op2 Else max = op1 End If,程序控制结构,多分支,程序控制结构,If Then ElseIf Then Else End If,Select Case Case Case Case Else End Select,程序控制结构,循环结构,程序控制结构,For循环语句,For intX = 1 To 10 Print *; Next intX,DoLoop循环语句,intX = 1 Do While (intX = 10) Print *; intX = intX

3、+ 1 Loop,程序控制结构,变量与数组,数组不是一种数据类型，而是一组相同类型数据的集合，用数组名加上下标可以表示数组中的各个元素。,Dim question (1 To 10) As String,Dim question As String,Dim score (1 To 100) As Integer,变量,Dim score As Integer,数组,score(1) score(2) score(100),Dim score (1 To 100) As Integer Dim i As Integer For i = 1 To 100 score (i) = Val(Input

4、Box(请输入第 & i & 个整数, 录入) Next i,变量与数组,Dim score1 As Integer Dim score2 As Integer Dim score100 As Integer score1 = Val(InputBox(请输入第1个整数, 录入) score2 = Val(InputBox(请输入第2个整数, 录入) score100 = Val(InputBox(请输入第100个整数, 录入),不使用数组输入100个数,使用数组输入100个数,常见错误分析,If语句的书写问题 数组的界限 Select Case语句的使用,“块If没有End If” 错误,交

5、换两个数 If op1 op2 Then temp = op1: op1 = op2: op2 = temp,原因： 单行式的If语句中，必须在一行上书写，若要分行，要用续行符。 对多行式的If块语句中，应有配对的End If语句结束。,解决方法：,交换两个数 If op1 op2 Then temp = op1: op1 = op2: op2 = temp End If,交换两个数 If op1 op2 Then temp = op1: op1 = op2: op2 = temp,“块If没有End If” 错误,数组“下标越界”错误,原因：引用了不存在的数组元素。,1,Dim intArr

6、ay(1 To 10) As Integer Dim i As Integer For i = 0 To 10 intArray(i) = Val(InputBox(请输入第 & i & 个整数, 录入) Next i,Select Case intScore Case intScore = 90 LblResult.Caption = 优秀 Case intScore = 80 LblResult.Caption = 良好 Case intScore = 70 LblResult.Caption = 中等 Case intScore = 60 LblResult.Caption = 及格 Case Else LblResult.Caption = 不及格 End Select,原因： “表达式列表i”中不能使用“变量或表达式”中出现的变量。,始终执行Case Else子句，运行结果不正确,Select Case intScore Case Is = 90 LblResult.Caption = 优秀 Case Is = 80 LblResult.Caption = 良好 Case Is = 70 LblResult.Caption = 中等 Case Is