学进去

已知某数据加密方法如下：将字符的内码以字节为单位进行加密。 将每个字节的后 5 位转换为十进制数，后面跟上“，”和该字节的前 3 个二进制位转换为十进制数，形成该字节的加密形式。例如：

按照上述规则，小明设计了一个解密的 VB 程序，功能如下：单击“解密”按钮，程序依次将文本框 Text1 中的字符提取，进行解密处理，并输出在文本框 Text2 中，程序效果如图 a 所示，请回答下列问题

（1）要改变 Command1 对象上的字体颜色，可以改变 Command1 对象的________属性的属性值。（单选，填字母：A. Caption/B. Font/C. Forecolor/ D.Additem）。
（2）实现上述功能的 VB 程序段如下，请在划线处填入合适的代码。
（3）程序中加框处代码有错，请改正。
Private Sub Command1_Click（）

Const n = 100

Dim s As String, ch As String, nm As String
Dim p As Integer, i As Integer, k As Integer, t As Integer
Dim a（1 To n） As Integer
s = Text1.Text
p = 0: k = 0
For i = 1 To Len（s）

ch = Mid（s, i, 1）

If ch >= "0" And ch <= "9" Then

        ①____________
Else
If k Mod 2 = 1 Then
           ②____________
Else
a（k+1） = p
End If
k = k + 1：p = 0
End If
Next i
a（k + 1） = p * 32 + a（k）
For i = ________
nm = nm + dtoh（a（i））

Next i

Text2.Text = nm

End Sub
Function dtoh（x As Integer） As String

Const st1 = "0123456789ABCDEF"

Do While x > 0

        ③____________
x = x \ 16

Loop

End Function