vb骰子程序~~！！救急~

Private Sub Command1_Click()

Randomize

N = Val(InputBox("掷骰子次数"))

For i = 1 To N

x = Int(Rnd * 6 + 1)

s = s + x

If x <= 3 Then y = y + 1

Print x

Next i

Print "1-3出现次数为：" &y

Print "4-6出现次数为：" &N - y

Print "平均值为：" &s / N

End Sub

自行制作界面，做一个标签，设置大一点的字体，再做2个按钮，再加入一个定时器控件。复制以下代码，就行了。

Dim a(6) As Integer, n As Integer

Private Sub Command1_Click()’掷

Timer1.Enabled = True

End Sub

Private Sub Command2_Click()‘统计

Print "点数", "次数"

For i = 1 To 6

Print i, a(i)

Next i

End Sub

Private Sub Form_Load()

Timer1.Interval = 20

End Sub

Private Sub Timer1_Timer()

x = Int(6 * Rnd) + 1

Label1.Caption = x

n = n + 1

If n = 30 Then

n = 0

Timer1.Enabled = False

a(x) = a(x) + 1

End If

End Sub

---