Determine if a string is numeric: Difference between revisions
Content added Content deleted
Line 384: | Line 384: | ||
<lang qbasic>INPUT "Your string: ", s$ |
<lang qbasic>INPUT "Your string: ", s$ |
||
IF VAL(s$) = 0 THEN |
IF VAL(s$) = 0 AND s$ <> "0" THEN |
||
PRINT "Not a number" |
PRINT "Not a number" |
||
ELSE |
ELSE |