Question

vb程序 要求将输入的原字符串转换成大写字符串后进行加密,并输出加密字符串

Answer 1

Dim s As String
Private Sub Command1_Click()
's = InputBox("请输入一个英文字符串:")
s = "I have an English book.It has 1234 pages."
For i = 1 To Len(s)
C = UCase(Mid(s, i, 1))
If C >= "A" And C <= "Z" Then
C = Chr(Asc(C) - 3)
If C < "A" Then C = Chr(Asc(C) + 26)
End If
Mid(s, i, 1) = C
Next i
MsgBox ("加密后的字符串是:" & vbCrLf & s)

End Sub

Private Sub Command2_Click()
For i = 1 To Len(s)
C = Mid(s, i, 1)
If C >= "A" And C <= "Z" Then
C = Chr(Asc(C) + 3)
If C > "Z" Then C = Chr(Asc(C) - 26)
End If
Mid(s, i, 1) = C
Next i
MsgBox ("解密后的字符串是:" & vbCrLf & s)
End Sub

Answer 2

如果方便的话去医院就疹当然是最好了