计算机16进制表示粉色,红色的RGB值为RGB（255,0,0），若用十六进制表示则为#FF0000H；粉红色的RGB值为RGB（255,192,203），若用十六进制表示则为#FFC0CBH。则用十...

(2)

阅读整段程序，程序中①画线处应填入 ________

程序中②画线处应填入________。

Private Sub Command1_Click()

Dim s As String, ch As String

Dim result As String, chA As String, chB As String

Dim i As Integer, j As Integer

Dim n As Integer, m As Integer

s = Text1.Text

n = Len(s)

result = "": c = "0123456789ABCDEF"

For i = 1 To n

ch =①

ch = niXu(ch)

m = 0

For j = 1 To 4  ' 获取二进制码前4位的值

②

Next

chA = Mid(c, m + 1, 1)

m = 0

For j = 5 To Len(ch)

m = m * 2 + Val(Mid(ch, j, 1))

Next

chB = Mid(c, m + 1, 1)

result = result + chA + chB

Next

Text2.Text = result

End Sub

' 得到单个字符ch的8位二进制编码

Function D2B(ByVal ch As String) As String

Dim s As String

Dim data As Integer, i As Integer

data = Asc(ch)：s = ""

Do While data > 0

s =Str(data Mod 2) + s

data = data \ 2

Loop

If Len(s) < 8 Then

For i = 1 To 8 - Len(s)

s = "0" + s

Next

D2B = s

Else

D2B = s

End If

End Function

' 返回字符串s的逆序

Function niXu(ByVal s As String) As String

Dim i As Integer：Dim r As String

r = ""

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

r = r + Mid(s, i, 1)

Next

niXu = r

End Function