Question

如何设置msgbox，点击弹框确定之后返回输入界面继续操作而不是退出程序？

If Val(text1) > 100 Then MsgBox "输入有误，请核对后再输入", 0, "错误提示"
点击弹框之后，会退出程序，如何能够不退出，留在程序界面
我是初学者，希望能给出代码好吗

Answer 1

只这么写是不会退出的 这要看你是在什么地方写 然后才好做对应的判断

追问

我在窗体上设置一个text1，一个text2，一个commond1，按下commond1之后，判断，如果输入text1的数字大于100，就弹框提示错误，并返回界面继续输入，请问我写的那个代码要怎么修改才可以

追答

Private Sub Command1_Click()
If Val(Text1.Text) > 100 Then
MsgBox "输入错误"
Exit Sub
End If
Text2.Text = Text1.Text

End Sub

Answer 2

Private Sub Form_Unload(Cancel As Integer)
Cancel = 1
a = MsgBox("输入有误，请核对后再输入,要退出么？", vbYesNo + vbQuestion, "错误提示")
If a = vbYes Then End
End Sub

Answer 3

修改为有"是"＂否＂的对话MSGBOX
通过判断点击按钮不同做出响应

Answer 4

Form1.show