VB程序的调试初步.docVIP

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 If End Function Private 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 t End Sub 错误处理 错误处理语句 格式： on error goto 行号|行标号 功能：发生错误时，转到所对应的语句去执行错误处理程序。 恢复执行： 格式：resume resume next resume行号|行标号 示例： 界面： 程序代码： Private Sub Command1_Click() On Error GoTo 100 Label4.Caption = Text1.Text / Text2.Text Exit Sub 100: msg1$ = 除数不能为零！请重新输入！ msg2$ = 请输入数值 If Err.Number = 11 Then MsgBox msg1$, vbOKOnly Text2.SetFocus Else MsgBox msg2$, vbOKOnly Text2.SetFocus End If Resume Next End Sub Err.number：错误代码，不同的错误类型，其错误代码不一样。 实例： 例7.8 界面一： 界面二 代码： Dim logincount As Integer Private Sub cmdcancel_Click() loginsuccedded = False Me.Hide End Sub Private 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 Sub Private Sub Form_Load() logincount = 3 End Sub 例7.9 界面： 代码： Private Sub cmdok_Click() Dim strmsg As String If Optmale.Value Then strmsg = strmsg Optfemale.Caption Else strmsg = strmsg Optfemale.Caption End If If Optmember.Value Then strmsg = strmsg 、 Optmember.Caption Else strmsg = strmsg 、 Optmember.Caption End If If Chksports.Value = 1 Then strmsg = strmsg 、 Chksports.Caption End If If