Private Sub Command1_Click()
Dim str As String
Dim char1 As String, char2 As String, temp As String
str = InputBox("请输入两个字符")
If Len(str) = 2 Then
char1 = Left(str, 1)
char2 = Right(str, 1)
If Asc(char1) > Asc(char2) Then
temp = char1
char1 = char2
char2 = temp
End If
If (Asc(char2) - Asc(char1)) Mod 2 = 1 Then
MsgBox str & "的两个字符ASC码差为奇数,它们的后继字符为:" & Chr(Asc(char2) + 1)
Else
MsgBox str & "的两个字符ASC码差为偶数,它们的前趋字符为:" & Chr(Asc(char1) - 2)
End If
End