Private Sub Command1_Click()

Dim a as Integer

a=Val(Text1.text) ‘将文本框中的数字文本转换成数值

a=2*a+1

Text1.text = StrA.

End Sub

程序运行时在文本框Text1中输入1，连续两次单击命令按钮Command1后，Text1中显示的内容是：（   ）

    m=1：k=1

    For i=2 To 10

      If a(i)<a(i-1)Then

    k=k+1

         If k>m Then m=k

       Else

         k=1

       End If

    Next i

    Text1．Text=Str(m)

  End Sub

执行该程序段，文本框Text1中显示的是 （  ）

s = ""

For i = 1 To Len(Text1.Text)

   s = s + Mid(Text1.Text, Len(Text1.Text) - i + 1, 1)

Next i

若文本框Textl中输入“a1b2c3”,执行程序后，变量s的值为（  ）

依次输入x的值为5、3、-1后，该算法的输出结果为（  ）

PRIVATE SUB FORMCLICK

  FOR I = 3 TO {#blank#}1{#/blank#}

     F=0

     FOR J= 2 TO I-1

       IF {#blank#}2{#/blank#} THEN

        F=1

        EXIT FOR

       END IF

     NEXT J

  IF F=0   THEN {#blank#}3{#/blank#}

  {#blank#}4{#/blank#}

 END SUB