10/14 隨堂練習 訂正

10/14 隨堂練習 訂正

• 成績等第判斷:操行成績0-100分成五等第 select case

Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click
        '成績等第判斷:操行成績0-100分成五等第 select case
        'g = 成績
        Dim g As Single
        Dim ans As String = "" '答案
        g = InputBox("成績=", "成績等第判斷:操行成績0-100分成五等第", 0)
        Select Case g
            Case Is < 60
                ans = "丁"
            Case Is < 70
                ans = "丙"
            Case Is < 80
                ans = "乙"
            Case Is < 90
                ans = "甲"
            Case Else
                ans = "優"
        End Select
        Me.TextBox8.Text = g & "分," & ans
    End Sub