Dim ch As String
ch = Chr(Int(Rnd * 200) + 1)
打印ch；
If Asc(ch)>= Asc("A ")和Asc(ch)& lt；= Asc("Z ")那麽
MsgBox“這是壹個大寫字母”，“提示”
ElseIf Asc(ch)>= Asc("a ")和Asc(ch)& lt；= Asc("z ")那麽
MsgBox“這是壹個小寫字母”，“提示”
ElseIf Asc(ch)>= Asc("0 ")和Asc(ch)& lt；= Asc("9 ")那麽
MsgBox“這是壹個數字”，“提示”
其他
MsgBox“不是字母或數字”，“提示”
如果…就會結束
末端接頭