随机函数怎样编写这个程序？

Question

设计一个程序模拟投1000次硬币，统计出现正反两面的次数，用一个多行文本框来显示每次投掷的结果。用其他两个文本框来显示正面和反面的统计次数。

Answer 1

Dim i As Integer
Randomize
Text1 = ""
Text2 = ""
Text3 = ""
For i = 1 To 1000
    If Rnd() > 0.5 Then
        Text1 = Text1 & "正"
        Text2 = Val(Text2) + 1
    Else
        Text1 = Text1 & "反"
        Text3 = Val(Text3) + 1
    End If
    Me.Refresh
Next i

Answer 2

TEXT控件数组(0-2)
Sub Coin(Byval Number as long)
Dim I As Long
Dim L as long
Randomize
Text1(0).MultiLine=True
For I = 1 To Number 
    If Rnd() > 0.5 Then
        Text1(0) = Text1(0) & chr(13) & "正"
        L=L+1
    Else
        Text1(0) = Text1(0) & chr(13) & "反"
    End If
Next 
Text1(1).text = "正:" & L & "次"
Text1(2).text = "反:" & Number - L & "次"
end Sub调用: Coin 1000
就掷1000次,当然一万次也随便你