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#}。

首先，分别求出特加密ASCII字符的ASCII码，然后用7位二进制来表示，比如“4”的ASCII码为十进制52，转换为7位二进制为“0110100”

其次，从左至右依次记为第1、2、3....7位，分别把第3、4、5位取反，即0变1， 1变0，至此“0110100”变为“0101000”，将此二进制转换为ASCII码为40，对应的字符为“(”，即“4”经过加密后得到加密字符左括号“(”。

在文本框Text1中输入ASCII字符，单击命令按钮Command，则在文本框Text2中显示经过加密的字符。VB代码如下，程序界面如图所示。

上述加密与解密过程实际上是可以互逆的，请完成下列问题。

s = 0

For i = 1 To 20 Step 2

 If s < 15 Then

  s = s + i

 End If

Next i

以上程序执行结束后，变量s和i的值分别为（  ）

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

Dim s(1 To 81) As Integer, i As Integer, j As Integer, c As Integer, temp As Integer

c=0 : s(1) = 0

For i = 1 To 9

    For j = 1 To i

      temp = s(j * i)

      s(j * i) = j * i

      If temp <> s(j * i) And s(j * i) Mod 9 = 0 Then c = c + 1

    Next j

Next i

该程序段运行后，变量C的值为（   ）

Dim a(1 To 10) As Integer，b(1 To 10) As Integer

k = 0

For i = 10 To 1 Step -1

Do While b(i) <> 0 k = k + 1

a(k) = i: b(i) = b(i) - 1

Loop

Next i

若 a(1)～a(10)的值分别为 7，9，8，1，9，4，4，2，1，1，则运行以上程序后，下列说法正确的是（  ）