VB高手来,Vb中Exit sub的作用?

发布网友 发布时间：2022-05-10 16:52

我来回答

共4个回答

热心网友 时间：2023-07-21 10:06

实际你的程序对exit sub 的作用好像体现不出有没有关系，但是，程序在执行过程中是起作用的，下面我给你举个例子，你就清楚了：
Private Sub Command1_Click()
XT=InputBox("请输入数字","确认输入")
If XT=1 THEN
MsgBox "你输入了数字1！", 16, "不能执行！"
Exie Sub
END IF
Text1.Text="你输入的数字是正确的！"
End Sub

当你在输入框输入数字1后，由于是1，程序进入
MsgBox "你输入了数字1！", 16, "不能执行！"
当你点击确定后，执行
Exit Sub
结束这个过程，不会执行下面的
Text1.Text="你输入的数字是正确的！"

当你输入其他数字后，程序不会执行
MsgBox "你输入了数字1！", 16, "不能执行！" 和
Exit Sub
而执行下面的
Text1.Text="你输入的数字是正确的！"

是否清楚了？

热心网友 时间：2023-07-21 10:07

Exit Do
Exit For
Exit Function
Exit Sub

还有其它几个同类是这样的
意思是退出代码体 执行其它操作
比如你上面的exit Sub
其实是一个良好的编码习惯 虽然在此处有和没的关系不大

一般exit 的用途如下面这样

for i= 1 to 10
if i = 5 then
msgbox "i等于" & i
exit for
Endif
next

这样当i循环到5的时候就会退出不再继续循环操作

热心网友 时间：2023-07-21 10:07

exit这个单词就是退出,不用讲吧.
exit sub就是退出过程退出sub过程式

你试试下面的这个句子,用户名和密码都不要输入字符

Private Sub Command1_Click()
If Text1.Text = "" Then
MsgBox "请输入用户名!", vbOKOnly + vbCritical, "错误"
Exit Sub
If Text2.Text = "" Then
MsgBox "请输入密码！", vbOKOnly + vbCritical, "错误"
End If
End If

End Sub

热心网友 时间：2023-07-21 10:08

为什么要那么复杂呢??像下面这样不好么

Private Sub Command1_Click()
If Text1.Text = "" Then
MsgBox "请输入用户名!", vbOKOnly + vbCritical, "错误"
ElseIf Text1.Text = "wuwenshi" And Text2.Text = "123456" Then
MsgBox "你是合法用户，欢迎进入！", vbOKOnly + vbInformation, "欢迎进入"
Else
MsgBox "用户或密码错误！", vbOKOnly + vbCritical, "错误"
Text1.Text = ""
Text2.Text = ""
End If
End Sub