如何用VB产生随机数并记录

来源：百度知道 编辑：UC知道 时间：2024/05/16 20:09:38
请问各位高手如何从1-10中间产生随机数并且在相对应的text中记录该数字出现的次数。如是1的在text1中记录1，是2的在text2中记录1。如1出现了5次则在text1中记录5。

这里不要用text1、text2……text10
而应该使用text1（0）、text1(1)……text1(9)

然后使用以下代码：
Private Sub Command1_Click()
Dim n As Integer
For i = 0 To 9
Text1(i) = ""
Next i
Do
n = Val(InputBox("请输入你要产生的数字的个数(>10):"))
Loop Until n > 10
For i = 1 To n
a = Int(Rnd * 10) + 1
Text1(a - 1) = Val(Text1(a - 1)) + 1
Next i
End Sub
1的个数记录在text1(0)里
2的个数记录在text1(1)里
…………
…………
10的个数记录在text1（9）里

text 为 1-10的控件数组
Private Sub Command1_Click()
Randomize
n = 10
For i = 1 To 10
Text(i) = ""
Next
For a = 1 To n
x = Int(Rnd * 10 + 1)
For b = 1 To 10
If b = x Then
Text(b) = Val(Text(b)) + 1
Exit For
End If
Next
Next
End Sub

private sub cmd1_click()
dim a%
a=val(inputbox("请输入共产生多少个数"))
for i=1 to a
randomize
b=int(rnd*10+1)
text1=iif(b=1,val(text1)+1,t