人教版九年级信息技术全册第二单元13课For-Next循环.pptxVIP

知识回顾：分支结构 ——select-case 语句;Private Sub Command1_Click() Mth = Val(Text1.Text) Select Case Mth Case 1, 3, 5, 7, 8, 10, 12 Label3.Caption = 本月有31天。 Case 4, 6, 9, 11 Label3.Caption = 本月有30天。 Case 2 Label3.Caption = 本月有28天。 Case Else Label3.Caption = 输入数值错误！ End Select End Sub; Dim x As Integer x = Val(Text1.Text) Select Case x Case Is = 90 Text2.Text = 优秀 Case Is = 80 Text2.Text = 良好 Case Is = 70 Text2.Text = 中等 Case 0 To 59 Text2.Text = 不及格