本程序的功能是利用随机数函数模拟投币，方法是：每次随机产生一个0或1的整数，相当于—次投币，1代表正面，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

 TcxtText=n1

 TextText=n2

 End Sub

在窗体上加上一个富文本控件RichTextBox，画一个命令按钮，当单击命令按钮的时候，将显示“保存文件”对话框，设置该对话框可用于保存文本文件(默认文件类型)和Word文档，然后将富文本控件中显示的内容以指定的文件名保存，完成程序。

 Private SubCommand1_Click()

  CommonDialogl.Filter=【 】

  CommonDialogl.FilterIndex=【 】

  CommonDialogl.ShowSave

  RichTextBoxl.SaveFile【 】

 End Sub

栈的基本运算有三种：入栈、退栈和【 】。

本程序的功能是利用随机数函数模拟投币，方法是：每次随机产生一个0或1的整数，相当于—次投币，1代表正面，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

 TcxtText=n1

 TextText=n2

 End Sub

执行下面的程序段，x的值为【 】。

Private Sub Command1_Click()

For i=1 To 9

a=a + i

Next i

x=Val(i)

MsgBox x

End Sub

算法的时间复杂度是指

在窗体上画1个命令按钮，并编写如下事件过程：

Private Sub Command1 Click（　　）

Dim a(3，3)

For m=1 To 3

For n=1 To 3

If n=m or n=4—m Then

假定在图片框控件Picture1中装入了一个图形，为了在程序运行时清除该图形，则应使用下列哪种方法(  )。

下列描述错误的是(  )。

Mid("Hello Everyone"，7，3)的执行结果是

下列数据模型中，具有坚实理论基础的是