自上而下两个文本框的名称分别是Text1和Text2，“开始”按钮的名称是Command1。在Text1

中输入数据，单击“开始”按钮，在Text2中显示统计结果。“开始”按钮单击事件处理过程的流程图如右图所示。请根据流程图将下列程序补充完整

     Private Sub Command1_Click( )

       Dim n As Integer, m As Integer, i As Integer

       Dim x As Single, y As Single

       n = {#blank#}1{#/blank#}

       m=0

       Randomize ′初始化Rnd函数

       For i = 1 To n

       x = Rnd ′随机产生x坐标，0≤x＜1

    y = Rnd ′随机产生y坐标，0≤y＜1

    {#blank#}2{#/blank#}

    Next i

    Text2.Text = Str(m)

     End Sub

Private  Sub  Command1_Click (   )

     Dim  a  As  Integer

Dim  b  As  Integer

Dim  C  As  Integer

     a = Val ( Text1．Text )

b = Val ( Text2．Text )

c= a+b^2

Text3．Text = Str(c)

End  Sub

  程序运行时，单击命令按钮Command1后弹出如图所示的错误信息提示。出现错误的原因是（   ）

Private Sub Command1_Click()

  Dim s As String, i As Integer

  s = ""

  For i = 1 To 10 Step 2

      s = Str(i) + s

  Next i

  Text1.Text = s

End Sub

运行程序，单击命令按钮Command1后，在文本框Text1中显示的内容为（    ）

图a

Dim x As Integer, y As Integer, s As Integer

    x=3:y=4

    If x<y And y<0 Then

        s=x Mod y

    ElseIf y>0 and y<x Then

        s=x*y

    ElseIf x=0 Or y=0 Then

        s=x+y

    Else

        s=0

    End If

该程序段运行之后，变量s的值为（  ）

Private Sub Command1_Click()

Dim d(1 To 8) As Integer

Dim i As Integer, s As Integer

d(1)=1

For i=2 To 10

    d(i)=d(i-1)*i

Next i

For i=1 To 5

    s=s+d(i)

Next i

Text1.Text = Str(s)

End Sub

程序运行时，单击命令按钮Command1后，将会出现的提示信息是（  ）