设置宏 @error 的值.
SetError ( 代码 [, 扩展值 [, 返回值]] )
代码 | 设置 @error 的一个整数值. |
扩展值 | [可选参数] 设置 @extended 的整数值. 与 SetExtended() 函数的设置值相同. |
返回值 | [可选参数] 忽略默认值并返回这里设置的值. |
Local $result
= myDiv(5,
0)
If @error
Then
MsgBox(4096, "错误", "除数为
0")
Else
MsgBox(4096, "结果", $result)
EndIf
Exit
Func myDiv($dividend, $divisor)
If $dividend = 0 And
$divisor =
0 Then
SetError(2)
;不定形式 0/0
ElseIf $divisor = 0 Then
SetError(1)
;除数为 0
EndIf
Return $dividend / $divisor
EndFunc ;==>myDiv
provider with jb51.net (unicode) |