SOS:How to simulati the random event with a coin?

[liangchu]

Hi,I want to make a small program with simulating the random event as be throwing a coin. The follwoing is my code:
Dim P as single
Dim n as long, m as long
For q = 1 to 100
P = Rnd
If p<0.5 Then
n = n +1
Label1.Caption = n 'n is number that coin heads after it fall down
Else
m = m +1
Label2.Caption = m
End If
Next q
But both sides(front and back) of a coin are equal only q is less than 100.Why? Thanks a lot.

[Hack]

Try this

Private Sub Command1_Click()
Dim P As Single, q As Integer
Dim n As Long, m As Long
For q = 1 To 100
    'without Randomize you are not getting a random number
    Randomize   
     P = Rnd
    If P < 0.5 Then
        n = n + 1
        'n is number that coin heads after it fall down
        Label1.Caption = n 
    Else
        m = m + 1
        Label2.Caption = m
    End If
Next
End Sub