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

来源：学生作业帮编辑：作业帮分类：综合作业时间：2024/11/06 02:31:12

先在窗体上添加一个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 Su

vb利用随机函数产生100个0到9之间的整数,统计一共产生了多少个0,多少个1,统计结果 VB.用随机函数产生100个【0,99】范围内的随机整数,统计个位上的数字为0,1,2..9的元素个数（使用数组用VB编程：随机产生10个0~100之间的随机整数,存放在一个数组中,然后求个元素和、平均值,统计 VB编程,用随机函数产生100个【0,99】范围内的随机整数,统计个位上的数字为0的元素个数 vb利用随机函数产生50个1—6之间的整数,分别统计出1的个数,2的个数,3的个数,4的个数,5的个 vb问题利用随机函数产生80个10～99之间的随机整数, 求和VB程序用随机函数产生100个【0,99】范围内的随机整数统计个位上的数字为C的元素个数,个位上的数字为1的元素的个用随机函数产生100个0到999以内的随机整数,输出能够被3整除且个位不为0的数,统计利用随机函数产生50个 [1,4] 之间的整数,分别统计出1的个数,2的个数,3的个数和4的个数. 急求VB编程“利用随机函数产生10个50-100之间的随机整数,求它们的最大值和平均值,要求用数组做”, 写VB代码利用随机函数产生20个50~100之间的随机整数,显示它们的最大值、最小值、和平均值 vb语言中利用随机函数产生20个50~100之间的随机整数,显示他们的最大值,最小值和