方法二 } retVal = 0; /* 不能被4整除 */ if (0 == Num & 0x3){ retVal = 1; /* 能被4整除 */ } return retVal;
转换成ASCII就可以判断了 Dim iA As Integer iA = Asc(Range("a1").Value)If (iA >= 65 And iA <= 90) Or (iA >= 97 And iA <= 122) Then MsgBox "是英文字符"Else MsgBox "不是英文字符"End If