隨機亂數

四個隨機亂數(可能會重複)

Randomize()
Dim A(4) As Integer
Dim i, j, Point_Num As Integer
For i = 1 To 4
Point_Num = Int(Rnd() * 6 + 1)
A(i) = Point_Num
Next
Label1.Text = A(1)
Label2.Text = A(2)
Label3.Text = A(3)
Label4.Text = A(4)