7 lines
176 B
VB.net
7 lines
176 B
VB.net
Dim PlusInfinity as Double
|
|
Dim MinusInfinity as Double
|
|
Dim IndefiniteNumber as Double
|
|
On Error Resume Next
|
|
PlusInfinity = 1 / 0
|
|
MinusInfinity = -1 / 0
|
|
IndefiniteNumber = 0 / 0
|