by Brandon (46 Submissions)
Category: Math/Dates
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Fri 19th April 2002
Date Added: Mon 8th February 2021
Rating: (1 Votes)
function to print the absolute value of a number
Function AbsoluteVal(intVal As Integer) As Long
AbsoluteVal = intVal * 1
If AbsoluteVal < 0 Then: AbsoluteVal = intVal * -1
MsgBox "The absolute value of this number is " & AbsoluteVal
End Function
Private Sub Command1_Click()
'print absolute value of a number
Call AbsoluteVal(Text1)
End Sub