Private Sub Command1_C1ick ( )

Dim a(0 to 5) As Integer

a(5)=Val(Text1.text)

For I=4 to 1 step -1

a(I)=a(I+1)/2

Next I

Text2.text=str(a(I))

End sub

在文本框Text1中输入“96”，单击命令按钮Command1后，文本框Text2中显示的内容是（   ）

Private Sub Command1_Click()

  n = 6

  x = 1

For i =1 To n

  x = x * i

Next

End Sub（   ）

Private Sub Command1_Click( )

   Dim  s  As  Integer

   Dim  I  As  Integer

   S=0

   For i=1 To 10

      s=s+i\7

   Next i

   Text1.text=str(s)

End sub

该程序段运行后，文本框Text1中显示{#blank#}1{#/blank#} 

Private Sub Command1_Click()

Dim x As String, i As Integer

For i = 1 To 10

  If i Mod x = 1 Then

     x = "奇数"

  Else

    x = "偶数"

Next i

……

End Sub

产生此错误的语句是(   )。

x=10

y=3

print(x%y，x**y)

Private Sub Command1_Click()

    Dim a As Integer, b As Integer

    Dim c As Integer                     '①

    a= Val(Text1. Text)                     '②

    b = Val(Text2. Text)

    c=a + b                             '③

    Label1. Caption ="a + b="+c        '④

End Sub