检查 NumA 是否可被 NumB 整除
#include <Math.au3>
_MathCheckDiv ( $i_NumA, $i_NumB )
$i_NumA | 被除数 |
$i_NumB | 除数 |
成功: | 不能整除返回 1; |
否则则返回 2. | |
失败: | 返回 -1, 当数字无效时,返回 @errer = 1. |
#include <Math.au3>
Local $I_Var = InputBox('Odd or Even', 'Enter a number:')
Local $I_Result = _MathCheckDiv($I_Var, 2)
If $I_Result = -1 Or @error = 1 Then
MsgBox(0, '', 'You did not enter a valid number')
ElseIf $I_Result = 1 Then
MsgBox(0, '', 'Number is odd')
ElseIf $I_Result = 2 Then
MsgBox(0, '', 'Number is even')
Else
MsgBox(0, '', 'Could not parse $I_Result')
EndIf