Question

我想在VB里如果不输入这些，就跳出对话框提示错误。我写的却不能达到我的效果，见如下命令：

Select Case UCase(Text1.Text)
Case "苹果"
Text2.Text = "11"
Case "香蕉"
Text2.Text = "12"
Case "梨"
Text2.Text = "13"
Case Else
MsgBox（ "输入格式错误，请重新输入！", vbInformation, "提示"）
End Select

Answer 1

改成这样
MsgBox "输入格式错误，请重新输入！", vbInformation, "提示"

追问

改了。出现，一打开小程序，就跳出“输入格式错误，请重新输入！"，之后，即便输入正确的“苹果”或“香蕉”或“梨”，都会跳出“输入格式错误，请重新输入！"。请问该如何修改呢，谢谢~

追答

在你原来的窗体上在添加一个command控件，当你在文本框1里输入苹果文本框就是11了，然后再继续，就行了，具体代码如下：

Private Sub Command1_Click()
Select Case UCase(Text1.Text)
Case "苹果"
Text2.Text = "11"
Case "香蕉"
Text2.Text = "12"
Case "梨"
Text2.Text = "13"
Case Else
MsgBox "输入格式错误，请重新输入！", vbInformation, "提示"
End Select
End Sub

追问

谢谢高手，如果我在本应该输入的Text里输入了并非“苹果”或“香蕉”或“梨”，则Text2清零。因为可能在上一次我输入text1处“苹果”后，在text2处显示了数字“11”。我的命令如下，请帮忙看下，谢谢~
If Text1.Text "苹果" Or "香蕉" Or "梨" Then
Text2.Text = ""
End If

追答

这样的话，你输了之后会是一个msgbox弹出来
你可以在上面的
Case Else
MsgBox "输入格式错误，请重新输入！", vbInformation, "提示"
把MsgBox "输入格式错误，请重新输入！", vbInformation, "提示"
改成

Text2.Text = ""

追问

不过我又想显示---
MsgBox "输入格式错误，请重新输入！", vbInformation, "提示"
又想使得Text2和Ttext3、Text4数据清零，请问该如何写命令呢？谢谢

追答

在end select上面一行添上Text2.Text = ""
这样的话text2.text在msgbox弹出后点击确定后就会清空了

Answer 2

把Ucase去掉
UCase是函数来将某字符串转成全部大写

Answer 3

来试试这个
Private Sub Command1_Click()
MsgBox ("你是大笨蛋")
End Sub