Assert 方法-杨雪专栏

语法:

对象。Assert boolean expression

Assert 方法的语法具有以下对象限定符和参数：

语法:

Part 说明

object 必填。始终为 Debug 对象。

boolean expression 必填。一个计算结果为 True 或 False 的表达式。

备注:

Assert 调用只能在开发环境中使用。当模块编译为可执行文件时，对 Debug 对象的方法调用将被省略。

始终会计算所有 boolean expression。例如，即使 And 表达式的第一部分计算结果为 False，也将计算整个表达式。

示例:

以下示例显示如何使用 Assert 方法。此示例需要包含两个按钮控件的窗体。默认按钮名称为 Command1 和 Command2。

运行此示例时，单击 Command1 按钮可在 0 和 1 之间切换按钮上的文本。单击 Command2 要么不执行任何操作，要么导致断言，具体取决于 Command1 上显示的值。断言会在执行最后一个语句后停止执行，并突出显示 Debug.Assert 行。

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