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 prime(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 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 Thenstrmsg = 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 = 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