Scribd
Upload
33K views

Visual Basic Practical File

This document contains 22 coding examples in Visual Basic, including calculating the area of a circle, volume of a cylinder, simple interest, a login form, comparing numbers, printing sequences of numbers, a calculator, a marksheet, finding factorials, calculating sums, identifying perfect squares, counting even and odd numbers, and searching an array. Each example provides the coding and a brief description of what the code is demonstrating.

Uploaded by

Karandeep Singh
Copyright
© Attribution Non-Commercial (BY-NC)
Available Formats
Download as DOC, PDF, TXT or read online on Scribd
33K views

Visual Basic Practical File

This document contains 22 coding examples in Visual Basic, including calculating the area of a circle, volume of a cylinder, simple interest, a login form, comparing numbers, printing sequences of numbers, a calculator, a marksheet, finding factorials, calculating sums, identifying perfect squares, counting even and odd numbers, and searching an array. Each example provides the coding and a brief description of what the code is demonstrating.

Uploaded by

Karandeep Singh
Copyright
© Attribution Non-Commercial (BY-NC)
Available Formats
Download as DOC, PDF, TXT or read online on Scribd
You are on page 1/ 56

ASSIGNMENT OF VISUAL BASIC

INDEX
S.NO T.SIGN NAME
1. AREA OF CIRCLE 2. VOLUME OF CYCLINDER 3. SIMPLE INTEREST 4. LOG-IN FORM 5. COMPARE 2 NUMBER 6. COMPARE 3 NUMBER 7. CHECK EVEN OR ODD 8. SUM USING INPUT BOX 9. COFFEE SHOP 10. PRINT NUMBER 1 T0 20 11. PRINT NUMBER 20 TO 1 12. PRINT EVEN NUMBER 1 TO 20 13. PRINT EVEN NUMBER 20 TO 1 14. PRINT ODD NUMBER 1 TO 20

15. PRINT ODD NUMBER 20 T0 1 16. CALCULATOR 17. MARKSHEET SHOWING GRADES 18. FACTORIAL 19. PRINT 1 T0 30 AND THEIR SUM 20. PERFECT SQUARE<50 21. EVEN- ODD NOS COUNT 22. LINEAR SEARCH

Q.1 AREA OF CIRCLE


CODING DIM RADIUS AS INTEGER DIM RESULT AS DOUBLE RADIUS = TEXT1.TEXT RESULT= 3.16 * RADIUS ^ 2 MSGBOX RESULT

Q.2 VOLUME OF CYCLINDER


CODING DIM RADIUS AS INTEGER DIM HEIGHT AS INTEGER DIM RESULT AS DOUBLE PIE = 3.14

RADIUS = TEXT1.TEXT HEIGHT = TEXT2.TEXT RESULT = PIE * RADIUS * RADIUS * HEIGHT MSGBOX RESULT

Q.3 SIMPLE INTEREST


CODING DIM P AS DOUBLE DIM S AS DOUBLE DIM R AS DOUBLE DIM T AS DOUBLE P = TEXT1.TEXT R = TEXT2.TEXT T = TEXT3.TEXT S = P * R * T / 100 TEXT4.TEXT = S

Q.4 LOG-IN FORM


CODING DIM A AS STRING DIM B AS STRING A = "KARAN" B = "KARAN" IF A = TEXT1.TEXT AND B = TEXT2.TEXT THEN MSGBOX "LOGIN SUCESSFUL" ELSEIF TEXT1.TEXT = "" OR TEXT2.TEXT = "" THEN MSGBOX "PLEASE ENTER USERNAME OR PASSWORD" ELSE MSGBOX "LOGIN UNSUCESSFUL" END IF

Q.5 COMPARE 2 NUMBERS


CODING DIM A AS INTEGER DIM B AS INTEGER B = TEXT2.TEXT A = TEXT1.TEXT IF A > B THEN MSGBOX "A IS GREATER" ELSEIF A = B THEN MSGBOX " A AND B ARE EQUAL" ELSE MSGBOX " B IS GREATER" END IF

Q.6 COMPARE 3 NUMBERS


CODING DIM A AS INTEGER DIM B AS INTEGER DIM C AS INTEGER A = TEXT1.TEXT B = TEXT2.TEXT C = TEXT3.TEXT IF A > B AND A > C THEN MSGBOX "A IS GREATER" ELSEIF B > A AND B > C THEN MSGBOX "B IS GREATER" ELSE MSGBOX "C IS GREATER"

Q. 7 CHECK EVEN OR ODD


CODING DIM A AS INTEGER A = TEXT1.TEXT IF A MOD 2 = 0 THEN MSGBOX "NUMBER IS EVEN" ELSE MSGBOX "NUMBER IS ODD" END IF

Q.8 SUM OF 2 NUMBERS USING INPUT BOX


CODING DIM A AS INTEGER DIM B AS INTEGER DIM C AS INTEGER A = VAL(INPUTBOX("ENTER FIRST NO")) B = VAL(INPUTBOX("ENTER SECOND NO")) C=A+B MSGBOX ("SUM IS" & C)

Q.9 COFFEE SHOP


CODING DIM TEA AS INTEGER, COFFEE AS INTEGER, SANDWICH AS INTEGER, BURGER AS INTEGER, PATTY AS INTEGER, PASTERIES AS INTEGER DIM SUM AS DOUBLE SUM = 0 TEA = 5 COFFEE = 5 SANDWICH = 5 BURGER = 6 PATTY = 9 PASTERIES = 11

IF OPTION1.VALUE = TRUE THEN SUM = SUM + TEA ELSE SUM = SUM + COFFEE END IF IF CHECK1.VALUE = 1 THEN SUM = SUM + SANDWICH END IF IF CHECK2.VALUE = 1 THEN

SUM = SUM + BURGER

END IF IF CHECK3.VALUE = 1 THEN SUM = SUM + PATTY END IF

IF CHECK4.VALUE = 1 THEN SUM = SUM + PASTERIES END IF MSGBOX SUM

Q10. PRINT NUMBER 1 T0 20


CODING DIM A AS INTEGER FOR A = 1 TO 20 PRINT A NEXT A

Q.11 PRINT NUMBERS 20 T0 1


CODING DIM A AS INTEGER FOR A = 20 TO 1 STEP -1 PRINT A NEXT A

Q.12 PRINT EVEN NUMBERS 1 T0 20


CODING DIM A AS INTEGER FOR A = 0 TO 20 STEP 2 PRINT A NEXT A

Q.13 PRINT EVEN NUMBERS 20 TO 1


CODING DIM A AS INTEGER FOR A = 20 TO 0 STEP -2 PRINT A NEXT A

Q14 PRINT ODD NUMBERS 1 TO 20


CODING DIM A AS INTEGER FOR A = 1 TO 20 STEP 2 PRINT A NEXT A

Q15 PRINT ODD NUMBERS 20 TO 1


CODING DIM A AS INTEGER FOR A = 19 TO 1 STEP -2 PRINT A NEXT A

Q.16 TO ADD,SUBTRACT,MULTIPLY AND DIVIDE TWO NUMBERS


CODING FOR SUM FUNCTION DIM A AS INTEGER DIM B AS INTEGER DIM C AS INTEGER A = TEXT1.TEXT B = TEXT2.TEXT C=A+B TEXT3.TEXT = C END SUB FOR SUBTRACT FUNCTION DIM A AS INTEGER DIM B AS INTEGER DIM C AS INTEGER A = TEXT1.TEXT B = TEXT2.TEXT C=A-B TEXT3.TEXT = C END SUB

FOR MULTIPICATION FUNCTION DIM A AS INTEGER

DIM B AS INTEGER DIM C AS INTEGER A = TEXT1.TEXT B = TEXT2.TEXT C=A*B TEXT3.TEXT = C END SUB FOR DIVISION FUNCTION DIM A AS INTEGER DIM B AS INTEGER DIM C AS INTEGER A = TEXT1.TEXT B = TEXT2.TEXT C=A/B TEXT3.TEXT = C END SUB

Q17 MARKSHEET SHOWING TOTAL, PERCENTAGE AND GRADE


CODING DIM A AS STRING DIM ROLL AS VARIANT DIM M1 AS INTEGER, DIM M2 AS INTEGER, DIM M3 AS INTEGER DIM M4 AS INTEGER, DIM M5 AS INTEGER, DIM TOTAL AS INTEGER DIM PERC AS DOUBLE A = TEXT1.TEXT ROLL = TEXT2.TEXT M1 = TEXT3.TEXT M2 = TEXT4.TEXT M3 = TEXT5.TEXT M4 = TEXT6.TEXT M5 = TEXT7.TEXT TOTAL = M1 + M2 + M3 + M4 + M5 PERC = TOTAL / 500 * 100 MSGBOX ("YOUR TOTAL MARKS ARE" & TOTAL) MSGBOX ("YOUR PERCENTAGE IS" & PERC) SELECT CASE PERC CASE 0 TO 32

MSGBOX "F GRADE FAIL"

CASE 33 TO 40 MSGBOX "E GRADE NOT BAD" CASE 41 TO 50 MSGBOX "D GRADE AVERAGE" CASE 51 TO 70 MSGBOX "C GRADE GOOD" CASE 71 TO 90 MSGBOX "B GRADE VERY GOOD" CASE 91 TO 100 MSGBOX "A GRADE EXCELLANT" END SELECT

Q18 FACTORIAL
CODING DIM A AS INTEGER, I AS INTEGER, FACT AS DOUBLE A = INPUTBOX("ENTER A NUMBER WHOSE FACTORIAL YOU WISH TO CALCULATE.") FACT = 1 FOR I = 2 TO A FACT = FACT * I NEXT I MSGBOX (A & "! = " & FACT)

Q19 PRINT 1 TO 30 AND THEIR SUM


CODING DIM A AS INTEGER, SUM AS INTEGER, L AS INTEGER L = INPUTBOX("ENTER THE UPPER LIMIT.") FOR A = 1 TO L SUM = SUM + A PRINT A NEXT A MSGBOX (" SUM = " & SUM) CLS

Q20 PERFECT SQUARE LESS THAN 50


CODING DIM A AS INTEGER CLS A=1 WHILE (A * A < 50) PRINT (A * A) A=A+1 WEND

Q21 EVEN ODD COUNT


CODING DIM A AS INTEGER, ECOUNT AS INTEGER, OCOUNT AS INTEGER, N AS INTEGER N = INPUTBOX("HOW MANY NUMBERS DO YOU WISH TO ENTER?") WHILE (N > 0) A = INPUTBOX("ENTER NUMBER.") IF A MOD 2 = 0 THEN ECOUNT = ECOUNT + 1 ELSE OCOUNT = OCOUNT + 1 END IF N=N-1 WEND MSGBOX ("EVEN COUNT = " & ECOUNT & " & ODD COUNT = " & OCOUNT)

Q22 ARRAY SEARCH


CODING DIM A(5) AS DOUBLE, I AS INTEGER, ITEM AS DOUBLE FOR I = 1 TO 5 A(I) = INPUTBOX("ENTER NUMBER INTO ARRAY.") NEXT I ITEM = INPUTBOX("ENTER THE VALUE YOU WISH TO SEARCH.") FOR I = 1 TO 5 IF A(I) = ITEM THEN MSGBOX (ITEM & " FOUND AT POSITION " & I) EXIT FOR END IF NEXT I IF I = 6 THEN MSGBOX (ITEM & " DOES NOT EXIST IN THE ARRAY.") END IF

You might also like