随机产生10000个0-1之间的数,统计并显示0.5以下及0.5以上的数各有几个,占比例是多少?

来源：学生作业帮编辑：灵鹊做题网作业帮分类：综合作业时间：2024/06/06 00:15:56

随机产生10000个0-1之间的数,统计并显示0.5以下及0.5以上的数各有几个,占比例是多少?
VB编程

Option Explicit
Private Sub Command1_Click()
Dim i%,p!,m%,n%,t%
For i = 1 To 10000
Randomize
p = Format(Rnd,"0.00")
Select Case p
Case Is > 0.5
m = m + 1
Case Is < 0.5
n = n + 1
Case Else
t = t + 1
End Select
Print "0" & p
Next
i = i - 1
MsgBox "产生随机数个数：" & i & vbCrLf _
& " 大于0.5 的个数：" & m & ",占比：" & Format(m / i,"0.00%") & vbCrLf _
& " 小于0.5的个数：" & n & ",占比：" & Format(n / i,"0.00%") & vbCrLf _
& " 等于0.5 的个数：" & t & ",占比：" & Format(t / i,"0.00%")
End Su

随机产生10000个0-1之间的数,统计并显示0.5以下及0.5以上的数各有几个,占比例是多少? 急随机产生3个1到10之间的数并将三数的乘积输出 VB 编程题,产生50个1～100之间的随机整数,显示所有小于60的数. vb利用随机函数产生100个0到9之间的整数,统计一共产生了多少个0,多少个1,统计结果 VB随机产生1000个10-99之间的随机数,统计出现次数最多的数是哪几个? VB编程题目单击按钮随机产生5个0-9之间不同的整数并排序,试求出5个数能组合的所有5位数显示在文本框中,并求出最大数和产生30个1--100之间的随机整数,计算这30个数的平均值,找出30个数中数值大于平均值的数据,并统计出这些数 VB计算：随机产生20个1～100的正整数放入数组中,显示产生的数,并求出其最大值使用java.lang.Math类,生成100个0~99之间的随机整数,找出它们之中的最大值及最小值,并统计大于50的整利用随机函数产生10个30～100之间的随机正整数,求最大值,最小值平均值,并显示数组的值和结果 vfp改错题求解1下列程序用来产生20个0~100之间的随机整数,* 并找出其中的最大数和最小数,输出时20个随机* 整 VB 编程题,产生50个1～100之间的随机整数,显示所有小于60的数.我真心想不会.