作业帮VB编程模拟抛硬币 生成N个随机数.大于0.5的代表正面.小于等于0.5的代表反面,统计正反面各多少次
来源：学生作业帮 编辑：作业帮 分类：综合作业 时间：2024/05/16 18:44:21
VB编程模拟抛硬币 生成N个随机数.大于0.5的代表正面.小于等于0.5的代表反面,统计正反面各多少次
Private Sub Command1_Click()
Dim i As Integer,N As Integer,num1 As Integer,num2 As Integer
N = Val(InputBox("请输入抛硬币的次数："))
For i = 1 To N
Randomize
t = Rnd（）
If t > 0.5 Then
num1 = num1 + 1
Else
num2 = num2 + 1
End If
Next
Print "正面次数为：" & num1
Print "反面次数为：" & num2
End Sub
num1用来记录正面的次数
num2用来记录反面的次数
Rnd()是取0至1之间的一个随机数
其他的就写成：Int((上界 - 下界 + 1) * Rnd + 下界)
哈哈,初学VB,见笑了
Dim i As Integer,N As Integer,num1 As Integer,num2 As Integer
N = Val(InputBox("请输入抛硬币的次数："))
For i = 1 To N
Randomize
t = Rnd（）
If t > 0.5 Then
num1 = num1 + 1
Else
num2 = num2 + 1
End If
Next
Print "正面次数为：" & num1
Print "反面次数为：" & num2
End Sub
num1用来记录正面的次数
num2用来记录反面的次数
Rnd()是取0至1之间的一个随机数
其他的就写成：Int((上界 - 下界 + 1) * Rnd + 下界)
哈哈,初学VB,见笑了
VB编程模拟抛硬币 生成N个随机数.大于0.5的代表正面.小于等于0.5的代表反面,统计正反面各多少次
抛硬币vb程序,生成n个随机数,大于0.5代表正面,小于0.5代表反面,统计多次抛硬币后,正反各多少次!
求一个模拟扔硬币统计连续正面反面次数的程序
编写应用程序,用0-1之间的随机数来模拟扔硬币实验,统计扔1000次后出现正反面的次数并输出
求一个概率计算公式可以计算比如抛硬币正反面,求出正面或者反面多少次理论上一定会出现,有人记得麻烦发.
Matlab模拟扔硬币,0-0.5为正面,0.5-1为反面,次数为随机产生的N,图像要求显示随N的增加两个概率的变化情况
将一枚硬币连掷3次,出现“2个正面 1个反面”和“1个正面 2个反面”的概率各是多少?
将一枚硬币连掷3次,出现“2个正面、1个反面”和“1个正面、2个反面”的概率各是多少?
硬币游戏:写一个程序模拟反复抛硬币,直到连续出现三次正面或反面为止,此时你的程序应该显示抛硬币的总次
将一枚硬币连掷3次,出现“2个正面、1个反面”和“1个正面、2反面”的概率各是多少?
抛一硬币,抛多少次才能保证出现正面的频率在0.0.6之间的概率大于等于0.(是用切比雪夫不等式算的吗?
vb 产生大于10小于100的随机数表达式