一个vb题 不算难

来源：百度知道 编辑：UC知道 时间：2024/04/27 23:37:17
本程序的功能是利用随机数函数模拟投币，方法是：每次随机产生一个0或1的整数，相当于一次投币，1代表正面，0代表反面。在窗体上有三个文本框，名称分别是Text1、Text2、Text3，分别用于显示用户输入投币总次数、出现正面的次数和出现反面的次数，如图所示。程序运行后，在文本框Text1中输入总次数，然后单击“开始”按钮，按照输入的次数模拟投币，分别统计出现正面、反面的次数，并显示结果。以下是实现上述功能的程序，请填空
Private Sub Command1_Click()
Randomize
n = CInt(Text1.Text)
n1 = (24) _
n2 = 0
For I = 1 To (25) _
r = Int(Rnd*2)
If r = (26) _Then
n1 = n1 + 1
Else
n2 = n2 + 1
End If
Next I
Text2.Text = n1
Text3.Text = n2
End Sub

24. 0
25. n
26. 1

窗体上画一个 command1 、 text1 、 text2、 text3
Private Sub Command1_Click()
If Text1.Text = "" Then
MsgBox " 请输入数字"
Else
Randomize
n = CInt(Text1.Text)
n1 = 0
n2 = 0
For I = 1 To Val(Text1.Text)
r = Int(Rnd() * 2)
If r = 1 Then
n1 = n1 + 1
Else
n2 = n2 + 1
End If
Next I
Text2.Text = n1
Text3.Text = n2
End If
End Sub

以下通过vb 6.0调试.能正常运行
Private Sub Command1_Click()
Randomize
n = CInt(Text1.Text)
n1 = n
n2 = 0
For I = 1 To n
r = Int(Rnd * 2)
If r = 0 Then
n1 = n1 + 1
Else
n2 = n2 + 1
End If
Next I
Text2.Text = n1
Text3.Text = n2
End Sub

24. 0
25. n
26. 1