Private Sub Command1_C1ick ( )

Dim a(9) As Integer

a(9)=Val(Text1.text)

For i=8 to 1 step -2

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

Next i

Text2.text=str(a(i))

End Sub

Dim a(l To 100) As String

Private Sub Commandl_Click()

  Dim c As Integer, t As String, ans As String

  s = Textl. Text

  k = Val(Text2. Text)

  ans =“”

  For i = 1 To Len(s) - k - 1

    c = c + 1

    a(c) = Mid(s, i, 1) + Mid(s, i + k + 1, 1)

    If check(c) Then

      ans = ans + a(c) + "，"

    Else

      c = c - 1

    End If

  Next i

  Text3. Text = ans

End Sub

Function check(k As Integer) As Boolean

  Dim i As Integer

  check = True

  For i = 1 To k - 1

    If a(i) = a(k) Then check = False: Exit For

  Next i

End Function

若该程序段执行后，在文本框Text1中输入的字符串长度不超过10，文本框Text2中输入的值在0到8范围内（输入输出都不包括双引号本身），下列说法不正确的是（  ）

n = 6

d(1) = 23: d(2) = 31: d(3) = 19: d(4) = 33: d(5) =58: d(6) = 28

k = Abs(d(2) - d(1))

For i = 3 To n

 If Abs(d(i) - d(i - 1)) > k Then k = Abs(d(i) - d(i - 1))

Next i

Text1.Text = Str(k)

上述程序段执行后，文本框Text1显示的内容是（  ）

在这个算法中，最多有几次猜价机会（  ）

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