vb利用随机函数模拟投掷一枚硬币,要求统计投掷1000次硬币出现花的�...

发布网友发布时间：2024-10-03 01:31

共2个回答

热心网友时间：2024-10-19 06:29

Private Sub Command1_Click()
Randomize Timer
Dim i As Integer, n As Integer
For i = 1 To 1000
If Int(Rnd * 2) = 0 Then
n = n + 1
End If
Next
MsgBox n

End Sub

热心网友时间：2024-10-19 06:32

option base 1
dim a(1000) as integer
private sub form_click()
for i = 1 to 1000
a(i) = int(rnd*(2-1+1)+1)
if a(i)=1 then n=n+1
next i
print n
end sub
手打望采纳不对可以问我。

热心网友时间：2024-10-19 06:26

Private Sub Command1_Click()
Randomize Timer
Dim i As Integer, n As Integer
For i = 1 To 1000
If Int(Rnd * 2) = 0 Then
n = n + 1
End If
Next
MsgBox n

End Sub

热心网友时间：2024-10-19 06:24

option base 1
dim a(1000) as integer
private sub form_click()
for i = 1 to 1000
a(i) = int(rnd*(2-1+1)+1)
if a(i)=1 then n=n+1
next i
print n
end sub
手打望采纳不对可以问我。