VB题目解答

来源：百度知道 编辑：UC知道 时间：2024/05/31 03:32:05
从键盘上输入字母或0到9的数字，编写程序对其分类。字母分为大写字母和小写字母，数字分为基数和偶数。如果输入的是字母或数字，则输出分类结果，否则，输出错误提示。
我很急啊！
这是vb分支结构的题目。

先放一个command1的控件
Private Sub Command1_Click()
Dim b As String
b = InputBox("请输入字母或0到9的数字:")

If b = "0" Or Val(b) > 0 And Val(b) <= 9 And Val(b) Mod 2 = 0 Then
MsgBox "你输入的是偶数!"
ElseIf Val(b) > 0 And Val(b) <= 9 And Val(b) Mod 2 <> 0 Then
MsgBox "你输入的是奇数!"
ElseIf Asc(b) >= Asc("a") And Asc(b) <= Asc("z") Then
MsgBox "你输入的是小写字母!"
ElseIf Asc(b) >= Asc("A") And Asc(b) <= Asc("Z") Then
MsgBox "你输入的是大写字母!"
Else
MsgBox "输入错误!请输入字母或0到9的数字!"
End If
End Sub
注意不要敲错了