下面的程序的作用是利用随机函数产生10个100~300（不包含300）之间的随机整数，打印其中7

表正面，0代表反面。在窗体上有三个文本框，名称分别是Text1、 Text2、Text3，分别用于显示用户输入投币总次数、出现正面的次数和出现反面的次数，如下图所示。程序运行后，在文本框Text1中输入总次数，然后卑．击“开始”按钮，按照输入的次数模拟投币，分别统计出现正面、反面的次数，并显示结果。以下是实现上述功能的程序，请填空。

Private Sub Commandl_Click()

表正面，0代表反面。在窗体上有三个文本框，名称分别是Text1、Text2、Text3，分别用于显示用户输入投币总次数、出现正面的次数和出现反面的次数，如图所示。程序运行后，在文本框Text1中输入总次数，然后单击“开始”按钮，按照输入的次数模拟投币，分别统计出现正面、反面的次数，并显示结果。以下是实现上述功能的程序，请填空。Private Sub Command1_Click() Randomize n = CInt(Text1.Text) n1 = 0 n2 = 0 For i = 1To r = Int(Rnd*2) If r = ____Then n1 = n1+1 Else n2 = n2+1 End If Next Text2.text = n2 Text2.text = n2 End Sub

A.产生随机数

B.改变数据类型

C.重复

D.结束程序

币，1代表正面，0代表反面。在窗体上有三个文本框，名称分别是Text1、Text2、Text3，分别用于显示用户输入投币总次数、出现正面的次数和出现反面的次数，如图所示。程序运行后，在文本框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

Text2.Text = n1

Text3.Text = n2

End Sub

A.退出if 程序块

B.退出此次循环，直接进入下一次循环

C.退出整个循环

D.退出整个函数

主函数中已置O）。

请在程序的下画线处填入正确的内容并把下画线删除，使程序得出正确的结果。

注意：部分源程序在文件BLANKl．C中。

不得增行或删行，也不得更改程序的结构!

试题程序：