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范围内（输入输出都不包括双引号本身），下列说法不正确的是（  ）

  数组dzb_h的16个元素分别存放16进制数的16个基本数码。

  依次取出原始颜色代码中每一位对应的16进制数码，例如原始颜色代码为#123456，第1次取出1，第2次取出2……

  在数组dzb_h各元素中找到对应16进制数码的元素

  运用规律：0+F=1+E…=7+8取得反相色并累加，例如：数组dzb_h第1个元素值的反相色的值是数组dzb_h第16个元素值。

  输出得到的反相色。

  实现上述功能的VB程序代码段如下，请完善相关程序代码。

Private Sub fx_cmd_Click()

Dim dzb_h(1 To 16) As String

Dim o_c As String, f_c As String, i As Integer, xbxh As Integer, c As String

dzb_h(1)="0":dzb_h(2)="1":dzb_h(3)="2":dzb_h(4)="3":dzb_h(5)="4":dzb_h(6)="5":dzb_h(7)="6"

dzb_h(8)="7":dzb_h(9)="8":dzb_h(10)="9":dzb_h(11)="A":dzb_h(12)="B":dzb_h(13)="C"

dzb_h(14)="D":dzb_h(15)="E":dzb_h(16)="F"

o_c=o_c_txt.Text     

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

f_c="#"

  Do While i<=Len(o_c)

    c=Mid(o_c,i,1)

    If Asc(c)>96 Then {#blank#}2{#/blank#}

    xbxh=1

    Do While xbxh<17

      If {#blank#}3{#/blank#} Then

        f_c={#blank#}4{#/blank#} 

        Exit Do

      End If

      xbxh=xbxh+1

    Loop

    i=i+1

  Loop

  f_c_lab.Caption=f_c

End Sub