VB程序的调试初步.doc

VB程序的调试初步VB的错误类型 1、编译错误 2、运行时错误 3、逻辑错误 VB模式1、设计模式2、运行模式3、中断模式调试案例分析：例：7.6代码：Function prime(x As Integer) As Boolean For i = 2 To Sqr(x) If x Mod i = 0 Then ExitFor End If Next i If i = Sqr(x) Then prime = True Else prime = False End IfEnd FunctionPrivate Sub Form_Click() Dim t As Integer For t = 3 To 100 If prime(t) Then n = n + 1 If n Mod 5 0 Then Print t, Else Print End If End If Next tEnd Sub错误处理错误处理语句 格式：on error goto 行号|行标号功能：发生错误时，转到所对应的语句去执行错误处理程序。恢复执行： 格式：resume resume next resume行号|行标号示例：界面：程序代码：Private Sub Command1_Click() On Error GoTo 100 Label4.Caption = Text1.Text / Text2.Text Exit Sub100: msg1$ = 除数不能为零！请重新输入！ msg2$ = 请输入数值 If Err.Number = 11 Then MsgBox msg1$, vbOKOnly Text2.SetFocus Else MsgBox msg2$, vbOKOnly Text2.SetFocus End If Resume NextEnd SubErr.number：错误代码，不同的错误类型，其错误代码不一样。实例：例7.8界面一：界面二代码：Dim logincount As IntegerPrivate Sub cmdcancel_Click() loginsuccedded = False Me.HideEnd SubPrivate Sub cmdok_Click() If txtpassword = password Then loginsuccedded = True Me.Hide Form2.Caption = 用户名： + txtusername.Text + + 日期： + Date$ + + 时间： + Time$() Form2.Show Else logincount = logincount - 1 If logincount 0 Then MsgBox 无效的密码，请重试！, , 登录 txtpassword.SetFocus txtpassword.SelStart = 0 txtpassword.SelLength = Len(txtpassword) Else cmdcancel_Click End If End If End SubPrivate Sub Form_Load() logincount = 3End Sub例7.9界面：代码：Private Sub cmdok_Click()Dim strmsg As StringIf Optmale.Value Then strmsg = strmsg & Optfemale.CaptionElse strmsg = strmsg & Optfemale.CaptionEnd IfIf Optmember.Value Then strmsg = strmsg & 、 & Optmember.CaptionElse strmsg = strmsg & 、 & Optmember.CaptionEnd IfIf Chksports.Value = 1 Then strmsg = strmsg & 、 & Chksports.CaptionEnd IfIf Chkmusic.Value = 1 Then strmsg = strmsg & 、 & Chkmusic.CaptionEnd IfIf Chkreading.Value = 1 Then strmsg = strmsg & 、 & Chkreading.CaptionEnd IfMsgBox strmsg, vbInformation, 输入内容显示End Sub例7.10界面：代码:Private Sub Combo1_Change() Combo2.Text = End SubPrivate Sub Combo1_Click() Combo2.ListIndex = Combo1.ListIndex Combo2.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.ListIndex Combo1.Text = Combo1.List(Combo1.ListIndex)End SubPrivate Sub Command1_Click()If Combo1.Text Then Combo1.AddItem Combo1.Text Combo2.AddItem Combo2.Text Combo2.Refresh Combo1.SetFocusEnd IfEnd SubPrivate Sub Command2_Click()Combo1.RemoveItem Combo1.ListIndexCombo2.RemoveItem Combo2.ListIndexEnd Sub例7.11界面：代码:Private Sub Command1_Click() List1.AddItem Text1.Text + + Combo1.TextEnd SubPrivate Sub Command2_Click() If List1.ListIndex = 0 Then List1.RemoveItem List1.ListIndex Text1.Text = Else MsgBox 请选择要删除的项目！ End IfEnd SubPrivate Sub Command3_Click() List1.ClearEnd SubPrivate Sub Form_A