QBasic, as it’s name suggests (Quick Beginners All Purpose Symbolic Instruction Code) is a basic programming language which helps you build a basic concept for programming. It helps you understand Looping, Conditional statements and many more. If you are good at QBasic, it will definitely help you a lot in future when you try learning JS and even C.

**Table of Content**show

You might have grabbed a quick knowledge that QBasic is not a professional programming language. It is a simple and basic programming language for you to start learning programming. Though it does not help you build professional programs, but you can definitely build a basic programs and games. Program writing is not difficult when you know the Syntax’s and the logic behind a problem solving.

**You might be interested on: How to run QBasic on Android Phones**

Logic plays a huge role in program writing. You must have known by till know what Qbasic is but for a quick intro. QBasic is a Modular Programming Language because it allows users to work on different Blocks or say module, designed to help beginner programmers to develop basic concept for getting started with programming.

Here we have given you solutions for some QBasic Programs. Programs that you will come across here today will help a student of any grade and also for SEE exams. We hope it helps you clearing your doubts.

**Lets gets started with few QBasic Programs!**

**Q no. 1.** Write a program to check whether the input number is positive, negative or zero.

### Using SUB Procedure :

DECLARE SUB CHECK(N)

CLS

INPUT “Enter any number”; N

CALL CHECK(N)

END

SUB CHECK(N)

IF N > 0 THEN

PRINT N; “It is a positive number”

ELSEIF N < 0 THEN

PRINT N; “It is a negative number”

ELSE

PRINT N; “The number is Zero”

END IF

END SUB

### Using FUNCTION Procedure :

DECLARE FUNCTION CHECK$(N)

CLS

INPUT “Enter any number”; N

PRINT N; “IS “; CHECK$(N)

END

FUNCTION CHECK$(N)

IF N > 0 THEN

CHECK$ = “It is a positive number”

ELSEIF N < 0 THEN

CHECK$ = “It is a negative number”

ELSE

CHECK$ = “The number is Zero”

END IF

END FUNCTION

**Q no. 2.** Write a program to test whether the given number is positive or negative using SUB ………. END SUB.

### Program :

DECLARE NUMTEST(N)

CLS

INPUT “Enter a number”; N

CALL TEST(N)

END

SUB TEST(N)

IF N > 0 THEN

PRINT “The given number” N; “is a positive number”

ELSE

PRINT “The given number” N; “is a negative number”

END IF

END SUB

**Q no. 3.** Write a program which accepts any three different numbers and find the maximum number among them using the CALL statement.

### Program :

DECLARE SUB MAX(A, B, C)

CLS

INPUT “Enter the First number”; A

INPUT “Enter the Second number”; B

INPUT “Enter the Third number”; C

CALL MAX(A, B, C)

END

SUB MAX(A, B, C)

IF A > B AND A > C THEN

PRINT A; “is maximum number”

ELSEIF B > A AND B > C THEN

PRINT B; “is the maximum number”

ELSE

PRINT C; “is the maximum number”

END IF

END SUB

**Q no. 4.** Write a program to display greater number among any two numbers using FUNCTION ………. END FUNCTION.

### Program :

DECLARE FUNCTION GRE(A, B)

CLS

INPUT “Enter the First number”; A

INPUT “Enter the Second number”; B

PRINT “The Greater Number is”; GRE(A, B)

END

FUNCTION GRE(A, B)

IF A > B THEN

GRE = A

ELSE

GRE = B

END IF

END FUNCTION

**Q no. 5.** Write a program to check whether a supplied number is perfect square or not.

### Using SUB Procedure :

DECLARE SUB PSQR(N)

CLS

INPUT “Enter a Number”;N

CALL PSQR(N)

END

SUB PSQR(N)

S = SQR(N)

IF S = INT(S) THEN

PRINT “The supplied number is a perfect square”

ELSE

PRINT “The supplied number is not a perfect square”

END IF

END SUB

### Using FUNCTION Procedure :

DECLARE FUNCTION PSQR$(N)

CLS

INPUT “Enter a Number”; N

PRINT PSQR$(N)

END

FUNCTION PSQR$(N)

S = SQR(N)

IF S = INT(S) THEN

PSQR$ = “The supplied number is a perfect square”

ELSE

PSQR$ = “The supplied number is not a perfect square”

ENDIF

END SUB

**Q no. 6.** Write a program to calculate the volume of a cylinder using FUNCTION ………. END FUNCTION. [Hint : PI * R ^ 2 * H]

### Program :

DECLARE FUNCTION VOL(R, H)

CLS

CONST PI = 3.14

INPUT “Enter Radius of the Cylinder”; R

INPUT “Enter Height of the Cylinder”; H

PRINT “The volume of the cylinder is”; VOL(R, H)

END

FUNCTION VOL(R, H)

V = PI * R ^ 2 * H

VOL = V

END FUNCTION

**Q no. 7.** Write a program to find the factorial number of any non-negative number using FUNCTION ………. END FUNCTION.

### Program :

DECLARE FUNCTION FACT(N)

CLS

INPUT “Enter a non-negative number”; N

PRINT “The factorial of given number is”; FACT(N)

END

FUNCTION FACT(N)

F = 1

FOR I = 1 TO N

F = F * I

NEXT I

FACT = F

END FUNCTION

**Q no. 8.** Write a program to display the reverse of the entered number.

### Using SUB Procedure :

DECLARE SUB REV(N)

CLS

INPUT “Enter a number”; N

CALL REV(N)

END

SUB REV(N)

S=0

WHILE N <> 0

R = N MOD 10

S = S * 10 + R

N = N \ 10

WEND

PRINT “The reversed form is “; S

END SUB

### Using FUNCTION Procedure :

DECLARE FUNCTION REV(N)

CLS

INPUT “Enter a number”; N

PRINT “The reversed form is”; REV(N)

END

FUNCTION REV(N)

S = 0

WHILE N <> 0

R = N MOD 10

S = S * 10 + R

N = N \ 10

WEND

REV = S

END FUNCTION

**Q no. 9.** Write a program to declare a SUB procedure module to generate multiplication table of any non-negative number, where number is passed as a parameter by using SUB ………. END SUB Statement. (Upto 10)

### Program :

DECLARE SUB MULT(N)

CLS

INPUT “Enter a number”; N

CALL MULT(N)

END

SUB MULT(N)

FOR I = 1 TO 10

PRINT N; “*”; I; “=”; N*I

NEXT I

END SUB

**Q no. 10.** Write a program that asks any number and calculates its factors using a SUB procedure.

### Program :

DECLARE SUB FACT(N)

CLS

INPUT “Enter a number”; N

CALL FACT(N)

END

SUB FACT(N)

PRINT “The factors of”; N; “are”

FOR I = 1 TO N

IF N MOD I = 0 THEN PRINT I

NEXT I

END SUB

**Q no. 11.** Write a program to find the sum of factors of input number using SUB Procedure.

### Program :

DECLARE SUB FACT(N)

CLS

INPUT “Enter a Number”; N

CALL FACT(N)

END

SUB FACT(N)

FOR I = 1 TO N

IF N MOD I = 0 THEN S = S + I

NEXT I

PRINT “Sum of factors is”; S

END SUB

**Q no. 12.** Write a program that asks any three numbers and displays the difference between the greatest and the smallest value among the 3 supplied numbers using FUNCTION procedure.

### Program :

DECLARE FUNCTION DIFF(A, B, C)

CLS

INPUT “Enter the First Number”; A

INPUT “Enter the Second Number”; B

INPUT “Enter the Third Number”; C

PRINT “The Difference between the Greatest and Smallest Number is”; DIFF (A, B, C)

END

FUNCTION DIFF(A, B, C)

G = 0

S = 0

IF A > B AND A > B THEN

G = A

ELSEIF B > A AND B > C THEN

G = B

ELSE

G = C

END IF

IF A < B AND A < C THEN

S = A

ELSEIF B < A AND B < C THEN

S = B

ELSE

S = C

END IF

DIFF = G – S

END FUNCTION

**Q no. 13.** Write a program to check whether the entered number is prime or composite.

### Using SUB Procedure :

DECLARE SUB PRIME(N)

INPUT “Enter any number”; N

CALL PRIME(N)

END

SUB PRIME(N)

C = 0

FOR I = 1 TO N

IF N MOD I = 0 THEN C = C + 1

NEXT I

IF C = 2 THEN

PRINT N; “is a Prime number”

ELSE

PRINT N; “is a Composite number”

END IF

END SUB

### Using FUNCTION Procedure :

DECLARE FUNCTION PRIME(N)

CLS

INPUT “Enter any number”; N

P = PRIME(N)

IF P = 2 THEN

PRINT N; “is a Prime number”

ELSE

PRINT N; “is a Composite number”

END IF

END

FUNCTION PRIME(N)

C = 0

FOR I = 1 TO N

IF N MOD I = 0 THEN C = C + 1

NEXT I

PRIME = C

END FUNCTION

**Q no. 14.** Check input number is prime or not using SUB Procedure.

### Program :

DECLARE SUB PRIME(A)

CLS

INPUT “Enter a Number”; A

CALL PRIME(A)

END

SUB PRIME(A)

FOR I = 1 TO A

IF A MOD I = 0 THEN C = C + 1

NEXT I

IF C = 2 THEN

PRINT “The given number is a Prime Number”

ELSE

PRINT “The given number is a not Prime Number”

ENDIF

END SUB

**Q no. 15.** Display prime numbers from 1 to 500 using SUB Procedure.

### Program :

DECLARE SUB PRIME()

CLS

CALL PRIME

END

SUB PRIME

FOR I = 1 TO 500

C = 0

FOR J = 1 TO I

IF I MOD J = 0 THEN C = C + 1

NEXT J

IF C = 2 THEN PRINT I

NEXT I

END SUB

**Q no. 16.** Write a program that prints the sum of even digits.

### Using SUB Procedure :

DECLARE SUB SUMEVEN(N)

CLS

INPUT “Enter any number”; N

CALL SUMEVEN(N)

END

SUB SUMEVEN(N)

S = 0

WHILE N < > 0

R = N MOD 10

IF R MOD 2 = 0 THEN S = S + R

N = N \ 10

WEND

PRINT “SUM OF EVEN DIGITS”; S

END SUB

### Using FUNCTION Procedure :

DECLARE FUNCTION SUMEVEN(N)

CLS

INPUT “Enter any number”; N

SU = SUMEVEN(N)

PRINT “SUM OF EVEN DIGITS”; SU

END

FUNCTION SUMEVEN(N)

S = 0

WHILE N < > 0

R = N MOD 10

IF R MOD 2 = 0 THEN S = S + R

N = N \ 10

WEND

SUMEVEN = S

END FUNCTION

**Q no. 17.** Write a program to check input number is Armstrong or not?

### Using SUB Procedure :

DECLARE SUB ARM(N)

CLS

INPUT “Enter any number”; N

CALL ARM(N)

END

SUB ARM(N)

A = N

S = 0

WHILE N < > 0

R = N MOD 10

S = S + R ^ 3

N = N \ 10

WEND

IF A = S THEN

PRINT A; “It is an Armstrong number”

ELSE

PRINT A; “It is not an Armstrong number”

END IF

END SUB

### Using FUNCTION Procedure :

DECLARE FUNCTION ARM(N)

CLS

INPUT “Enter any number”; N

A = N

AR = ARM(N)

IF A = AR THEN

PRINT A; “It is an Armstrong number”

ELSE

PRINT A; “It is not an Armstrong number”

END IF

END

FUNCTION ARM(N)

S = 0

WHILE N < > 0

R = N MOD 10

S = S + R ^ 3

N = N \ 10

WEND

ARM = S

END FUNCTION

**Q no. 18.** Write a program to display the sum of individual digits of a multi-digit input number.

### Using Sub Procedure :

DECLARE SUB SDIGIT(N)

CLS

INPUT “Enter a multi-digit number”; N

CALL SDIGIT

END

SUB SDIGIT(N)

WHILE N <> 0

O = N MOD 10

SUM = SUM + O

N = N \ 10

WEND

PRINT “The sum of individual digits of supplied number is ”; SUM

END SUB

### Using Function Procedure :

DECLARE FUNCTION SDIGIT(N)

CLS

INPUT “Enter a number”; N

PRINT “The total sum of individual digit is “; SDIGIT(N)

END

FUNCTION SDIGIT(N)

WHILE N<>0

P=N MOD 10

SUM=SUM+P

N=N\10

WEND

SDIGIT=SUM

END FUNCTION

**Q no. 19.** Write a program to print the following series : 1,4,7, ………. up to 10^{th} term using FUNCTION ………. END FUNCTION.

### Program :

DECLARE FUNCTION SERIES()

CLS

D = SERIES

END

FUNCTION SERIES

A = 1

FOR I = 1 TO 10

PRINT A;

A = A + 3

NEXT I

END FUNCTION

**Q no. 20.** Write a program to print the following series: 1, 8, 27, 64, ………. up to 10^{th} terms using SUB procedure

### Program :

DECLARE SUB SERIES()

CLS

CALL SERIES

END

SUB SERIES

FOR I = 1 TO 10

PRINT I ^ 3;

NEXT I

END SUB

**Q no. 21.** Write a program to display the series 55555, 5555, 555, 55, 5 using SUB ………. END SUB.

### Program :

DECLARE SUB SERIES()

CLS

CALL SERIES

END

SUB SERIES

A = 55555

FOR I = 1 TO 5

PRINT A;

A = A \ 10

NEXT I

END SUB

**Q no. 22.** Write a program to define SUB procedure to display the following series of number: 1, 1, 2, 3, 5, ………. up to 13^{th}term.

### Program :

DECLARE SUB SERIES()

CLS

CALL SERIES

END

SUB SERIES

A = 1

B = 1

PRINT A; B;

FOR I = 1 TO 11

C = A + B

PRINT C;

A = A + B

B = A – B

NEXT I

END SUB

**Q no. 23.** Write a program to generate the series using SUB ………. END SUB : -10, -8, -6, -4, ………. Up to 20^{th} term.

### Program :

DECLARE SUB SERIES()

CLS

CALL SERIES

END

SUB SERIES

A = -10

FOR I = 1 TO 20

PRINT A;

A = A + 2

NEXT I

END SUB

**Q no. 24.** Write a program to print string in alternate capital .eg.QbAsIc

### Using SUB Procedure :

DECLARE SUB ALTERNATE(A$)

INPUT “Enter a string”; A$

END

SUB ALTERNATE(A$)

FOR I = 1 TO LEN(A$)

B$ = MID(A$, I, 1)

IF I MOD 2 = 0 THEN

B$ = LCASE$(B$)

ELSE

B$ = UCASE(B$)

END IF

ALT$ = ALT$ +B$

NEXT I “The required alternate is “; ALT$

END SUB

### Using FUNCTION Procedure :

DECLARE FUNCTION ALTERNATE$(A$)

CLS

INPUT “Enter a string”; A$

PRINT “The required alternate is “; ALTERNATE$(A$)

END

FUNCTION ALTERNATE$(A$)

FOR I = 1 TO LEN(A$)

B$ = MID$(A$, I, 1)

IF I MOD 2 = 0 THEN

B$= LCASE$(B$)

ELSE

B$ = UCASE$(B$)

END IF

ALT$ =ALT$ +B$

NEXT I

ALTERNATE$= ALT$

PRINT “THE REQUIRED ALTERNATE IS”; ALT$

END FUNCTION

**Q no. 25.** Write a program to display vowels and consonants of the entered string by using FUNCTION ………. END FUNCTION.

### Program :

DECLARE FUNCTION STR(S$)

CLS

INPUT “Enter a word”; S$

WORD = STR(S$)

END

FUNCTION STR(S$)

FOR I = 1 TO LEN(S$)

B$ = MID$(S$, I, 1)

W$ = UCASE$(B$)

IF W$ = “A” OR W$ = “E” OR W$ = “I” OR W$ = “O” OR W$ = “U” THEN

V$ = V$ + ” ” + B$

ELSE C$ = C$ + ” ” + B$

END IF

NEXT

PRINT “The vowels are”; V$

PRINT “The consonants are”; C$

END FUNCTION

**Q no. 26.** Write a program to Declare SUB Procedure to print only the vowels from a given word.

### Program :

DECLARE SUB VOWELS(V$)

CLS

INPUT “Enter a word”; V$

CALL VOWELS(V$)

END

SUB VOWELS(V$)

PRINT “The vowel letters are”

FOR I = 1 TO LEN(V$)

A$ = MID$(V$,I,1)

B$ = UCASE$(A$)

IF B$ = “A” OR B$ = “E” OR B$ = “I” OR B$ = “O” OR B$ = “U” THEN PRINT A$

NEXT I

END SUB

**Q no. 27.** Write a program to input string and display only consonants.

### Using SUB Procedure :

DECLARE SUB DISPC(S$)

CLS

INPUT “ENTER ANY STRING”; S$

CALL DISPC(S$)

END

SUB DISPC(S$)

FOR I = 1 TO LEN(S$)

B$ = MID$(S$, I, 1)

C$ = UCASE$(B$)

IF C$ <> “A” AND C$ <> “E” AND C$ <> “I” AND C$ <> “O”

AND C$ <> “U” AND C$ <> ” ” AND C$ <> “.” THEN

PRINT B$

END IF

NEXT I

END SUB

### Using FUNCTION Procedure :

DECLARE FUNCTION DISPC(S$)

CLS

INPUT “ENTER ANY STRING”; S$

CC = DISPC(S$)

END

FUNCTION DISPC(S$)

FOR I = 1 TO LEN(S$)

B$ = MID$(S$, I, 1)

C$ = UCASE$(B$)

IF C$ <> “A” AND C$ <> “E” AND C$ <> “I” AND C$ <> “O”

AND C$ <> “U” AND C$ <> ” ” AND C$ <> “.” THEN

PRINT B$

END IF

NEXT I

END FUNCTION

**Q no. 28.** Write a program to input a string and count the total numbers of vowels.

### Using SUB Procedure :

DECLARE SUB COUNT(S$)

CLS

INPUT “Enter any string”; S$

CALL COUNT(S$)

END

SUB COUNT(S$)

VC = 0

FOR I = 1 TO LEN(S$)

B$ = MID$(S$, I, 1)

C$ = UCASE$(B$)

IF C$ = “A” OR C$ = “E” OR C$ = “I” OR C$ = “O” OR C$ = “U” THEN

VC = VC + 1

END IF

NEXT I

PRINT “Total number of vowels = “; VC

END SUB

### Using FUNCTION Procedure :

DECLARE FUNCTION COUNT(S$)

CLS

INPUT “Enter any string”; S$

PRINT “Total number of vowels = “; COUNT(S$)

END

FUNCTION COUNT(S$)

VC = 0

FOR I = 1 TO LEN(S$)

B$ = MID$(S$, I, 1)

C$ = UCASE$(B$)

IF C$ = “A” OR C$ = “E” OR C$ = “I” OR C$ = “O” OR C$ = “U” THEN

VC = VC + 1

END IF

NEXT I

COUNT = VC

END FUNCTION

**Q no. 29.** Write a program to display the reverse of input string.

### Using SUB Procedure :

DECLARE SUB REV(N$)

CLS

INPUT “Enter a word”; W$

CALL REV(W$)

END

SUB REV(N$)

FOR I = LEN(N$) TO 1 STEP-1

C$ = C$ + MID$(N$,I,1)

NEXT I

PRINT “The reversed string is”; C$

END SUB

### Using FUNCTION Procedure :

DECLARE FUNCTION REV$(N$)

CLS

INPUT “Enter a string”; W$

PRINT “The reversed string is”; REV$(W$)

END

FUNCTION REV$(N$)

FOR I = LEN(N$) TO 1 STEP -1

D$ = D$ + MID$(N$,I,1)

NEXT I

REV$ = D$

END FUNCTION

**Q no. 30.** Write a program to define a function procedure to display area of sphere where user has to input the required data in the main module. [Hint: Area of Sphere : 4*PI*R^2]

### Program :

DECLARE FUNCTION AREA(R)

CLS

CONST PI = 3.14

INPUT “Enter radius”; R

PRINT “The Area of Sphere =”; AREA(R)

END

FUNCTION AREA(R)

A = 4 * PI * R ^ 2

AREA = A

END FUNCTION

**Q no. 31.** Using user defined function, write a program to input monthly income in parameter then computer annual tax to be paid. The tax rate is 15% if annual income is above Rs. 200000, otherwise tax rate is 1%.

### Program :

DECLARE FUNCTION TAX(I)

CLS

INPUT “Enter your Monthly Income”; I

PRINT “The Annual Tax to be paid is Rs. “; TAX(I)

END

FUNCTION TAX(I)

A = I * 12

IF A > 200000 THEN

TAX = 15 / 100 * A

ELSE

TAX = 1 / 100 * A

END IF

END FUNCTION

**Q no. 32.** Write a program using FUNCTION ………. END FUNCTION to calculate and print the total surface area of a sphere.

### Program :

DECLARE FUNCTION TSA(R)

CLS

CONST PI = 3.14

INPUT “Enter the Radius of the Sphere”; R

PRINT “The Total Surface Area (T.S.A) of the Sphere is”; TSA(R)

END

FUNCTION TSA(R)

T = 4 * PI * R ^ 2

TSA = T

END FUNCTION

**Q no. 33.** Write a program to convert the temperature given in the Centigrade to Fahrenheit.

### Using SUB Procedure :

DECLARE SUB CONVERT(C)

CLS

INPUT “Enter temperature in Celsius”; C

CALL CONVERT(C)

END

SUB CONVERT(C)

F = C * (9 / 5) + 160

PRINT “Temperature in Fahrenheit is”; F

END SUB

### Using FUNCTION Procedure :

DECLARE FUNCTION CONVERT(C)

CLS

INPUT “Enter temperature in Celsius”; C

PRINT “Temperature in Fahrenheit is “; CONVERT(C)

END

FUNCTION CONVERT(C)

F = C * (9 / 5) + 160

CONVERT = F

END FUNCTION

**Q no. 34.** Write a program to count the total words present in an input string.

### USING SUB PROCEDURE :

DECLARE SUB TWORDS(N$)

CLS

INPUT “Enter a string”; N$

CALL TWORDS(N$)

END

SUB TWORDS(N$)

A = 1

FOR I = 1 TO LEN(N$)

C$ = MID$(N$,I,1)

IF C$ = ” ” THEN A = A + 1

NEXT I

PRINT “Total number of words in the string is”; A

END SUB

**Q no. 35.** Write a program to print the longest string among three different supplied string.

### Using SUB Procedure :

DECLARE SUB LON(A$,B$,C$)

CLS

INPUT “Enter First String”; A$

INPUT “Enter Second String”; S$

INPUT “Enter Third String”; T$

CALL LON(A$,S$,T$)

END

SUB LON(A$,B$,C$)

A = LEN(A$)

B = LEN(B$)

C = LEN(C$)

IF A>B AND A>C THEN

LONG$ = A$

ELSEIF B>A AND B>C THEN

LONG$ = B$

ELSE

LONG$ = C$

ENDIF

PRINT “The Longest String is “; LONG$

END SUB

### Using FUNCTION Procedure :

DECLARE FUNCTION LONG$(A$,B$,C$)

CLS

INPUT “Enter First String”; A$

INPUT “Enter Second String”; S$

INPUT “Enter Third String”; T$

PRINT “The Longest String is “; LONG$(A$,S$,T$)

END

FUNCTION LONG$(A$,B$,C$)

A = LEN(A$)

B = LEN(B$)

C = LEN(C$)

IF A>B AND A>C THEN

LONG$ = A$

ELSEIF B>A AND B>C THEN

LONG$ = B$

ELSE

LONG$ = C$

ENDIF

END FUNCTION