Question

vb 中怎么用一次click事件触发多次另一个click事件

题目是这个： 设计一个程序，模拟投10000此硬币，统计出现正反两次的次数。用一个多行文本框来显示投掷的结果。用其他两个文本框来显示正面和反面的统计次数。提示：每次投下的硬币不是正面就是反面，是随机过程，概率各为0.5，可以用RND<0.5时表示正面，RND>=0.5表示反面。 我已经设计好了投一次的代码：Option ExplicitDim a As Double   a = Val(Rnd)Private Sub Command1_Click()If a < 0.5 Then   Text1.Text = Text1.Text & "正面 " & vbCrLfEnd IfIf a >= 0.5 Then   Text2.Text = Text2.Text & "反面 " & vbCrLfEnd IfEnd Sub但是有10000次，所以我想用另一个click事件来触发这10000次 有哪位大师有高见？小的先谢谢了

Answer 1

Private Sub Form_Load()
Text1.Text = ""
Text2.Text = 0
Text3.Text = 0
For i = 0 To 1000
a = Rnd()
If a < 0.5 Then
Text1.Text = Text1.Text & "正面 " & vbCrLf
Text2.Text = Text2.Text + 1
Else
Text1.Text = Text1.Text & "反面 " & vbCrLf
Text3.Text = Text3.Text + 1
End If
Next i

End Sub

Answer 2

for i=1 to 10000
call command1_click
next

Answer 3

用循环体实现就是，再设置几个变量作为计数器，记录您所需的数据…