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中显示的是 （  ）

Private Sub Command1_Click()

  Dim a As intger, i As intger, s As String

  n = Val(Text1.Text)

  s = ""

  For i = 1 To 2 * n - 1

    If i > n Then          ①          Else          ②            

  Next i

  text2.Text = s

End Sub

为实现以上功能，①②处分别填写（  ）

s = 0：x = 1

Do While x <= 5 s = s + x

x = x + 2 Loop

该程序段运行后，语句“x <= 5”执行的次数是（  ）

Dim c As Integer,a(0 To 5) As Integer

For i = 1 To 5

  a(i) = i

Next i

c = 0

For i = 1 To 5

  x = Int(Rnd * 5 + 1)

  If a(x Mod 5) = i + 2 Then c = c + 1

  If c = x Then Exit For

  i = i - 1

Next i

运行该程序后，变量c的值不可能是（  ）

Dim i As Integer    ——1

Dim s As Integer    ——2

s=1     ——3

For i=1 To 10

 s=s*i    ——4

Next i

Print s

输入a，b两个整数，如果a为大数，则进行交换，然后分别输出大数、小数的值。

a＝int（input（"请输入a："））

b＝int（input（"请输入b："））

if {#blank#}1{#/blank#}：                  #如果a为大数

a, b＝b, a

print（"大数是"，{#blank#}2{#/blank#} ，"小数是"，{#blank#}3{#/blank#}）