Qb Basic Concept

1.       WAP a program to generate series 100,98,96…….2

Ans.                                CLS

PRINT "NUMBER OF SERIES:”

PRINT

FOR E = 100 TO 2 STEP - 2

PRINT; E; “; “;

NEXT E

END

ALTERNET (Increase Order)

Ans.                        CLS

                                PRINT "NUMBER OF SERIES:"

                                PRINT

                                FOR E = 2 TO 100 STEP 2

                                PRINT; E; " , " ;

                                NEXT E

                                END

2.       WAP to print only even number from any ten numbers given by users.

Ans.                        CLS

N = 2

FOR I= 1 TO 10 STEP 1

PRINT N;

N = N + 2

NEXT I

END

3.       WAP a program to print following output.

a.        C

CO

COM

COMP

COMPU

COMPUT

COMPUTE

COMPUTER

Ans.                        CLS

                                A$ = "COMPUTER"

                                FOR I = 1 TO LEN(A$)

                                PRINT LEFT$(A$,I)

                                PRINT I

                                END

b.       1 2 3 4 5 6

1 2 3 4 5

1 2 3 4

1 2 3

1 2

1

Ans.                        CLS

                                FOR I = 6 TO 1 STEP – 1

                                FOR J = 1 TO I

`                               PRINT J;

                                NEXT

                                PRINT

                                NEXT

                                END

4.       WAP count even & odd number form following given number sets.

14,15,23,18,20,27,31,28,51,24,17,25,81,99,71,72,88,85,74

Ans.                        CLS

INPUT" ENTER  NUMBER"; N

IF N MOD 2=0 THEN

PRINT"EVEN NUMBER"

ELSE

PRINT"ODD NUMBER"

END IF

END

5.       WAP  to print prime numbers from  1 to 100

Ans.                                CLS

FOR X=1 TO 100

PRINT X;

PRINT NEXT X

END

6.       WAP to  calculate factorial of  any number

Ans.                                CLS

PRINT “FACTORIAL NUMBER”

                                F=1

                                INPUT “ENTER A NUMBER”;N

                                WHILE N>=1

                                F=F*N

                                N=N-1

                                WEND

                                PRINT “Factorial number is “; f

                                End

7.       WAP to calculate  tax of salary and the basis of following tax rate

Up to 5000                            10%

5001 to 10000                     12%

10001 to 15000                   14%

15001 and above                 15%

Ans.                        CLS

INPUT “ENTER THE AVERAGE AMOUNT”; P

IF P>=0 AND P<=5000 THEN

D=P*.10

ELSE IF P>=5001 AND P<=10000 THEN

D=P*.12

ELSE IF P>=10001 AND P<=15000 THEN

D=P*.14

ELSE IF P>=15001 THEN

D=P.15

END IF

V=(P-D*13/100)

T=P-D+V

PRINT “TOTAL AMOUNT IS”; T, ““

END

8.       WAP to print greatest number of among 10.

Ans.                                CLS

DIM A (10)

FOR I= 1 TO 10

INPUT A (I)

NEXT I

S= A (I)

T=A (I)

FOR I= 2 TO 10

IF A (I)>T THEN T=A (I)

NEXT I

PRINT “GREATEST NUMBER =”; T

END

9.       WAP to print ASCII value of C,O,M,P,U,T,E,R.

Ans.     CLS

INPUT “ENTER ANY CHARACTER” ; CH$

PRINT “THE ASCII VALUE OF “; CH$ “IS”; AS(CH$)

END

C=67,    O=79 ,      M=77,    P=80,     U=85,     T=84, E=69,    R=82

10.    WAP to print ASCII character of  78, 80, 90, 65, 68.

Ans.                CLS

PRINT CH$(78)              N             PRINT CH$(80)      P

PRINT CH$(90)              Z              PRINT CH$(65)      A

PRINT CH$(68)              D