求解Vb题

本程序的功能是利用随机函数模拟投币，方法是：每次随机产生一个0或1的整数，相当于一次投币，1代表正面，0代表反面。在窗体上有3个文本框，分别用于显示用户输入投币总数、出现正面的次数和出现反面的次数，程序运行后，在Text1中输入次数，然后单击“开始”按钮，按照输入的次数模拟投币，分别统计正面和反面的次数，并显示结果。程序如下：
Private Sub Command1_Click()
Randomize
n=CInt(Text1.text)
n1=0
n2=0
For i=1 To n
r=Int(Rnd*2)
If r = 1 Then
n1= n1 + 1
Else
n2= n2 + 1
End If
Text2.Text = n1
Text3.Text = n2
End Sub
希望一位高手把这个程序的每个语句有什么作用给讲一下，拜谢！！！！

Private Sub Command1_Click()
Randomize '初始化随机函数
n = CInt(Text1.Text) '将字符串Text1.Text强制转化为Integer类型的数据，如果输入的是非数值，会出错
n1 = 0 '定义出现正面的次数n1=0
n2 = 0 '定义出现反面的次数n2=0
For i = 1 To n '从1到n开始
r = Int(Rnd * 2) '定义r的值为0和1的随机数
If r = 1 Then '如果r=1，则表示硬币出现正面
n1 = n1 + 1 '出现正面的次数
Else '否则，则表示硬币出现反面
n2 = n2 + 1 '出现发面的次数
End If
Next i '循环下去，知道i=n
Text2.Text = n1 '把出现正面次数赋值给text2.text
Text3.Text = n2 '把出现反面次数赋值给text3.text
End Sub

private sub command1_click() dim i as integer for i = 0 to list1.listcount - 1     if list1.selected(i) then     list2.additem list1.list(i)     end if next end sub