如果,是老師布置的(不允許使用該函數),那麽就要用到另外兩個函數,並結合ASCII編碼的知識來實現:
1,ASCII編碼知識:
大寫字母的編碼: 小寫字母的編碼:
A ---- 65 a ---- 97
B ---- 66 b ---- 98
C ---- 67 c ---- 99
...... ......
Z ---- 90 z ---- 122
從而得到規律,大寫字母的ASCII編碼值 + 32 ,就得到其對應的小寫字母的ASCII編碼值;
而 小寫字母的ASCII編碼值 - 32 ,就得到其對應的大寫字母的ASCII編碼值。
2,VB的ASC()函數和Chr()函數;
ASC()函數 ------ 返回字符的ASCII編碼
Chr()函數 ------ 返回ASCII編碼的相應的字符
這樣就可以開始編寫轉換代碼了:
‘將大寫字母轉換成小寫字母;
Dim C As String
C = InputBox("輸入壹個大寫英文字母")
Print Chr(Asc(C)+32)
‘將小寫字母轉換成大寫字母;
Dim C As String
C = InputBox("輸入壹個小寫英文字母")
Print Chr(Asc(C)-32)