VB编程模拟抛硬币 生成N个随机数.大于0.5的代表正面.小于等于0.5的代表反面,统计正反面各多少次
来源:学生作业帮 编辑:大师作文网作业帮 分类:综合作业 时间:2024/09/22 01:22:40
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的随机数表达式