通过

Assert 方法

  • 项目

当 booleanexpression 在方法出现所在的行处返回 False 时，有条件地挂起执行。

语法

对象。Assertbooleanexpression

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

Part 说明
object 必填。 始终是 Debug 对象。
booleanexpression 必填。 一个计算结果为 True 或 False 的表达式。

备注

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

始终会计算所有 booleanexpression。 例如，即使 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

另请参阅

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。