计算机进制与信息编码,下列关于计算机信息编码及进制的描述，正确的是（ ）。...

(2)

实现上述功能的VB程序如下，请在划线处填上合适的代码。

Private Sub Command1_Click()

‘密文解密过程

Dim s As String, yw As

String

Dim n As Integer,i As Integer,k

As Integer,value As Integer

Dim flag As Boolean

s =Text1.Text

yw =“”

flag = True

k = Val(Text4.Text)     ‘k为密文的进制

n = Len(s)

value = 0

For i = 1 To n

t = Mid(s, i, 1)

If flag Then

If (t <> “”)Then

If t >=“0” And t <= “9” Then

value =________

Else If t >=“A” And t <= “F” Then

value = value*k+Asc(t)-Asc(“A”) + 10

End If

Else

flag = False

If value <=26 Then

yw =________

Else

yw = yw + “*”

End If

value = 0

End If

Else

If t >=“0” And t <=“9” Then

value = Asc(t) - Asc(“0”)

flag = True

Else If t >= “A” And t <= “F” Then

value = Asc(t) - Asc(“A”)+ 10

flag = True

End If

End If

Next i

If flag Then

If value < = 26 Then

yw = yw + Chr(Asc(“A”) + value - 1)

Else

yw = yw + “*”

End If

End If

Text2.Text = yw

End Sub

Private Sub Command2_Click()

‘密文加密过程

Dim s As String, yw As

String, t As String, key As String

Dim i As Integer, n As

Integer, k As Integer, m As Integer

key = “0123456789ABCDEF”

s = Text2.Text

n = Len(s)

yw = “”

k = Val(Text4.Text)

For i = 1 To n

t = Mid(s, i, 1)

m =________

If m >= 1 And m <= 26 Then

t =“”

Do While m > 0

t = Mid(key,(m Mod k + 1) , 1) + t

________

Loop

mw = mw + t + “ ”

End If

Next i

Text3.Text = mw

End Sub