vb for nest语句对抛100次硬币,统计出现正反面几率(利用Rnd（）通过循环产生100
发布网友
共2个回答
热心网友
Dim zm As Integer, i As Integer
Randomize
For i = 1 To 100
zm = zm - (Rnd < 0.5)
Next
MsgBox "正面次数：" & zm & vbCrLf & "反面次数：" & 100 - zm
热心网友
代码如下，个人认为100次和1次不是一样的嘛
Dim b, i
b = 0
For i = 1 To 100
Randomize '防止每次生出随机数一样
If Int(Rnd() * 10) >= 5 Then '判断是否0.5或以上
b = b + 1
End If
Next i
'Print b
If b >= 50 Then
MsgBox "正面"
Else
MsgBox "反面"
End If
