《计算机程序设计基础》教学课件：8_2~8_3_结构化程序设计.pptVIP

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * 分支结构之二：情况语句 例2： Private Sub Form_Click() Dim n As Single, j As Integer n = InputBox(请输入数据, 数据输入) Select Case n Case Is = 90 j = MsgBox(成绩优秀, vbOKOnly + 64, 信息显示) Case Is = 80 j = MsgBox(成绩良好, vbOKOnly + 64, 信息显示) Case Is = 70 j = MsgBox(成绩中等, vbOKOnly + 64, 信息显示) Case Is = 60 j = MsgBox(成绩合格, vbOKOnly + 64, 信息显示) Case Else j = MsgBox(成绩不合格, vbOKOnly + 64, 信息显示) End Select End Sub * 分支结构之二：情况语