Select Case UCase(Text1.Text)
Case "苹果"
Text2.Text = "11"
Case "香蕉"
Text2.Text = "12"
Case "梨"
Text2.Text = "13"
Case Else
MsgBox（ "输入格式错误，请重新输入！", vbInformation, "提示"）
End Select
我想在VB里如果不输入这些，就跳出对话框提示错误。我写的却不能达到我的效果，见如下命令：
答案:4 悬赏:60 手机版
解决时间 2021-02-03 21:15
- 提问者网友：贪了杯
- 2021-02-03 18:23
最佳答案
- 五星知识达人网友：轻熟杀无赦
- 2021-02-03 18:52
改成这样
MsgBox "输入格式错误，请重新输入！", vbInformation, "提示"
MsgBox "输入格式错误，请重新输入！", vbInformation, "提示"
全部回答
- 1楼网友：零点过十分
- 2021-02-03 21:54
来试试这个
Private Sub Command1_Click()
MsgBox ("你是大笨蛋")
End Sub
- 2楼网友：掌灯师
- 2021-02-03 20:44
private sub form_load()
msgbox "选择对话框", vbyesno, "标题"
v = inputbox("输入对话框")
msgbox v
end sub
- 3楼网友：狂恋
- 2021-02-03 20:32
把Ucase去掉
UCase是函数来将某字符串转成全部大写
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯