《vb程序的调试初步》由会员分享,可在线阅读,更多相关《vb程序的调试初步(11页珍藏版)》请在金锄头文库上搜索。
1、VB 程序的调试初步VB 的错误类型1、编译错误2、运行时错误3、逻辑错误 VB 模式1、设计模式2、运行模式3、中断模式调试案例分析:例:7.6代码:Function prime(x As Integer) As BooleanFor i = 2 To Sqr(x)If x Mod i = 0 ThenExitForEnd IfNext iIf i = Sqr(x) Thenprime = TrueElseprime = FalseEnd IfEnd FunctionPrivate Sub Form_Click()Dim t As IntegerFor t = 3 To 100If prim
2、e(t) Thenn = n + 1If n Mod 5 0 ThenMsgBox “无效的密码,请重试!“, , “登录“txtpassword.SetFocustxtpassword.SelStart = 0txtpassword.SelLength = Len(txtpassword)Elsecmdcancel_ClickEnd IfEnd IfEnd SubPrivate Sub Form_Load()logincount = 3End Sub例 7.9界面:代码:Private Sub cmdok_Click()Dim strmsg As StringIf Optmale.Value
3、 Thenstrmsg = strmsg & Optfemale.CaptionElsestrmsg = strmsg & Optfemale.CaptionEnd IfIf Optmember.Value Thenstrmsg = strmsg & “、“ & Optmember.CaptionElsestrmsg = strmsg & “、“ & Optmember.CaptionEnd IfIf Chksports.Value = 1 Thenstrmsg = strmsg & “、“ & Chksports.CaptionEnd IfIf Chkmusic.Value = 1 Then
4、strmsg = strmsg & “、“ & Chkmusic.CaptionEnd IfIf Chkreading.Value = 1 Thenstrmsg = strmsg & “、“ & Chkreading.CaptionEnd IfMsgBox strmsg, vbInformation, “输入内容显示“End Sub例 7.10界面:代码:Private Sub Combo1_Change()Combo2.Text = “End SubPrivate Sub Combo1_Click()Combo2.ListIndex = Combo1.ListIndexCombo2.Text
5、 = Combo2.List(Combo1.ListIndex)End SubPrivate Sub Combo1_KeyPress(KeyAscii As Integer)If KeyAscii = 13 Then Command1_ClickEnd SubPrivate Sub Combo2_Click()Combo1.ListIndex = Combo2.ListIndexCombo1.Text = Combo1.List(Combo1.ListIndex)End SubPrivate Sub Command1_Click()If Combo1.Text = 0 ThenList1.RemoveItem List1.ListIndexText1.Text = “ElseMsgBox “请选择要删除的项目!“End IfEnd SubPrivate Sub Command3_Click()List1.ClearEnd SubPrivate Sub Form_Activate()Text1.SetFocusEnd SubPrivate Sub Form_Load()Combo1.AddItem “教授“Combo1.AddItem “本科生“Combo1.AddItem “研究生“Combo1.Text = Combo1.List(0)End Sub