部分敏感加密

发布时间：2021-09-06 00:05:30 浏览数：次

　本题所涉及知识点：要修改按钮 command1 上的字体类型，可在其属性窗口对

　属性设置，若要将“加密”两字修改为“转换”，可在其属性窗口对

　属性进行设置。

　本题中出现加密后的数字间隔较宽，可以让学生思考可能出现问题的语句是哪一行？即可将 x=str(y) 修改为 x=Cstr(y)

　Private Sub Command1_Click() Dim s As String, t As String s = Text1.Text

　 "获取待加密字符 t = "": h = Len(s) For i = 1 To h

　 x = Mid(s, i, 1)

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

　 y = Val(x) + 3

　 If y >= 10 Then y = y - 10

　"解决数字大于 10 时的问题

　 x = CStr(y)

　 End If

　 t = t + x

　"将字符连接起来 Next i Text2.Text = t End Sub