Private Sub Command1_Click()

Dim ch As String, s As String

Dim i As Integer, j As Integer

ch = Text1.Text

   For i = 1 To {#blank#}1{#/blank#} 

        j = Asc(Mid(ch, i, 1))

        If j > 96 And j < 123 Then

           s = s + Chr(j - 32)

        Else

         s = s + Chr(j)    

        End If

   Next

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

End Sub

   Dim a,b,c As Integer

   Dim s AS string

   a=9

   b=41

   c=2*(a+b)

   s=str(b+c)

    Dim P As Integer, q As Integer, S As Integer, t As Integer

    p=Val(Text1．Text)

    t=0

    For q=P+1 To 2*p

      s=(p*q)Mod(q-p)

      If s=0 Then

         t=t+1

      End If

    Next q

    Label1. Caption=Str(t)

该程序段运行时，在文本框Text1中输入8，则在标签Label1中显示的内容是（  ）

For i=1 to n

        ⑴      Next i

For i=1 to n-1 k=i

For j=i+1 To n

If      ⑵   Then k=j Next j

If k <> i Then

           ⑶     End if

Next i

上述程序段3个方框处的代码分别为（  ）

Private Sub Command1_Click()

  Dim a(5) as Integer

  Dim n as Integer, i as Integer

  n = Val(Text1.Text)

  i = 0

  a(1) = 1

  a(2) = 1

  For i = 3 To n

    a(i) = a(i-1) + a(i-2)

  Next i

  Label1.Caption = a(i)

End Sub

若在Text1中输入5，则点击按钮后的运行结果为（  ）