To count the number of words in given string. (Qbasic Code)
- CLS
1:
INPUT "Enter the string"; a$
IF a$ = "" THEN
PRINT "No input given. ";
PRINT
GOTO 1:
END IF
c = 1
FOR i = 1 TO LEN(a$)
IF MID$(a$, i, 1) = " " THEN
c = c + 1
END IF
NEXT i
PRINT "The total number of words is"; c
END
