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

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

追问：改了。出现，一打开小程序，就跳出“输入格式错误，请重新输入！"，之后，即便输入正确的“苹果”或“香蕉”或“梨”，都会跳出“输入格式错误，请重新输入！"。请问该如何修改呢，谢谢~谢谢高手，如果我在本应该输入的Text里输入了并非“苹果”或“香蕉”或“梨”，则Text2清零。因为可能在上一次我输入text1处“苹果”后，在text2处显示了数字“11”。我的命令如下，请帮忙看下，谢谢~
If Text1.Text <> "苹果" Or <> "香蕉" Or <> "梨" Then
Text2.Text = ""
End If不过我又想显示---
MsgBox "输入格式错误，请重新输入！", vbInformation, "提示"
又想使得Text2和Ttext3、Text4数据清零，请问该如何写命令呢？谢谢

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

上一个：VB中类型匹配问题
下一个：vb题：确定一个控件位置的属性是什么？？