访客只能看到部份内容，免费 加入会员 或由脸书 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