(2)
实现上述功能的VB代码如下。划线处的语句有错,应改为________。
'以下代码是将有效密文数字转换为十进制数的函数
Function conv(p As String)
As Integer
Dim k As Integer, q As String, i As Integer
k = 0: g = ""
For i = 1 To 3
q = Mid(p, i, 1)
①
Next i
conv = k
End Function
Private Sub
Command1_Click()
Dim st As String, p As String, res As String
Dim c1 As String, c2 As String, c3 As String
Dim i As Integer, d As Integer, n As Integer
st = Text1.Text: n = Len(st)
i = 1: res = ""
Do While i <= n – 2 '提取有效密文,并进行转换
c1 = Mid(st, i, 1): c2 = Mid(st, i + 1, 1):
c3 = Mid(st, i + 2, 1)
If c1
②
d=conv(p)
If d >= 32 And d <= 122 Then res =
res + Chr(d)
③
Else
i = i + 1
End If
Loop
Text2.Text = res
End Sub