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

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

n\2

先将N个数赋值给ai
dim k as Integer
k=0
for i=1 to N
if ai<0.5 then
k=k+1
end if
next