数字加密VB编程

来源：百度知道 编辑：UC知道 时间：2024/06/10 22:21:40
2、编写一段加密代码以实现对四位数字的加密。加密的过程如下：输入一个四位整数，将每位替换成该位与7 的和对10 的余数，然后将第一位与第三位数字位置互换，第二位与第四位位置互换，最后显示加密后的数字。
要出现一个 “加密” 按钮

在窗体上有两个控件，command1和text1
程序运行时在文本框中输入四位数字，如果不是四位提示请输入四位

代码如下：

Private Sub Command1_Click()
Dim a(4) As Integer
Dim i As Integer
If Len(Text1.Text) <> 4 Then '如果输入的不是四位数要求重新输入
MsgBox "请输入一个四位数", vbOKOnly + vbInformation, "提示"
Text1.SetFocus
Exit Sub
Else
For i = 1 To 4
a(i) = Val(Mid(Text1.Text, i, 1)) '将四位数的每一位分别赋给数组a的四个元素
a(i) = (a(i) + 7) Mod 10 '将每一位与7和，与10取模
Next i
MsgBox "加密后的数字是:" & a(1) & a(2) & a(3) & a(4), vbOKOnly + vbInformation, "提示"
Text1.Text = ""
Text1.SetFocus
End If
End Sub

Private Sub Form_Load()
Command1.Caption = "加密"
Text1.Text = ""
End Sub

2个文本框, text1输入数字, text2显示加密后的数字.
1个按钮, command1.Caption ="加密"

Private Sub Command1_Click()
If Len