Private Sub Command1_Click()

Dim i As Integer, c As Integer, n As Integer

n = Val(Text1.Text)

c = 0

For i = 1 To n

If i Mod 3 = 0 Then c = c + 1

Next i

Label1.Caption = Str(c)

End Sub

运行该程序，在文本框Text1中输入20，单击命令按钮Command1，在标签Label1中显示的是{#blank#}1{#/blank#}。

i=1:j=10:temp=a(5)

Do While a(j)>temp

j=j-1

Loop

Do While a(i)<temp

i=i+1

Loop

temp=a(i)：a(i)=a(j)：a(j)=temp

数组元素a⑴到a(10)的值依次为“36 91 36 17 93 99 2 9 97 97”，执行该程序段后，a(5)的值为（  ）

PRIVATE SUB FORM__CLICK( )

   S=0

  FOR A = 1 TO 5

    FOR B= 1 TO 3

    S=S+1

    NEXT B

  NEXT A

PRINT S

END SUB

For i= 1 To 10

    b(i)=0

Next i

For i= 1 To 5

    For j= 1 To 10

        If b(i) <a(j) Then

          b(i)=a(j)

          t=j

        End If

    Next j

    a(t)=0

    List 1.Additem Str(b(i) )

Next i

其中数组元素a(1)到a(10)的值依次为“25，42，53，66，77，83，98，14，38，99”，执行程序后，在列表框List 1中依次输出的数据是（  ）