VB程序的调试初步

《VB程序的调试初步》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、VB程序的调试初步VB的错误类型1、编译错误2、运行时错误3、逻辑错误VB模式1、设计模式2、运行模式3、中断模式调试案例分析：例：7.6代码：Functionprime(xAsInteger)AsBooleanFori=2ToSqr(x)IfxModi=0ThenExitForEndIfNextiIfi>=Sqr(x)Thenprime=TrueElseprime=FalseEndIfEndFunctionPrivateSubForm_Click()DimtAsIntegerFort=3To100Ifprime(t)Thenn=n+1IfnMod5<>0ThenPrintt,Else

2、PrintEndIfEndIfNexttEndSub错误处理错误处理语句格式：onerrorgoto行号

3、行标号功能：发生错误时，转到所对应的语句去执行错误处理程序。恢复执行：格式：resumeresumenextresume行号

4、行标号示例：界面：程序代码：PrivateSubCommand1_Click()OnErrorGoTo100Label4.Caption=Text1.Text/Text2.TextExitSub100:msg1$="除数不能为零！请重新输入！"msg2$="请输入数值"IfErr.Number=11ThenMsgBoxmsg1$,vbOKOnlyText2.

5、SetFocusElseMsgBoxmsg2$,vbOKOnlyText2.SetFocusEndIfResumeNextEndSubErr.number：错误代码，不同的错误类型，其错误代码不一样。实例：例7.8界面一：界面二代码：DimlogincountAsIntegerPrivateSubcmdcancel_Click()loginsuccedded=FalseMe.HideEndSubPrivateSubcmdok_Click()Iftxtpassword="password"Thenloginsuccedded=TrueMe.HideForm2.Caption="用户名："

6、+txtusername.Text+""+"日期："+Date$+""+"时间："+Time$()Form2.ShowElselogincount=logincount-1Iflogincount>0ThenMsgBox"无效的密码，请重试！",,"登录"txtpassword.SetFocustxtpassword.SelStart=0txtpassword.SelLength=Len(txtpassword)Elsecmdcancel_ClickEndIfEndIfEndSubPrivateSubForm_Load()logincount=3EndSub例7.9界面：代码：Priv

7、ateSubcmdok_Click()DimstrmsgAsStringIfOptmale.ValueThenstrmsg=strmsg&Optfemale.CaptionElsestrmsg=strmsg&Optfemale.CaptionEndIfIfOptmember.ValueThenstrmsg=strmsg&"、"&Optmember.CaptionElsestrmsg=strmsg&"、"&Optmember.CaptionEndIfIfChksports.Value=1Thenstrmsg=strmsg&"、"&Chksports.CaptionEndIfIfChkmu

8、sic.Value=1Thenstrmsg=strmsg&"、"&Chkmusic.CaptionEndIfIfChkreading.Value=1Thenstrmsg=strmsg&"、"&Chkreading.CaptionEndIfMsgBoxstrmsg,vbInformation,"输入内容显示"EndSub例7.10界面：代码:PrivateSubCombo1_Change()Combo2.Text=""EndSubPrivateSubCombo1_Click()Combo2.ListIndex=Combo1.ListIndexCombo2.Text=Combo2.List

9、(Combo1.ListIndex)EndSubPrivateSubCombo1_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13ThenCommand1_ClickEndSubPrivateSubCombo2_Click()Combo1.ListIndex=Combo2.ListIndexCombo1.Text=Combo1.List(Combo1.ListIndex)EndSubPrivateSubComma