vb高手进 急急急急急急急！！！！！

添加一个command按钮 2个text控件 text1输入要加密的字符 text2输出加密后的字符
Private Sub Command1_Click()
Dim s As Integer
For i = 1 To Len(Text1.Text)
s = Asc(Mid(Text1.Text, i, 1))
If s >= 65 And s <= 90 Then
If s = 89 Then
Text2.Text = Text2.Text & Chr(65)
ElseIf s = 90 Then
Text2.Text = Text2.Text & Chr(66)
Else
Text2.Text = Text2.Text & Chr(s + 2)
End If

ElseIf s >= 97 And s <= 122 Then
If s = 121 Then
Text2.Text = Text2.Text & Chr(97)
ElseIf s = 122 Then
Text2.Text = Text2.Text & Chr(98)
Else
Text2.Text = Text2.Text & Chr(s + 2)
End If
Else
Text2.Text = Text2.Text & Chr(s)
End If
Next
End Sub

这种问题你好意思问
我不好意思答

不就是大小写转变吗？
转大写UCase()函数，转小写LCase()函数。

大概说下原理吧，定义一变量，例pasword as string，两个数组，例PS(10) as string， 把密文赋到这个变量上，分解到一个组里，这个数组里的每个字符再转成ASCII码，ASCII码+2（如果是字母，Y变成A，是Z变成B）后赋给另一个数组，再组合后赋给原来的变量就行了。

将字符转化成ASC码用Asc()函数
将ASC码转化成字符用Chr()函数