vb中关于on error goto errhandler中的问题

我感觉我好像走入了一个误区,我想问一下如果不发生错误,那errhandler:下的语句,因该是要执行吗?
我有点晕了,比如:
on error goto errhandler
k=5/0

errhandle:
msgbox “有可能除数是0”
我知道,如果这样的话,就会直接执行到 msgbox。

但是如果这样:
on error goto errhandler
k=5/1

errhandle:
msgbox “有可能除数是0”
我现在的情况是也会执行 msgbox。

我有点不清楚这个语句了,不是只有错误才会转到错误行吗?
难道无论有无错误都要执行吗?

一般是这么来的:

on error goto errhandler
k=5/0
Exit Sub '未发生错误,则退出Sub
errhandle:
msgbox “有可能除数是0” '若发生错误,则弹出提示,再退出Sub
End Sub
温馨提示:内容为网友见解,仅供参考
无其他回答

VB 取消问题
'On Error GoTo ErrHandler 把这句注释的撇去掉,恢复语句。在Text1.Text = InputFile '显示这个打开文件的路径这句后加入exit sub

请问vb中如果报错,想要弹出对话框为“输入错误,请重新输入”,而不是...
Private Sub Form_Load()On Error GoTo Myerr‘---此句表示发生错误,则处理Myerr下面的代码 Dim t As Long t = InputBox("输入数字", "输入")Debug.Print t Exit Sub‘---有了此句,没有发生错误,则退出过程,不执行下面的代码。Myerr:’---从这里开始,处理错误问题。MsgBox "输入错误...

vb 记事本 调保存框后 如果不保存 取消 就会出现错误
这个问题应该是这样解决:commondialog1.cancelerror=true on errror goto errhandler ………exit sub errhandler:end sub

vb求教就是输入3个数字 然后按大小顺序输出
Sub temp()On Error GoTo ErrHandler:Nos = InputBox("请输入3个数字并用半角逗号“,”分开")Dim ResultArray(3)Nos = Nos & ","Start = 1 For i = 1 To 3 NextPos = InStr(Start, Nos, ",")ResultArray(i) = Mid(Nos, Start, NextPos - Start) * 1 Start = NextPos + 1 N...

VB 显示打开文件对话框
1、启动vb6。2、在菜单-工程-部件-添加Microsoft Common Dialog Control 6.0 (SP6)3、添加CommonDialog1、Command1到窗体。4、程序代码:Private Sub Command1_Click()' 设置“CancelError”为 True CommonDialog1.CancelError = True On Error GoTo ErrHandler ' 设置标志 CommonDialog1.Flags = cdl...

vb6.0问题,取消不管用
把Commondialog的CancelError属性设置为True。

VB中如何调用系统字体对话框呢?
On Error GoTo ErrHandler '设置 Flags 属性。CommonDialog1.Flags = cdlCFBoth Or cdlCFEffects '显示“字体”对话框。CommonDialog1.ShowFont '根据用户的选择来设置 '文本属性。Text1.Font.Name = CommonDialog1.FontName Text1.Font.Size = CommonDialog1.FontSize Text1.Font.Bold = Common...

VB颜色选择器的问题!
VB的CommonDialog 控件的标准代码没有问题。应该是你实际代码有问题。标准代码如下:Private Sub Command1_Click()' 设置“取消”为True CommonDialog1.CancelError = True On Error GoTo ErrHandler '设置 Flags 属性 CommonDialog1.Flags = cdlCCRGBInit ' 显示“颜色”对话框 CommonDialog1.ShowColor ...

求vb 6.0 打开文件对话框 操作控件和完整代码。
Private Sub Command1_Click()' 设置“CancelError”为 True CommonDialog1.CancelError = True On Error GoTo ErrHandler ' 设置标志 CommonDialog1.Flags = cdlOFNHideReadOnly ' 设置过滤器 CommonDialog1.Filter = "All Files (*.*)|*.*|Text Files" & _"(*.txt)|*.txt|Batch Files (*....

vb如何去掉最后的换行符?
Option Explicit Dim s As String Dim i As Long Dim fname As String Dim strWj As String Private Sub Command1_Click() ' 设置“CancelError”为 True CommonDialog1.CancelError = True On Error GoTo ErrHandler ' 设置标志 CommonDialog1.Flags = cdlOFNHideRea...

相似回答