vb利用随机函数产生100个0到9之间的整数,统计一共产生了多少个0,多少个1,统计结果
来源：学生作业帮助网 编辑：六六作业网 时间：2024/11/25 02:11:33
vb利用随机函数产生100个0到9之间的整数,统计一共产生了多少个0,多少个1,统计结果
vb利用随机函数产生100个0到9之间的整数,统计一共产生了多少个0,多少个1,统计结果
vb利用随机函数产生100个0到9之间的整数,统计一共产生了多少个0,多少个1,统计结果
先在窗体上添加一个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