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

admin2010-09-11  38

问题 本程序的功能是利用随机数函数模拟投币,方法是:每次随机产生一个0或1的整数,相当于一次投币,1代表正面,0代表反面。在窗体上有3个文本框,名称分别是Text1、Text2、Text3,分别用于显示用户输入投币总次数、出现正面的次数和出现反面的次数,如图16-12所示。程序运行后,在文本框Text1中输入总次数,然后单击“开始”按钮,按照输入的次数模拟投币,分别统计出现正面、反面的次数,并显示结果。以下是实现上述功能的程序,请填空。
Private Sub Command1_Click()
Randomize
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
TextText=n1
TextText=n2
End Sub

选项

答案n ,1

解析 从填空[14]的位置来看,此处应该放置For循环的循环终值。根据题意,填空[14]为变量n。因变量n1的结果赋给Text2中,n1应放置正面的次数,所以填空[15]应为1。
转载请注明原文地址:https://kaotiyun.com/show/Qfmp777K
0

最新回复(0)