vb利用随机函数产生100个0到9之间的整数,统计一共产生了多少个0,多少个1,统计结果

VB.用随机函数产生100个【0,99】范围内的随机整数,统计个位上的数字为0，1,2.。。9的元素个数（使用数组~

dim a(99) as integerdim i as integerdim sums(9) as integerdim index as integerRandomizefor i=0 to 99 a(i)=int(100*rnd) index=a(i) mod 10 sums(index)=sums(index) +1next ifor i =0 to 9 print i & "的个数是：" & sums(i)next

Private Sub Form_Load()
Dim a(10), i, x, j As Integer
Dim y As String
For i = 0 To 9
Randomize
a(i) = Int(Rnd(1) * 101)
x = x + a(i)
Next i
Print "元素和=" & x
Print "平均值=" & x / 10
For i = 0 To 9
If a(i) > (x / 10) Then j = j + 1: y = y & CStr(a(i)) & " "
Next i
Print "大于平均值的元素个数=" & j
Print "大于平均值的元素：" & y
Me.Refresh
End Sub

先在窗体上添加一个TextBox文本框（将其Multiline属性设置为True，并调整宽高以便能较好的显示出100个随机数）和一个Button按钮。然后双击Button按钮跳转到代码编辑窗口，粘帖以下代码就可以了。（以验证通过）
'vb利用随机函数产生100个0到9之间的整数,统计一共产生了多少个0,多少个1,统计结果
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox1.Text = ""
Dim CountofZero As Integer = 0
Dim CountofOne As Integer = 0
Dim Ran As New Random
Randomize() '初始化随机数生成器
For i As Integer = 1 To 100
TextBox1.Text = TextBox1.Text & Str(Int(10 * Ran.NextDouble))
Next
For n As Integer = 1 To TextBox1.Text.Length
Select Case Mid(TextBox1.Text, n, 1)
Case 0
CountofZero = CountofZero + 1
Case 1
CountofOne = CountofOne + 1
Case Else
Exit Select
End Select
Next
TextBox1.Text = TextBox1.Text & vbCrLf & "有" & CountofZero & "个0； " & "有" & CountofOne & "个1"
End Sub

Private Sub Command1_Click()
Randomize
For i = 1 To 100
x = Int(Rnd * 10)
If x = 0 Then a = a + 1 Else If x = 1 Then b = b + 1
Next i
Print "0出现"; a; "次"
Print "1出现"; b; "次"
End Sub

Private Sub Command1_Click()
Dim n0 As Integer
Dim n1 As Integer
Dim n2 As Integer
For i = 1 To 100
n2 = Int(10 * rnd())
If n2 = 0 Then n0 = n0 + 1
If n2 = 1 Then n1 = n1 + 1
Next i
Text1.Text = n0
Text2.Text = n1
End Sub

---

vb利用随机函数产生100个0到9之间的整数,统计一共产生了多少个0,多少个1,统计结果视频