作业帮 > 综合 > 作业

利用随机函数,模拟投币结果.设共投币100次,求“两个正面”、“两个反面”、“一正一反”3种情况各出现

来源:学生作业帮 编辑:搜狗做题网作业帮 分类:综合作业 时间:2024/07/07 11:02:28
利用随机函数,模拟投币结果.设共投币100次,求“两个正面”、“两个反面”、“一正一反”3种情况各出现
利用随机函数,模拟投币结果.设共投币100次,求“两个正面”、“两个反面”、“一正一反”3种情况各出现
Private Sub Form_Click()
Randomize Timer
Dim a(1,1)
For i=1 To 100
n1=Int(Rnd*2)
n1=Int(Rnd*2)
a(n1,n2)=a(n1,n2)+1
Next i
Print "投币结果如下:"
Print " 两个正面的次数为:"; a(0,0)
Print "两个反面的次数为:"; a(1,l)
Print "一正一反的次数为:"; a(0,1) + a(1,0)
End Sub
“两个正面”,“两个反面”各是25次,”,“一正一反”50次