訪客只能看到部份內容，免費 加入會員 或由臉書 Google 可以看到全部內容

Public Class Form1
    Dim a(100) As Integer
    Dim b(9) As Integer
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 
        Label1.Text = "100組亂數：" & vbCrLf
        For i As Integer = 1 To 100 
           a(i) = Int(Rnd(10) * 10) 
            If i = 1 Then
                Label1.Text &= a(i)
            Else
                Label1.Text &= ", " & a(i)
            End If
        Next
    End Sub
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        For i = 0 To 9
            b(i) = 0
        Next
        For i = 1 To 100
            b(a(i)) += 1
        Next
        Label2.Text = "統計結果：" & vbCrLf
        For i = 0 To 9
            Label2.Text &= "數字為" & i & "的數量是" & b(i) & vbCrLf
        Next
    End Sub
End Class