本程序的功能是利用随机数函数模拟投币,方法是;每次随机产生一个0或1的整数,相当于一次投币,1代表正面,0代表反面。在窗体上有三个文本框,名称分别是Text1、Text2、 Text3,分别用于显示用户输入投币总次数、出现正面的次数和出现反面的次数,如图所

admin2006-08-25  42

问题 本程序的功能是利用随机数函数模拟投币,方法是;每次随机产生一个0或1的整数,相当于一次投币,1代表正面,0代表反面。在窗体上有三个文本框,名称分别是Text1、Text2、
Text3,分别用于显示用户输入投币总次数、出现正面的次数和出现反面的次数,如图所示。

程序运行后,在文本框Text1中输入总次数,然后单击“开始”按钮,按照输入的次数模拟投币,分别统计出现正面、反面的次数,并显示结果。以下是实现上述功能的程序,请填空。
Private Sub Command1_Click(  )
    Radomize
    n=CInt(Text1.Text)
    n1=0
    n2=0
    For i=1 To 【  】 
       r=Int(Rnd*2)
       If r= 【  】  Then
          n1=n1+1
       Else
          n2=n2+1
       End If
    Next
    Next2.Text=n1
    Next3.Text=n2
    End Sub

选项

答案n , 1

解析
转载请注明原文地址:https://jikaoti.com/ti/WV80FFFM
0

随机试题
最新回复(0)