VB A怎么样加上3变成D 急~~~

chr(asc('A')+3)='D'

在窗体有两个控件text1.text 和command1 ,运行的时候在文本框中输入一位字母，大小写均可。单击command1输出加密后的字母。加密规则在本身的基础上加3。例如a变d ,z变c,代码如下：

Private Sub Command1_Click()
Dim Pa As String
Pa = Text1.Text
Pa = Asc(Pa)
If (Pa >= Asc("a") And Pa <= Asc("w")) Or (Pa >= Asc("A") And Pa <= Asc("W")) Then Pa = Pa + 3
If (Pa > Asc("w") And Pa <= Asc("z")) Or (Pa > Asc("W") And Pa <= Asc("Z")) Then Pa = Pa - 23
Print Chr(Pa)

End Sub

把字符串的每字符位单取出（用循环），求每个字符的ASC码。
然后把ASC码加3，再转回字符。
代码好象就不用别人帮你写了吧。

Function PWD(Text As String) As String
For i = 1 To Len(Text)
PWD = PWD & Chr(Asc(Mid(Text, i, 1)) + 3)
Next
End Function

把字符串取出来 每一位加3
字母的话强制转换成INT形然后加3 然后转换成CHAR形

<link href="lf_style.css" rel="stylesheet" type="text/css">