QBASIC Program to print the series 1000, 500, 250, 125, 62.5

Using FOR...NEXT

CLS
n = 1000
FOR i = 1 TO 5
      PRINT n;

QBASIC Program to print the series 1, 27, 125, 343, 729

Using FOR...NEXT

CLS
n = 1
FOR i = 1 TO 5
      PRINT n ^ 3;

QBASIC Program to print the series 1, 8, 27, 64, 125...up to 10th term.

Using FOR...NEXT

CLS
FOR i = 1 TO 10
      PRINT i ^ 3;
NEXT i

QBASIC Program to print the series 1, 4, 9, 16, 25....up to 10th term.

Using FOR...NEXT

CLS
FOR i = 1 TO 10
     PRINT i ^ 2;
     NEXT i

QBASIC Program to print the series 5, 25, 125, 625, 3125 …. up to 7th terms.

Using FOR...NEXT

CLS
a = 5
FOR i = 1 TO 7
      PRINT a;
      a = a * 5

WAP to input any string and count total no. of consonant.

QBASIC Program to input any string from the user and count and print the total number of consonant letter. 

CLS
INPUT "Enter any String : "; s$
c = 0
FOR i = 1 TO LEN(s$)
      r$ = MID$(s$, i, 1)
      c$ = UCASE$(r$)

WAP to input any string and count total no. of vowels.

QBASIC Program to input any string from the user and count the total number of vowel letters from the given string and print the total number of vowel letter. 

CLS
INPUT "Enter any String : "; s$
c = 0
FOR i = 1 TO LEN(s$)
      r$ = MID$(s$, i, 1)
      c$ = UCASE$(r$)