[填空题] 本程序的功能是利用随机数函数模拟投币，方法是：每次随机产生一个0或1的整数，相当于—次投币，1代表正面，0代表反面。在窗体上有三个文本框，名称分别是Text1、Text2、Text3，分别

19 查阅

[填空题] 本程序的功能是利用随机数函数模拟投币，方法是：每次随机产生一个0或1的整数，相当于—次投币，1代表正面，0代表反面。在窗体上有三个文本框，名称分别是Text1、Text2、Text3，分别用于显示用户输入投币总次数、出现正面的次数和出现反面的次数，如图所示。程序运行后，在文本框Text1中输入总次数，然后单击“开始”按钮，按照输入的次数模拟投币，分别统计出现正面、反面的次数，并显示结果。以下是实现上述功能的程序，请填空。 Private Sub Command1_Click( )

Randomize

n=CInt(Text1.Text)

n1=0

n2=0

For i=1To 【6】

r=Int(Rnd*2)

If r= 【7】 Then

n1=n1+1

Else

n2=n2+1

End If

Tcxt2.Text=n1

Text3.Text=n2

End Sub

参考答案:

[6]n或CInt(Text1.Text)或CInt(Text1)或Text1.Text或Val(Text1.Text)或Val (Text1)或Text1 [7]1

[6]由于执行次数由n决定，故For i循环的终值为n，即总次数有多少，就要执行多少次For i循环。所以本处填：n或其他等价项目。 “Rnd*2”随机产生0与1之间的数，Int函数对“Rnd*1”的返回值只有0与1两种情况。由于Text2用来接受正面(即1)的次数，故在[7]处要填1，即当“r=1”时，变量n1加一次。

计算机考试