第三节选择结构.doc

选择结构教材164页Private Sub Command1_click()Dim m As DoubleDim p As Doublem = Val(Text1.Text)If m = 200 Thenp = m * 0.1Elsep = 0End IfText2.Text = pEnd Sub267页Private Sub Command1_click()Dim m As Single, p As Integerm = Val(Text1.Text)Select Case mCase Is = 1000p = m * 0.15End SelectText2.Text = pEnd Sub371页第一种方法Private Sub Command1_click()Dim m As Single, p As Stringm = Val(Text1.Text)If m = 90 Then p = AElseIf m = 80 Then p = BElseIf m = 70 Then p = CElseIf m = 60 Then p = DElse p = FEnd IfEnd IfEnd IfEnd IfText2.Text = pEnd Sub第二种方法Private Sub Command1_click()Dim m As Single, p As String, k As Stringm = Val(Text1.Text)If m 100 Then p = 输入成绩错误,请仔细核对! k = input error! ElseIf m = 90 Then p = A k = 成绩优异,再创佳绩!ElseIf m = 80 Then p = B k = 成绩良好,再接再励!ElseIf m = 70 Then p = C k = 希望你努力学习,再加油一把!ElseIf m = 60 Then p = D k = 希望你学习上,努力哟! ElseIf m = 0 Then p = F k = 成绩较差,希望你学习上加油哦! Else p = 输入成绩错误,请仔细核对! k = input error!End IfEnd IfEnd IfEnd IfEnd IfEnd IfText2.Text = pText3.Text = kEnd Sub第三种方法Private Sub form_click()Dim m As Singlem = Val(InputBox(请输入查询分数, 成绩等次)If m 100 Then Print 输入成绩错误,请仔细核对! ElseIf m = 90 Then Print 该生成绩等次为:A Print 成绩优异,再创佳绩!ElseIf m = 80 Then Print 该生成绩等次为:B Print 成绩良好,再接再励!ElseIf m = 70 Then Print 该生成绩等次为:C Print 希望你努力学习,再加油一把!ElseIf m = 60 Then Print 该生成绩等次为:D Print 希望你学习上,努力哟! ElseIf m 0 Then Print 该生成绩等次为:F, Print 希望你努力学习,加油哦! ElseIf m 0 Then Print 输入成绩错误,请仔细核对!End IfEnd IfEnd IfEnd IfEnd IfEnd IfEnd IfEnd Sub472页：第四种方法Private Sub form_click()Dim m As Singlem = Val(InputBox(请输入查询分数, 成绩等次)Select Case mCase 90 To 100 Print 该生成绩等次为:A Print 成绩优异,再创佳绩!Case 80 To 89Print 该生成绩等次为:B Print 成绩良好,再接再励!Case 70 To 79Print 该生成绩等次为:C Print 希望你努力学习,再加油一把!Case 60 To 69Print 该生成绩等次为:D Print 希望你学习上,努力哟!Case 0 To 69Pr