Debug.Assert的作用是什么？

爱疯 · 发表于 2010-3-6 14:33

Option Explicit
Private blnAssert As Boolean
Private intNumber As Integer

Private Sub Command1_Click()
    blnAssert = Not blnAssert
    intNumber = IIf(intNumber <> 0, 0, 1)
    Command1.Caption = intNumber
End Sub

Private Sub Command2_Click()
    Debug.Assert blnAssert
End Sub

Private Sub Form_Load()
    Command1.Caption = intNumber
    Command2.Caption = "Assert Tester"
End Sub

以上是帮助的代码，我觉得不对，所以改动了。看着改动后的附件，丝毫感觉不出Debug.Assert有啥用？

谢谢！[em04]

H8yoFVlK.rar (8.6 KB, 下载次数: 6)

吕?布 · 发表于 2010-3-6 17:04

跟Stop差不多吧，只是这个有条件的，而Stop是必须的。

你第一个按钮为0和为1时分别点第二个按钮，为0能中断代码，为1不中断吧

ls · 发表于 2012-12-20 20:23

吕?布发表于 2010-3-6 17:04
跟Stop差不多吧，只是这个有条件的，而Stop是必须的。你第一个按钮为0和为1时分别点第二个按钮，为0能中断代 ...

学习下

无聊的疯子 · 发表于 2012-12-20 20:50

Debug.Assert booleanexpression

当 booleanexpression 为false 时程序被挂起,也就是暂停

用代码做测试

Sub cc()
Dim Hx As Integer
For Hx = 1 To 5
Debug.Assert Hx < 4
Debug.Print Hx
Next
End Sub

复制代码

在本地窗口中可以看到  Debug.Print Hx 的值是  1,2,3
很明显 ,1,2,3, 都是小于4 的,所以前面一直是  true

而程序被挂起时, hx=4  ,4<4 这个条件式是不成立的,所以它返回的是 Fasle
这时候程序就被挂起了!!

无聊的疯子 · 发表于 2012-12-20 20:58

其实他的效果用 stop 的方法来的话,和下面的一样

Sub c()
Dim Hx As Integer
For Hx = 1 To 5
If Hx > 3 Then Stop
Debug.Print Hx
Next
End Sub

复制代码

更具体的区别是
Assert 调用只在开发环境中工作。当模块被编译成为一个可执行的文件时，调用 Debug 对象的方法就会被忽略。

如果在我们的可执行文件中使用 If Hx > 3 Then Stop 的话,则会提示 "遇到 Stop 语句"

这是在 VB 里写的两个程序代码

Private Sub Form_Load()
Dim Hx As Integer
For Hx = 1 To 5
If Hx > 3 Then Stop
Debug.Print Hx
Next
MsgBox "欢迎使用 Debug.Assert 测试程序"
End Sub
Private Sub Form_Load()
Dim Hx As Integer
For Hx = 1 To 5
Debug.Assert Hx < 4
Debug.Print Hx
Next
MsgBox "欢迎使用 Debug.Assert 测试程序"
End Sub

复制代码

这是对应的两个Exe 程序

Debug.Assert.zip (4.92 KB, 下载次数: 15)

		自动登录	找回密码
密码			注册