随机产生10000个0-1之间的数,统计并显示0.5以下及0.5以上的数各有几个,占比例是多少?
来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/06/06 09:00:25
随机产生10000个0-1之间的数,统计并显示0.5以下及0.5以上的数各有几个,占比例是多少?
VB编程
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
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的数.我真心想不会.