vbÖÐ×Ö·û´®Ïà¼ÓµÄ¼ÆËãÎÊÌâ

MsgBox Asc("bcd"+"BCD")
ÖÐ"bcd"+"BCD"ÊÇÔõô¼ÆËãµÄ°¡
ΪʲôÊÇ 98

---

MsgBox Asc("b")
MsgBox Asc("B")

aµÄASCIIÂëµÈÓÚ97
bµÄASCIIÂëµÈÓÚ98

AµÄASCIIÂëµÈÓÚ65
BµÄASCIIÂëµÈÓÚ66

---

Private Sub Command1_Click()
    m$ = "BCD"
    n$ = "bcd"
    k$ = LCase$(m$)
    j$ = UCase$(n$)
    MsgBox Asc(k$ + j$)
End Sub
Ô­³ÌÐòÊÇÕâÑùµÄ

---

ΪʲôÊÇ 98°¡ »¹ÓÐcd CD ÄØ

---

ÒýÓÃ

ASC²ÎÊý˵Ã÷
String
±ØÐè¡£ÈκÎÓÐЧµÄ Char »ò String ±í´ïʽ¡£Èç¹û String ÊÇÒ»¸ö String ±í´ïʽ£¬ÔòÖ»½«×Ö·û´®µÄµÚÒ»¸ö×Ö·ûÓÃÓÚÊäÈë¡£Èç¹û String ÊÇ Nothing »ò²»°üº¬ÈκÎ×Ö·û£¬½«»á³öÏÖ ArgumentException ´íÎó¡£

---

ÈçÂ¥ÉÏ£ºAsc("bcd"+"BCD")=asc("b")

---

MsgBox Asc("bcd"+"BCD")
ÖÐ"bcd"+"BCD"ÊÇÔõô¼ÆËãµÄ°¡
ΪʲôÊÇ 98

¡ß "bcd" + "BCD" = "bcd" & "BCD" = "bcdBCD"

¡à Asc("bcd"+"BCD") = Asc("bcdBCD")

¡ß Asc("bcdBCD") = Asc("b")

¡à Asc("bcd"+"BCD") = 98

---

ÒýÓÃ

MsgBox Asc("bcd"+&