if, else if로 문제풀이

		Dim tTextBox_Input(8) As TextBox
    Dim tTextBox_Output(8) As TextBox

    Private Sub Form7_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        tTextBox_Input(0) = TextBox1
        tTextBox_Input(1) = TextBox2
        tTextBox_Input(2) = TextBox3
        tTextBox_Input(3) = TextBox4
        tTextBox_Input(4) = TextBox5
        tTextBox_Input(5) = TextBox6
        tTextBox_Input(6) = TextBox7
        tTextBox_Input(7) = TextBox8

        tTextBox_Output(0) = TextBox9
        tTextBox_Output(1) = TextBox10
        tTextBox_Output(2) = TextBox11
        tTextBox_Output(3) = TextBox12
        tTextBox_Output(4) = TextBox13
        tTextBox_Output(5) = TextBox14
        tTextBox_Output(6) = TextBox15
        tTextBox_Output(7) = TextBox16

    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim iJumsu(8) As Integer '배열변수 선언
        Dim sHakjum(8) As String '

        For i = 0 To 7
            If tTextBox_Input(i).Text = "" Then
                MessageBox.Show("Textbox" & i + 1 & ".Text에 점수를 입력하고 버튼을 눌러주세요^^", "경고 " & i + 1)
                tTextBox_Input(i).Focus()
                Exit Sub
            End If
            iJumsu(i) = Val(tTextBox_Input(i).Text)
        Next

        For i = 0 To 7

            If iJumsu(i) > 100 Or iJumsu(i) < 0 Then
                MessageBox.Show("Textbox" & i + 1 & ".Text에 점수를 입력하세요^^", "경고 " & i + 1)
                tTextBox_Input(i).Focus()
                Exit Sub
            End If

            If iJumsu(i) >= 96 Then
                sHakjum(i) = "A+"
            ElseIf iJumsu(i) >= 91 Then
                sHakjum(i) = "A0"

            ElseIf iJumsu(i) >= 86 Then
                sHakjum(i) = "B+"

            ElseIf iJumsu(i) >= 81 Then
                sHakjum(i) = "B0"

            ElseIf iJumsu(i) >= 76 Then
                sHakjum(i) = "C+"

            ElseIf iJumsu(i) >= 71 Then
                sHakjum(i) = "C0"

            ElseIf iJumsu(i) >= 66 Then
                sHakjum(i) = "D+"

            ElseIf iJumsu(i) >= 60 Then
                sHakjum(i) = "D0"

            ElseIf iJumsu(i) = 0 And tTextBox_Input(i).Text <> "0" Then
                MessageBox.Show("Textbox" & i + 1 & ".Text에 숫자를 입력하세요^^", "경고 " & i + 1)
                tTextBox_Input(i).Focus()
                Exit Sub
            Else
                sHakjum(i) = "F"
            End If
        Next

        For i = 0 To 7
            tTextBox_Output(i).Text = sHakjum(i)
        Next
    End Sub

select case로 문제풀이

    Dim tTextBox_Input(8) As TextBox
    Dim tTextBox_Output(8) As TextBox

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim iJumsu(8) As Integer '배열변수 선언
        Dim sHakjum(8) As String '

        For i = 0 To 7
            If tTextBox_Input(i).Text = "" Then
                MessageBox.Show("Textbox" & i + 1 & ".Text에 점수를 입력하고 버튼을 눌러주세요^^", "경고 " & i + 1)
                tTextBox_Input(i).Focus()
                Exit Sub
            End If
            iJumsu(i) = Val(tTextBox_Input(i).Text)
        Next

        For i = 0 To 7

            Select Case iJumsu(i)
                Case Is > 100, Is < 0
                    MessageBox.Show("Textbox" & i + 1 & ".Text에 점수를 입력하세요^^", "경고 " & i + 1)
                    tTextBox_Input(i).Focus()
                    Exit Sub
                Case 96 To 100
                    sHakjum(i) = "A+"
                Case 91 To 95
                    sHakjum(i) = "A0"
                Case 86 To 90
                    sHakjum(i) = "B+"
                Case 81 To 85
                    sHakjum(i) = "B0"
                Case 76 To 80
                    sHakjum(i) = "C+"
                Case 71 To 75
                    sHakjum(i) = "C0"
                Case 66 To 70
                    sHakjum(i) = "D+"
                Case 61 To 65
                    sHakjum(i) = "D0"
                Case 0 To 60
                    sHakjum(i) = "F"
                Case Else
                    If iJumsu(i) = 0 And tTextBox_Input(i).Text <> "0" Then
                        MessageBox.Show("Textbox" & i + 1 & ".Text에 숫자를 입력하세요^^", "경고 " & i + 1)
                        tTextBox_Input(i).Focus()
                        Exit Sub
                    End If
                    sHakjum(i) = "F"
            End Select
        Next
        For i = 0 To 7
            tTextBox_Output(i).Text = sHakjum(i)
        Next
    End Sub

    Private Sub Form8_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        tTextBox_Input(0) = TextBox1
        tTextBox_Input(1) = TextBox2
        tTextBox_Input(2) = TextBox3
        tTextBox_Input(3) = TextBox4
        tTextBox_Input(4) = TextBox5
        tTextBox_Input(5) = TextBox6
        tTextBox_Input(6) = TextBox7
        tTextBox_Input(7) = TextBox8

        tTextBox_Output(0) = TextBox9
        tTextBox_Output(1) = TextBox10
        tTextBox_Output(2) = TextBox11
        tTextBox_Output(3) = TextBox12
        tTextBox_Output(4) = TextBox13
        tTextBox_Output(5) = TextBox14
        tTextBox_Output(6) = TextBox15
        tTextBox_Output(7) = TextBox16
    End Sub