vb利用随机函数产生100个0到9之间的整数,统计一共产生了多少个0,多少个1,统计结果
来源:学生作业帮助网 编辑:作业帮 时间:2024/07/07 05:00:11
![vb利用随机函数产生100个0到9之间的整数,统计一共产生了多少个0,多少个1,统计结果](/uploads/image/z/3731584-40-4.jpg?t=vb%E5%88%A9%E7%94%A8%E9%9A%8F%E6%9C%BA%E5%87%BD%E6%95%B0%E4%BA%A7%E7%94%9F100%E4%B8%AA0%E5%88%B09%E4%B9%8B%E9%97%B4%E7%9A%84%E6%95%B4%E6%95%B0%2C%E7%BB%9F%E8%AE%A1%E4%B8%80%E5%85%B1%E4%BA%A7%E7%94%9F%E4%BA%86%E5%A4%9A%E5%B0%91%E4%B8%AA0%2C%E5%A4%9A%E5%B0%91%E4%B8%AA1%2C%E7%BB%9F%E8%AE%A1%E7%BB%93%E6%9E%9C)
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