Private Sub Command1 click( )

  Dim a(1 to 3) as integer,k as integer,t as integer,s as integer

  a(1)=15: a(2)=36: a(3)=7

  s=0

  For k=2 to 3

if a(k)>a(1) then

  t=a(1):a(1)=a(k):a(k)=t

  s=s+1

End if

  Next k

  text1.text=str(a(1))

  text2.text=str(s)

End sub

a = a + b

b = a + b

a和b的值分别为（   ）

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, sum As Integer

Dim a(1 To 6) As Integer, b(1 To 6) As Integer

sum = 0

a(6) = 18: a(5) = 7: b(6) = 14: b(5) = 16

For i = 4 To 1 Step -1

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

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

 If b(i) Mod 3 = 0 Then sum = sum + b(i)

Next i

Text1.Text = Str(sum)

该程序段运行后，文本框Text1中显示的内容是（  ）

s=“QUOTES：keep on going never give up!”

flag=False：m=0

For i=1 To Len(s)

        ch=Mid(s，i，1)

        If ch>=“a” And ch<=“z” Then

          If Not flag Then

            m=m+1

            flag=True

        End If

    Else

        flag=False

    End If

Next i

Text 1.Text=Str(m)