Task

Increment a numerical string.




' FB 1.05.0 Win64
 
Function Increment (num As String) As String
  Dim d As Double = Val(num)
  Return Str(d + 1.0)
End Function
 
Dim num(5) As String = {"1", "5", "81", "123.45", "777.77", "1000"}
For i As Integer = 0 To 5
  Print num(i); " + 1", " = "; Increment(num(i))
Next
 
Print
Print "Press any key to exit"
Sleep