1. (2020高二下·浙江期末) 某数据解密算法描述如下：

⑴在输入的数字字符串中依次提取有效的密文，有效的密文的特点：

①是一组连续的，都小于5的三位数字串；②每个位置上的数字不能被重复提取；

⑵对有效密文进行解密的过程：

将密文作为一个五进制数转换为对应的十进制数值，根据ASCII字符的十进制编码表，得出对应的明文字符（提示：空格符所对应的ASCII码值为十进制数32，小写字母”z”所对应的ASCII码值为十进制数122）。

例如，密文242转换成十进制数为72，对应的明文字符为大写字母“H”。

程序运行界面如下图所示，在文本框Text1中输入密文，单击“解密”按钮，在文本框Text2中输出解密后的明文密码。

1. （1） 若输入的密文为“841497230235”，则对应的明文是。
3. （2） 实现上述功能的VB代码如下，加框处的语句有错，应改为。
5. （3） 请在划线处填入合适的代码。

   '以下代码是将有效密文数字转换为十进制数的函数

   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  Then

        

         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