VB初学者的题目..

来源：百度知道 编辑：UC知道 时间：2024/06/14 20:55:07
1.编程模拟掷骰子10000次，分别统计每个点数出现的频数（次数）和频率（百分比）。
2.定义一个数组并为各元素赋值。（1）用户输入一个数并指定一个序号，将这个数插入到指定的位置；（2）用户指定一个序号，将该元素从数组中清除。
谢谢各位朋友给面..

'第一题：

Private Sub Form_Click()
Dim i, x As Single
Dim a As Integer
Static b, c, d, e, f, h, j As Integer
b = 0: c = 0: d = 0: e = 0: f = 0: h = 0: j = 0
For i = 1 To 10000
Randomize
mm: a = Int(Rnd() * 6)
If a = 0 Then c = c + 1
If a = 1 Then d = d + 1
If a = 2 Then e = e + 1
If a = 3 Then f = f + 1
If a = 4 Then h = h + 1
If a = 5 Then j = j + 1
Next i
x = Val(c) + Val(d) + Val(e) + Val(f) + Val(h) + Val(j)

Print "共："; x
Print "1："; c; "次"; c / x * 100; "%"
Print "2："; d; "次"; d / x * 100; "%"
Print "3："; e; "次"; c / x * 100; "%"
Print "4："; f; "次"; d / x * 100; "%"
Print "5："; h; "次"; e / x * 100; "%"
Print "6："; j; "次"; f / x * 100; &quo