Dim i As Integer, Sum As Integer

Dim a(1 To 11) As Integer

Sum = 6

a(11) = 49

For i = 10 To 1 Step -1

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

  If a(i) Mod 3 = 0 Then Sum = Sum + a(i)

Next i

Text1.Text = Str(Sum)

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

下列Visual Basic程序的功能是将K进制(k<=10)数x转换成十进制数。界面如图所示，在文本框Text1中输入数制k，在文本框Text2中输入数x，单击"转换"按钮（Command1）后，在标签Label4中输出转换的结果。

解决此问题的算法流程图如图所示，相应的Visual Basic程序如下：

Private Sub Command1_Click()

Dim b As Long, i As Integer, k As Integer, x As Long, t As Integer

b = 0: i = 1

k = Val(Text1.Text)

x = Val(Text2.Text)

t = x Mod 10

    Do While      ①    

        b =       ②     

        x = x \ 10

        t = x Mod 10

        i = i + 1

    Loop

Label4.Caption = Str(k) + "进制数" + Text2.text + "转换成十制数为" + Str(b)

End Sub

在程序①和②划线处，填入适当的语句或表达式，把程序补充完整：

Private Sub Command1_Click()

    Dim i As Integer, n As Integer

    Dim s As Integer, t As Integer, k As Integer

    s = 0

    For i = 1 To 1000

        n = i

        t = 0

        k = 0

        Do While n > 0

            If n Mod 2 = 1 Then t = t + 1 Else k = k + 1

           {#blank#}1{#/blank#}

        Loop

        If {#blank#}2{#/blank#}Then s = s + 1

    Next i

    Text1.Text = Str(s)

End Sub

以原文：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#}