QBASOC Program to print whether the given number is Prime or Composite

CLS
INPUT "Enter any Number "; n
FOR i = 1 TO n
     IF n MOD i = 0 THEN c = c + 1
NEXT i
IF c = 2 THEN
     PRINT "Prime Number"

Program to print the given string in Reverse Order (QBASIC)

CLS
INPUT "Enter any String "; s$
FOR i = LEN(s$) TO 1 STEP -1
     r$ = MID$(s$, i, 1)
     b$ = b$ + r$

Program to print the Numeric Series 3, 10, 5, 16, 8 (Hill-stone Number)

Using FOR...NEXT

CLS
n = 3
FOR i = 1 TO 5
     PRINT n;
     IF n MOD 2 = 0 THEN
          n = n / 2

Program to Print the Fibonacci Series 1, 1, 2, 3, 5, 8 ... up to 10th term

Using FOR...NEXT

CLS
x = 1
y = 1
PRINT x; y;
FOR i = 1 TO 10
     z = x + y
     PRINT z;
     x = y

Write a program to print the numeric series 0.11111, 0.1111, 0.111 .... 0.1

Using FOR...NEXT

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

WAP to print 0.1, 0.11, 0.111 .... up to 7th term.

Using FOR...NEXT

CLS
a = 0.1
FOR i = 1 TO 7
     PRINT a;

Write a program to print 5, 125, ... up to 7th term (QBASIC)

Using FOR...NEXT

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

Write a Program to Enter any two numbers and print average number

QBASIC Program to get any two numbers from the user and print the average. 

CLS
INPUT "Enter First Number: "; a
INPUT "Enter Second Number: "; b 
av=(a+b)/2

Write a Program to Enter any two numbers and display the sum

QBASIC Program to get any two numbers from the user and print their sum on the screen. 

CLS
INPUT "Enter First Number: "; a
INPUT "Enter Second Number: "; b 
s=a+b 

QBASIC File Handling Appending Data File Example

Write a program to add some new records in the existing data file STUDENT.DAT. The program should prompt to the user for adding next records. 

CLS
OPEN "STUDENT.DAT" FOR APPEND AS #1
DO
INPUT "Enter Name : "; n$
INPUT "Enter Class : "; c