VB编程模拟抛硬币生成N个随机数.大于0.5的代表正面.小于等于0.5的代表反面,统计正反面各多少次

Question

VB编程模拟抛硬币 生成N个随机数.大于0.5的代表正面.小于等于0.5的代表反面,统计正反面各多少次

Answer 1

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,见笑了