VB.NET Class.5 (陣列)

練習一：

Public Class Form1

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Dim a(4) As Char                      //宣告方法代表 a(0) 到 a(4) 共五個變數
        Dim b(0 To 4) As Char             //另一種宣告方法 也是五個變數
        Dim i As Integer

        For i = 0 To a.Length - 1             //a 的總長度 -1 才會跑五個變數 0 ~ 4
            a(i) = InputBox("請輸入第 " & i & "個字元")
        Next

        Dim s As String
        For i = 0 To a.Length - 1
            s = s & a(i)                               //字元組合方法
            MessageBox.Show(s)
        Next

    End Sub
End Class

------------------------------------------------------------------------------------------------

練習二：

------------------------------------------------------------------------------------------------
Public Class Form1

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Dim a(9) As Integer
        Dim i As Integer

        For i = 0 To a.Length - 1
            a(i) = InputBox("請輸入第 " & i + 1 & "位同學成績")
        Next

        Dim total As Integer = 0
        For i = 0 To a.Length - 1
            total = total + a(i)
        Next

        MessageBox.Show("總分為：" & total & "分" & vbCr & "平均為：" & total / 10 & "分")

    End Sub
End Class

------------------------------------------------------------------------------------------------

練習三：輸入10位同學成績秀在Label上

------------------------------------------------------------------------------------------------

Public Class Form1

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Label1.Text = ""
        Dim a(9) As Integer
        Dim i As Integer

        For i = 0 To a.Length - 1
            a(i) = InputBox("請輸入第 " & i + 1 & "位同學成績")
        Next

        Dim total As Integer = 0
        For i = 0 To a.Length - 1
            Label1.Text = Label1.Text & "第" & i & "位同學成績為 " & a(i) & "分" & vbCr
            total = total + a(i)
        Next

        Label1.Text += "================" & vbCr
        Label1.Text += "總分為：" & total & "分" & vbCr & "平均為：" & total / 10 & "分"
        'MessageBox.Show("總分為：" & total & "分" & vbCr & "平均為：" & total / 10 & "分")
    End Sub
End Class

------------------------------------------------------------------------------------------------

練習四：VB 的 Switch Case 寫法

------------------------------------------------------------------------------------------------

Public Class Form1

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click

        Dim num As Integer

        num = TextBox1.Text

        Select Case num

            Case 1

                Label1.Text = "1 is first"

            Case 2

                Label1.Text = "2 is second"

            Case 3

                Label1.Text = "3 is third"

            Case 4

                Label1.Text = "4 is fourth"

            Case 5

                Label1.Text = "5 is fifth"

            Case Else

                Label1.Text = "請別來亂謝謝!!"

        End Select

    End Sub

End Class