access上机作业！！求帮助！！！

Question

通过键盘输入一行密码原文,点击"译文"按钮,输出译文后的信息. 密码译文要求:字母加2输出,A---C B----D ……X----Z Y----A Z----B;其它不变

Answer 1

Function TranslatePassword(myString As String) As String

Dim intLen As Integer, I As Integer

Dim strLetter As String, strSubtitute As String

intLen = Len(myString)

For I = 1 To intLen
strLetter = LCase(Mid(myString, I, 1))

Select Case strLetter

Case "a": strSubtitute = "c"

Case "b": strSubtitute = "d"

Case "z": strSubtitute = "b"

Case Else: strSubtitute = strLetter

End Select

TranslatePassword = TranslatePassword & strSubtitute

Next I

End Function本回答被提问者采纳