Here, I have listed some of the qbasic programs. We also have mobile app where you can view all the qbasic programs. For better experience I highly recommend you to use our mobile app.

Please download our app by clicking the image below:

f the above link is not working. You can use this link –> https://play.google.com/store/apps/details?id=com.allbachelor.qbasicapp

**221 Write a program in qbasic to generate the following series 54321 5432 543 54 5 **

```
CLS
FOR I = 5 TO 1 STEP -1
FOR J = I TO 1 STEP -1
PRINT J;
NEXT J
PRINT
NEXT I
END
```

**222 Write a program to enter any 20 numbers and display the smallest one using **

```
CLS
DIM N(20)
FOR I = 1 TO 20
INPUT "ENTER THE NUMBERS"; N(I)
NEXT I
S = N(1)
FOR I = 2 TO 20
IF N(I) < S THEN S = N(I)
NEXT I
PRINT “THE SMALLEST NUMBER IS”; S
END
```

**223 Write a program to solve a quadratic equation ax2+bx+c=0 on the basis of the coefficient values a b and c. **

```
REM SOLVE A QUADRATIC EQUATION
CLS
INPUT "ENTER VALUE FOR A"; A
INPUT "ENTER VALUE FOR B"; B
INPUT "ENTER VALUE FOR C"; C
D = (B * B - 4 * A * C) ^ (1 / 2)
X = (-B + D) / 2 * A
Y = (-B - D) / 2 * A
PRINT "SOLUTION OF QUADRATIC EQUATION ARE"; X; Y
END
```

**224 Write a program in qbasic to print -30 -20 -10 0 10 ……………20th terms **

```
CLS
A = -30
FOR I = 1 TO 20
PRINT A,
A = A + 10
NEXT I
END
```

**225 Write a program in qbasic to ask any string and print only consonant by removing vowels **

```
CLS
INPUT "ENTER ANY STRING"; 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
W$=W$+B$
END IF
NEXT I
PRINT W$
END
```

**226 Write a program in qbasic to ask number and count total number of digits **

```
CLS
INPUT "ENTER ANY NUMBER"; N
C = 0
WHILE N <> 0
C = C + 1
N = N \ 10
WEND
PRINT "TOTAL NUMBER OF DIGITS"; C
END
```

**227 Write a program in qbasic to find the sum of all even numbers from 2 to 100 **

```
CLS
FOR I = 2 TO 100 STEP 2
PRINT I,
NEXT I
END
```

**228 Write a program in qbasic to ask any string and count total no of vowels and consonants **

```
CLS
INPUT "ENTER ANY STRING"; S$
VC = 0
CC = 0
WC = 1
SC = 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
ELSEIF B$ = " " THEN
WC = WC + 1
ELSEIF B$ = "." THEN
SC = SC + 1
ELSE
CC = CC + 1
END IF
NEXT I
PRINT "TOTAL NO. OF VOWELS= "; VC
PRINT "TOTAL NO. OF CONSONANTS="; CC
END
```

**229 Write a program in QBasic to enter any 10 numbers and find the sum of odd numbers **

```
CLS
FOR I = 1 TO 10
INPUT "ENTER THE NUMBERS"; N(I)
IF N(I) MOD 2 = 1 THEN S = S + N(I)
NEXT I
PRINT "SUM OF 10 ODD NUMBERS"; S
END
```

**230 Write a program to convert Nepalese currency into Indian currency. **

```
CLS
INPUT “ENTER NEPALESE CURRENCY ” ; P
C=P/1.6
PRINT “INDIAN CURRENCY “; C
END
```

**231 Write a program to check whether the input number is divisible by 4 and 6 or not. **

```
CLS
INPUT “ENTER A NUMBER ” ; P
IF P MOD 4 =0 AND P MOD 6=0 THEN
PRINT “DIVISIBLE BY BOTH NUMBERS”
ELSE
PRINT “NOT DIVISIBLE BY BOTH NUMBERS”
ENDIF
END
```

**232 Write a program to input monthly income in to compute annual tax to be paid. The tax rate is 15% if annual income is above Rs. 500000 otherwise tax rate is 10%. **

```
CLS
INPUT “Enter monthly income”; I
A=I*12
IF A>500000 THEN
TAX=15/100*A
PRINT "Total amount of tax to be paid is"; TAX
ELSE
TAX=10/100*A
END IF
END
```

Please download our app by clicking the image below:

If the above link is not working. You can use this link –> https://play.google.com/store/apps/details?id=com.allbachelor.qbasicapp

Sir, could you write a program to perform Q test?