| Code:
|
|
Declare Function Div(a1 As Integer, b1 As Integer) As Integer Dim Res As Integer
Res = 1 / 0 Print Res Print Div(1,0) Sleep
Function Div(a As Integer, b As Integer) As Integer If b = 0 Then Print "Division by zero" End If If b <> 0 Then Return a / b End Function
|