Function fac(n As Integer) As Long

    fac = 1

    For i = 1 To n

fac = fac * i

    Next i

End Function

Private Sub Command1Click()

Dim s  As Long, j As Integer

For j = 1 To 10

Next

Text1.Text = Str(s)

End Sub

 方框中的正确语句是：（   ）

X = 5：Y = Len（“2.345”）

If  X > Y  Then

   Label1.Caption = “再见！”

Else

Label1.Caption = “你好！”

EndIf

该程序段运行后，在标签Label1上显示的是{#blank#}1{#/blank#}。

Const n = 8

Dim a(1 To n) As Integer

For i = 1 To n

    a(i) = Int(Rnd * 20)

Next i

x = n \ 2

For i = x To 2 Step -1

    For j = 1 To i - 1

      If a(j) < a(i) Then

        t = a(j): a(j) = a(i): a(i) = t

      End If

    Next j

Next i

i = n

Do While i > x + 1

    k = i

    For j = i - 1 To x + 1 Step -1

      If a(j) > a(k) Then k = j

    Next j

    If k <> i Then

      t = a(k): a(k) = a(i): a(i) = t

    End If

    i = i - 1

Loop

执行完这段代码后，数组 a 中各个元素的值可能的是（  ）

以原文：Hello，密钥：123为例，“H”转换为ASCII码后加上密钥的第一个数字1，再转换回ASCII字符，得到“I”;“e”转换为ASCII码，加上密钥的第二个数字2，转换回ASCII得到“g”;“l”则加上密钥的第三个数字3得到“o”;随后原文又出现“1”，但是密钥中的数字已经用完了，则密钥从头开始，加上“1”，得到“m”;“o”则得到“q”，最后产生密文“Igomq”。

具体程序如下，但是有两处加框的代码错误，请改正：

Dim code As String, key As String

Dim i As Integer, res_code As String

Dim l_code As Integer, l_key as Integer

Private Sub Command1_Click( )’加密程序

code = Text1.Text

key = Text2.Text

l_code =Len(code)

l_key =Len(key)

res_code = “”

For i = 1 To      ‘⑴

 c =Asc(Mid(code, i, 1))

 k =      ‘⑵

 res_code = res_code +Chr(k + c)

Next i

Text3.Text = res_code

End Sub

Private Sub Command2_Click( )

‘解密程序略

End Sub

⑴{#blank#}1{#/blank#} ⑵{#blank#}2{#/blank#} 

   Dim A(10)，B(5)

   For i = 1 To 10

       A(i) = i

       Next i

   For j = 1 To 5

       B(j) = j * 20

   Next j

   A(5) = B(2)

   Print "A(5)=";A(5)