Scribd
Upload
1K views79 pages

Bsc3rd Year Practical File (CS)

The document describes creating databases and tables in SQL, performing various operations on those databases and tables like inserting records, selecting records, updating records, deleting records, renaming databases, and dropping databases. It includes the SQL commands to create two tables (Teachers and Students), insert sample data, select specific records based on criteria, update and delete records, rename a table, add new fields to tables, and drop the tables and databases. Various outputs of the SQL commands are shown.

Uploaded by

Divyansh Lonhare
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd
1K views79 pages

Bsc3rd Year Practical File (CS)

The document describes creating databases and tables in SQL, performing various operations on those databases and tables like inserting records, selecting records, updating records, deleting records, renaming databases, and dropping databases. It includes the SQL commands to create two tables (Teachers and Students), insert sample data, select specific records based on criteria, update and delete records, rename a table, add new fields to tables, and drop the tables and databases. Various outputs of the SQL commands are shown.

Uploaded by

Divyansh Lonhare
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd
You are on page 1/ 79

COMPUTER SOFTWARE (VISUAL BASIC & DBMS) 2023-2024

DBMS

DIWANSHI LONHARE B.SC-III Page1


COMPUTER SOFTWARE (VISUAL BASIC & DBMS) 2023-2024

Using the following Database execute the command:-


(1) Create
Teachers (Tid,Tname,Taddress,Tphone,Tsalary)
Students (Sid,Sname,Saddress,Ssub,Sphone)
Syntax for Teachers Table:-
create table Teachers
( Tid number(3) primary key,
Tnamevarchar(20),
Taddressvarchar(20),
Tphonenumber(10),
Tsalarynumber(5)
)

Syntax for Students Table:-


create table Students(
Sid number(4),
Snamevarchar(20),
Saddressvarchar(20),
Ssubvarchar(10),
Sphonenumber(10)
)

DIWANSHI LONHARE B.SC-III Page2


COMPUTER SOFTWARE (VISUAL BASIC & DBMS) 2023-2024

Output:-

DIWANSHI LONHARE B.SC-III Page3


COMPUTER SOFTWARE (VISUAL BASIC & DBMS) 2023-2024

(2) Insert 10 rows for the above Database.


Syntax for Teachers Table:-
insert into Teachers values ('101',Aditya ','samta
colony','9425229798','40000')
insert into Teachers values ('102','Vidhi','shankar
nagar','9977066133','35000')
insert into Teachers values ('103','Twinkle','sundar
nagar','8750697177','37000')
insert into Teachers values
('104','Kiran','mowa','9893129211','42000')
insert into Teachers values ('105','Harshita','Devendra
Nagar','8115617078','38000')
insert into Teachers values
('106','Anita','Fafadih','9977055133','43000')
insert into Teachers values
('107','Vibhuti','Bhanpuri','9893496227','39000')
insert into Teachers values ('108','Ashmita','Barren
Bazaar','7566000044','40000')
insert into Teachers values
('109','Upasana','Khamtarai','9770831992','41000')
insert into Teachers values ('110','Ishaan','Pachpedi
Naka','83449272345','36000')

DIWANSHI LONHARE B.SC-III Page4


COMPUTER SOFTWARE (VISUAL BASIC & DBMS) 2023-2024

Output :-

DIWANSHI LONHARE B.SC-III Page5


COMPUTER SOFTWARE (VISUAL BASIC & DBMS) 2023-2024

Syntax For Students Table :-

insert into Students


values('1001','Abhi','Kushalpur','Java','6266807703')
insert into Students values('1002','Kaamini sharma','Dawda
colony','VB','9827393055')
insert into Students values('1003','Ravi Sahu','ChoubeyColony','C+
+','7223887992')
insert into Students values('1004','Saurabh Kurrey','G.E.
Road','Networking','7974832335')
insert into Students values('1005','Raj Goyal','W.R.S
Colony','Oracle','9009240410')
insert into Students values('1006','Bhumika Sahu','Bharat Mata
Chowk','Unix','9575416839')
insert into Students values('1007','Meera Jain','IndraprastColony','C+
+','8770636955')
insert into Students values('1008','Prerana
Agrawal','Modahapara','Java','9399684897')
insert into Students values('1009','Sanjay Das','L.I.C
Road','Oracle','9822856080')
insert into Students values('1010','Vidit
Yadav','Lakhenagar','VB','7987209008')

DIWANSHI LONHARE B.SC-III Page6


COMPUTER SOFTWARE (VISUAL BASIC & DBMS) 2023-2024

Output:-

DIWANSHI LONHARE B.SC-III Page7


COMPUTER SOFTWARE (VISUAL BASIC & DBMS) 2023-2024

(3) Select the records whose teacher name is Anamika Sharma.

Syntax :-

SELECT *FROM Teachers WHERE Tname = 'Anamika Sharma';

Output :-

DIWANSHI LONHARE B.SC-III Page8


COMPUTER SOFTWARE (VISUAL BASIC & DBMS) 2023-2024

(4) Select those records whose subject is Java.


Syntax:-

SELECT *FROM Students WHERE Ssub = 'Java';

Output:-

(5) Select list of all teachers whose name starts from ‘S’.

DIWANSHI LONHARE B.SC-III Page9


COMPUTER SOFTWARE (VISUAL BASIC & DBMS) 2023-2024

Syntax:-

SELECT *FROM Teachers WHERE Tname LIKE 'S%';

Output:-

(6)Select list of all students name in Ascending Order.

DIWANSHI LONHARE B.SC-III Page10


COMPUTER SOFTWARE (VISUAL BASIC & DBMS) 2023-2024

Syntax:-

SELECT *FROM Students ORDER BY Sname ;

Output:-

(7)Rename the Database (anyone)

DIWANSHI LONHARE B.SC-III Page11


COMPUTER SOFTWARE (VISUAL BASIC & DBMS) 2023-2024

Syntax:-

RENAME Students TO StuINFO;

Output:-

(8)Delete the student’s record whose name is ‘RAJ


GOYAL’.

DIWANSHI LONHARE B.SC-III Page12


COMPUTER SOFTWARE (VISUAL BASIC & DBMS) 2023-2024

Syntax:-
DELETE FROM StuINFO WHERE Sname = 'Raj Goyal';

Output:-

(9) Update the student name ‘Ravi’ with ‘Saurabh’.

DIWANSHI LONHARE B.SC-III Page13


COMPUTER SOFTWARE (VISUAL BASIC & DBMS) 2023-2024

Syntax:-

UPDATE StuINFO SET Sname = 'Ravi Kurrey' WHERE Sid = 1004;

Output:-

(10) Recover your deleted Databse.

DIWANSHI LONHARE B.SC-III Page14


COMPUTER SOFTWARE (VISUAL BASIC & DBMS) 2023-2024

Syntax:-

ROLLBACK

Output:-

DIWANSHI LONHARE B.SC-III Page15


COMPUTER SOFTWARE (VISUAL BASIC & DBMS) 2023-2024

(11) Add one more field ‘Teachersub’ in Teachers


Database.

Syntax:-

ALTER TABLE Teachers ADD Teachersubvarchar(10)

For Entries:-

UPDATE Teachers SET Teachersub=('Java') WHERE Tid = 101;

UPDATE Teachers SET Teachersub=('VB') WHERE Tid = 102;

UPDATE Teachers SET Teachersub=('C++') WHERE Tid = 103;

UPDATE Teachers SET Teachersub=('Networking') WHERE Tid =


104;

UPDATE Teachers SET Teachersub=('Oracle') WHERE Tid = 105;

UPDATE Teachers SET Teachersub=('Unix') WHERE Tid = 106;

UPDATE Teachers SET Teachersub=('C++') WHERE Tid = 107;

UPDATE Teachers SET Teachersub=('Java') WHERE Tid = 108;

UPDATE Teachers SET Teachersub=('Oracle') WHERE Tid = 109;

UPDATE Teachers SET Teachersub=('VB') WHERE Tid = 110;

DIWANSHI LONHARE B.SC-III Page16


COMPUTER SOFTWARE (VISUAL BASIC & DBMS) 2023-2024

Output:-

DIWANSHI LONHARE B.SC-III Page17


COMPUTER SOFTWARE (VISUAL BASIC & DBMS) 2023-2024

(12) Add one more field student’s ‘Fathername’ in


Student database.

Syntax:-

ALTER TABLE StuINFO ADD Fathernamevarchar(20)

For Entries:-

UPDATE StuINFO SET Fathername=('Ramesh Mishra') WHERE Sid =


1001;

UPDATE StuINFO SET Fathername=('Alpeshsharma') WHERE Sid =


1002;

UPDATE StuINFO SET Fathername=('Kamal Sahu') WHERE Sid =


1003;

UPDATE StuINFO SET Fathername=('Santosh Kurrey') WHERE Sid =


1004;

UPDATE StuINFO SET Fathername=('ShubhamSahu') WHERE Sid =


1006;

UPDATE StuINFO SET Fathername=('Parag Jain') WHERE Sid = 1007;

UPDATE StuINFO SET Fathername=('Punit Sinha') WHERE Sid =


1008;

UPDATE StuINFO SET Fathername=('PremDas') WHERE Sid = 1009;

UPDATE StuINFO SET Fathername=('Ashish Yadav') WHERE Sid =


1010;

DIWANSHI LONHARE B.SC-III Page18


COMPUTER SOFTWARE (VISUAL BASIC & DBMS) 2023-2024

Output:-

DIWANSHI LONHARE B.SC-III Page19


COMPUTER SOFTWARE (VISUAL BASIC & DBMS) 2023-2024

(13) Drop the Database.

Syntax:-

DROP TABLE Teachers

DROP TABLE StuINFO

Output:-

DIWANSHI LONHARE B.SC-III Page20


COMPUTER SOFTWARE (VISUAL BASIC & DBMS) 2023-2024

VISUAL BASIC

DIWANSHI LONHARE B.SC-III Page21


COMPUTER SOFTWARE (VISUAL BASIC & DBMS) 2023-2024

1.Write a program to perform arithmetic operation using


command button. (Declare variables globally).

Layout:

CODING:-

Private Sub Command1_Click()

Dim A, B, c As Integer

A = Val(Text1.Text)

B = Val(Text2.Text)

c=A+B

Text3.Text = c

End Sub

DIWANSHI LONHARE B.SC-III Page22


COMPUTER SOFTWARE (VISUAL BASIC & DBMS) 2023-2024

Private Sub Command2_Click()

A = Val(Text1.Text)

B = Val(Text2.Text)

c=A-B

Text3.Text = c

End Sub

Private Sub Command3_Click()

A = Val(Text1.Text)

B = Val(Text2.Text)

c=A*B

Text3.Text = c

End Sub

Private Sub Command4_Click()

A = Val(Text1.Text)

B = Val(Text2.Text)

c=A/B

Text3.Text = c

End Sub

Private Sub Command5_Click()

Text1.Text = ""

DIWANSHI LONHARE B.SC-III Page23


COMPUTER SOFTWARE (VISUAL BASIC & DBMS) 2023-2024

Text2.Text = ""

Text3.Text = ""

End Sub

Private Sub Command6_Click()

End

End Sub

Private Sub Form_Load()

End Sub

DIWANSHI LONHARE B.SC-III Page24


COMPUTER SOFTWARE (VISUAL BASIC & DBMS) 2023-2024

OUTPUT:

ADDITION SUBTRACTION

MULTIPLICATION DIVISION

DIWANSHI LONHARE B.SC-III Page25


COMPUTER SOFTWARE (VISUAL BASIC & DBMS) 2023-2024

2.Write a program to take input of principle,rate and time and

calculate Simple Interest and Compund Interest.

Layout:

CODING:

Private Sub Command1_Click()

Dim p, r, t As Integer

Dim si, ci As Single

p = Val(Text1.Text)

r = Val(Text2.Text)

t = Val(Text3.Text)

si = p * r * t / 100

DIWANSHI LONHARE B.SC-III Page26


COMPUTER SOFTWARE (VISUAL BASIC & DBMS) 2023-2024

Text4.Text = si

ci = (p + (1 + r) ^ t) / 100

Text5.Text = ci

End Sub

Private Sub Command2_Click()

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

Text4.Text = ""

Text5.Text = ""

End Sub

Private Sub Form_Load()

End Sub

OUTPUT

DIWANSHI LONHARE B.SC-III Page27


COMPUTER SOFTWARE (VISUAL BASIC & DBMS) 2023-2024

3.Write a program to swap any two variables.


Layout:

CODING:

Private Sub Command1_Click()

Dim a As Integer

Dim b As Integer

Dim temp As Integer

a = Val(Text1.Text)

b = Val(Text2.Text)

temp = b

b=a

a = temp

Text1.Text = a

Text2.Text = b

DIWANSHI LONHARE B.SC-III Page28


COMPUTER SOFTWARE (VISUAL BASIC & DBMS) 2023-2024

End Sub

OUTPUT

DIWANSHI LONHARE B.SC-III Page29


COMPUTER SOFTWARE (VISUAL BASIC & DBMS) 2023-2024

4.Write a program to check whether a centered no. is prime or

not (using for loop and exit for loop).

Layout:

CODING:

Private Sub Command1_Click()

Dim A, n, r As Integer

n = Val(Text1.Text)

For A = 2 To n - 1 Step 1

r = n Mod A

If r = 0 Then

DIWANSHI LONHARE B.SC-III Page30


COMPUTER SOFTWARE (VISUAL BASIC & DBMS) 2023-2024

MsgBox" Given Number is Not Prime Number"

Exit For

End If

Next

If r <> 0 Then

MsgBox "Given Number is Prime Number"

End If

End Sub

Private Sub Command2_Click()

Text1.Text = ""

End Sub

Private Sub Form_Load()

End Sub

DIWANSHI LONHARE B.SC-III Page31


COMPUTER SOFTWARE (VISUAL BASIC & DBMS) 2023-2024

OUTPUT:

DIWANSHI LONHARE B.SC-III Page32


COMPUTER SOFTWARE (VISUAL BASIC & DBMS) 2023-2024

5.Write a program to add Date and time feature in the toolbar.


Layout:

CODING;
Private Sub Command1_Click()
MsgBox "The Time is "& Time
End Sub

Private Sub Command2_Click()


MsgBox "The Date is "& Date
End Sub

DIWANSHI LONHARE B.SC-III Page33


COMPUTER SOFTWARE (VISUAL BASIC & DBMS) 2023-2024

OUTPUT:

DIWANSHI LONHARE B.SC-III Page34


COMPUTER SOFTWARE (VISUAL BASIC & DBMS) 2023-2024

6.Write a program to illustrated all functionalities of list box and


combo box.
Layout:

CODING:
Private Sub Command1_Click()

Combo1.AddItem Text1.Text

Text1.Text = " "

End Sub

Private Sub Command2_Click()

List1.AddItem Text1.Text

End Sub

Private Sub Command3_Click()

Dim A As Integer

A = Combo1.ListIndex

DIWANSHI LONHARE B.SC-III Page35


COMPUTER SOFTWARE (VISUAL BASIC & DBMS) 2023-2024

If A >= 0 Then

Combo1.RemoveItem Combo1.ListIndex

End If

End Sub

Private Sub Command4_Click()

Dim B As Integer

B = List1.ListIndex

If B >= 0 Then

List1.RemoveItem List1.ListIndex

End If

End Sub

Private Sub Command5_Click()

List1.Clear

End Sub

Private Sub Command6_Click()

Print "Number of List item "& Combo1.ListCount

End Sub

Private Sub Command7_Click()

Combo1.Clear

End Sub

Private Sub Command8_Click()

End

DIWANSHI LONHARE B.SC-III Page36


COMPUTER SOFTWARE (VISUAL BASIC & DBMS) 2023-2024

End Sub

Private Sub Form_Load()

End Sub

OUTPUT:

DIWANSHI LONHARE B.SC-III Page37


COMPUTER SOFTWARE (VISUAL BASIC & DBMS) 2023-2024

7. Design an interface, which will appear like mark sheet. it will


take input of mark in five subject and calculate total marks and
percentage then proved grade according to following criteria.
(Using nested if)(use tab index property to move focus).
If% Then Grade
>=90 A+
>=75 &<90 A
>=60 &<75 B
>=45 &<60 C
Otherwise F
Layout:

DIWANSHI LONHARE B.SC-III Page38


COMPUTER SOFTWARE (VISUAL BASIC & DBMS) 2023-2024

CODING:
Private Sub Command1_Click()
Dim s1 As Integer, s2 As Integer, s3 As Integer, s4, s5 As Integer
Dim sum, prac, total, per As Long
s1 = Val(Text7.Text)
s2 = Val(Text8.Text)
s3 = Val(Text9.Text)
s4 = Val(Text10.Text)
s5 = Val(Text11.Text)
S6 = Val(Text12.Text)
S7 = Val(Text13.Text)
S8 = Val(Text14.Text)
S9 = Val(Text15.Text)
S10 = Val(Text16.Text)
sum = s1 + s2 + s3 + s4 + s5
Label52 = sum
Label54 = s1 + S6
Label55 = s2 + S7
Label56 = s3 + S8
Label57 = s4 + S9
Label58 = s5 + S1
prac = S6 + S7 + S8 + S9 + S10 + s11
Label53 = prac
total = s1 + s2 + s3 + s4 + s5 + S6 + S7 + S8 + S9 + S10
Label48.Caption = total

DIWANSHI LONHARE B.SC-III Page39


COMPUTER SOFTWARE (VISUAL BASIC & DBMS) 2023-2024

per = total / 5
Label49.Caption = per

If per >= 85 Then


Label59.Caption = "A+"
ElseIf per >= 60 And per < 84 Then
Label59.Caption = "B"
ElseIf per >= 40 And per <= 59 Then
Label59.Caption = "C"
Else: Label59.Caption = "FAIL"
End If
End Sub

Private Sub Command2_Click()


Dim s1 As Integer, s2 As Integer, s3 As Integer, s4, s5, S6, S7, S8, S9, S10 As Integer
Dim sum, theory, total, per As Long
s1 = Val(Text7.Text)
s2 = Val(Text8.Text)
s3 = Val(Text9.Text)
s4 = Val(Text10.Text)
s5 = Val(Text11.Text)
S6 = Val(Text12.Text)
S7 = Val(Text13.Text)
S8 = Val(Text14.Text)
S9 = Val(Text15.Text)
S10 = Val(Text16.Text)

DIWANSHI LONHARE B.SC-III Page40


COMPUTER SOFTWARE (VISUAL BASIC & DBMS) 2023-2024

sum = s1 + s2 + s3 + s4 + s5
Label52.Caption = sum
Label54 = s1 + S6
Label55 = s2 + S7
Label56 = s3 + S8
Label57 = s4 + S9
Label58 = s5 + S10

theory = S6 + S7 + S8 + S9 + S10 + s11


total = s1 + s2 + s3 + s4 + s5 + S6 + S7 + S8 + S9 + S10
per = total / 5
Label49.Caption = per
End Sub

Private Sub Command3_Click()


Dim s1 As Integer, s2 As Integer, s3 As Integer, s4, s5 As Integer
Dim sum, prac, total, per As Long
s1 = Val(Text7.Text)
s2 = Val(Text8.Text)
s3 = Val(Text9.Text)
s4 = Val(Text10.Text)
s5 = Val(Text11.Text)
S6 = Val(Text12.Text)
S7 = Val(Text13.Text)
S8 = Val(Text14.Text)
S9 = Val(Text15.Text)

DIWANSHI LONHARE B.SC-III Page41


COMPUTER SOFTWARE (VISUAL BASIC & DBMS) 2023-2024

S10 = Val(Text16.Text)
sum = s1 + s2 + s3 + s4 + s5
total = s1 + s2 + s3 + s4 + s5 + S6 + S7 + S8 + S9 + S10
Label48.Caption = total
per = total / 5
Label49.Caption = per
If per >= 33 And per < 60 Then
Label64.Caption = "second division"
ElseIf per >= 60 Then
Label64.Caption = "first divisions"
End If
End Sub

Private Sub Form_Load()


End Sub

Private Sub Picture1_Click()


Picture1.Picture = LoadPicture("C:\Users\asus\Desktop\download.jpg")
End Sub

DIWANSHI LONHARE B.SC-III Page42


COMPUTER SOFTWARE (VISUAL BASIC & DBMS) 2023-2024

OUTPUT:

DIWANSHI LONHARE B.SC-III Page43


COMPUTER SOFTWARE (VISUAL BASIC & DBMS) 2023-2024

8. Write a program for temperature conversion using option


button.
Layout:

CODING:
Private Sub Form_Load()
End Sub

Private Sub Option1_Click()


If (Option1 = True) Then
Label2.Caption = ((Val(Text1.Text)) * 1.8) - 32
End If
End Sub
Private Sub Option2_Click()
If (Option2 = True) Then
Label2.Caption = ((Val(Text1.Text)) - 32) / 1.8
End If

DIWANSHI LONHARE B.SC-III Page44


COMPUTER SOFTWARE (VISUAL BASIC & DBMS) 2023-2024

End Sub
OUTPUT:

DIWANSHI LONHARE B.SC-III Page45


COMPUTER SOFTWARE (VISUAL BASIC & DBMS) 2023-2024

9. Write a program using checkboxes for following font effect.


Bold
Italic
Underline
Increasing font size
Decreasing font size
Font color

Layout:

CODING:

Private Sub Check1_Click()

If Check1.Value = 1 Then

Text1.FontBold = True

Else

DIWANSHI LONHARE B.SC-III Page46


COMPUTER SOFTWARE (VISUAL BASIC & DBMS) 2023-2024

Text1.FontBold = False

End If

End Sub

Private Sub Check2_Click()

If Check2.Value = 1 Then

Text1.FontItalic = True

Else

Text1.FontItalic = False

End If

End Sub

Private Sub Check3_Click()

If Check3.Value = 1 Then

Text1.FontUnderline = True

Else

Text1.FontUnderline = False

End If

End Sub

Private Sub Check4_Click()

If Check4.Value = 1 Then

DIWANSHI LONHARE B.SC-III Page47


COMPUTER SOFTWARE (VISUAL BASIC & DBMS) 2023-2024

Text1.FontSize = 18

Else

Text1.FontSize = 16

End If

End Sub

Private Sub Check5_Click()

If Check5.Value = 1 Then

Text1.FontSize = 14

Else

Text1.FontSize = 16

End If

End Sub

Private Sub Check6_Click()

If Check6.Value = 1 Then

Text1.ForeColor = vbBlue

Else

Text1.ForeColor = vdred

End If

End Sub

Private Sub Form_Load()

DIWANSHI LONHARE B.SC-III Page48


COMPUTER SOFTWARE (VISUAL BASIC & DBMS) 2023-2024

End Sub

OUTPUT:

DIWANSHI LONHARE B.SC-III Page49


COMPUTER SOFTWARE (VISUAL BASIC & DBMS) 2023-2024

10. Write a program to launch a rocket. Using picture box and


timer control.
Layout:

CODING:
Private Sub Command1_Click()
Timer1.Interval = 200
End Sub

Private Sub Command2_Click()


End
End Sub

Private Sub Image1_Click()


End Sub

DIWANSHI LONHARE B.SC-III Page50


COMPUTER SOFTWARE (VISUAL BASIC & DBMS) 2023-2024

Private Sub Timer1_Timer()


Picture1.Top = Picture1.Top - 10
End Sub
OUTPUT:

Rocket Launcher

DIWANSHI LONHARE B.SC-III Page51


COMPUTER SOFTWARE (VISUAL BASIC & DBMS) 2023-2024

11. Write a program to change back color of any control(label, text

box)using scrollbox.

Layout:

CODING:

Private Sub Form_Load()

End Sub

Private Sub HScroll1_Change()

Text1.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)

End Sub

Private Sub HScroll2_Change()

DIWANSHI LONHARE B.SC-III Page52


COMPUTER SOFTWARE (VISUAL BASIC & DBMS) 2023-2024

Text1.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)

End Sub

Private Sub HScroll3_Change()

Text1.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)

End Sub

OUTPUT:

12. Write a program to search an element for a one dimension


static array.

DIWANSHI LONHARE B.SC-III Page53


COMPUTER SOFTWARE (VISUAL BASIC & DBMS) 2023-2024

Layout:

CODING:
Dim A(10) As Integer
Dim I As Integer
Dim flAs Integer
Dim srch As Integer
Dim psAs Integer
Private Sub Command1_Click()
For I = 1 To 5 Step 1
A(I) = Val(InputBox("Enter the elements of Array", "INPUT"))
Next I
End Sub

Private Sub Command2_Click()


fl = 0
srch = Val(InputBox("Enter the number to search in array"))
For I = 1 To 5 Step 1

DIWANSHI LONHARE B.SC-III Page54


COMPUTER SOFTWARE (VISUAL BASIC & DBMS) 2023-2024

If A(I) = srch Then


ps = I
fl = fl + 1
Exit For
End If
Next I
Print
Print "Your Entered Array is"
Print
For I = 1 To 5 Step 1
Print A(I);
Next I
If fl> 0 Then
Text1.Text = ps
Label1.Caption = "The No. You entered is in positon No."
Else
Text1.Text = "Not Found"
Label1.Caption = "Number Not Found"
End If
End Sub

Private Sub Command3_Click()


End
End Sub
OUTPUT:

DIWANSHI LONHARE B.SC-III Page55


COMPUTER SOFTWARE (VISUAL BASIC & DBMS) 2023-2024

13. Write a program to illustrate call by value and call by


reference. (to swap two value)
Layout:

DIWANSHI LONHARE B.SC-III Page56


COMPUTER SOFTWARE (VISUAL BASIC & DBMS) 2023-2024

CODING:
Dim X As Integer
Dim Y As Integer
Dim TEMP As Integer

Private Sub Command1_Click()


X = Val(Text1.Text)
Y = Val(Text2.Text)
End Sub

Private Sub Command2_Click()


Call swp_vl(X, Y)
End Sub

Private Sub Command3_Click()


Call swp_rf(X, Y)
End Sub

Function swp_vl(ByVal A As Integer, B As Integer)


Text3.Text = A
Text4.Text = B

DIWANSHI LONHARE B.SC-III Page57


COMPUTER SOFTWARE (VISUAL BASIC & DBMS) 2023-2024

TEMP = A
A=B
B = TEMP
Text5.Text = A
Text6.Text = B
End Function

Function swp_rf(ByRef A As Integer, B As Integer)


Text7.Text = X
Text8.Text = Y
TEMP = A
A=B
B = TEMP
Text9 = A
Text10 = B
End Function

Private Sub Form_Load()


End Sub

OUTPUT:

DIWANSHI LONHARE B.SC-III Page58


COMPUTER SOFTWARE (VISUAL BASIC & DBMS) 2023-2024

14. Factorial of a number using user defined function.

DIWANSHI LONHARE B.SC-III Page59


COMPUTER SOFTWARE (VISUAL BASIC & DBMS) 2023-2024

Layout:

CODING:
Dim n As Integer
n = Val(Text1.Text)
s = factorial(n)
Text2.Text = s
End Sub

Private Function factorial(X As Integer) As Integer


Dim I%, f1%
f1 = 1
For I = X To 1 Step -1
f1 = f1 * I
Next I
factorial = f1
End Function

DIWANSHI LONHARE B.SC-III Page60


COMPUTER SOFTWARE (VISUAL BASIC & DBMS) 2023-2024

Private Sub Command2_Click()


Text1.Text = ""
Text2.Text = ""
End Sub

Private Sub Command3_Click()


End
End Sub
OUTPUT:

DIWANSHI LONHARE B.SC-III Page61


COMPUTER SOFTWARE (VISUAL BASIC & DBMS) 2023-2024

15. Write a program to check whether it is a palindrome or


not( without using structure function)
Layout:

CODING:
Dim word As String
Dim rev As String
Private Sub Command1_Click()
word = InputBox("Enter a Word")
rev = StrReverse(word)
If StrComp(word, rev) = 0 Then
MsgBox "palindrome"

DIWANSHI LONHARE B.SC-III Page62


COMPUTER SOFTWARE (VISUAL BASIC & DBMS) 2023-2024

Else
MsgBox "not a palindrome"""
End If
End Sub

Private Sub Form_Load()


End Sub

OUTPUT:

DIWANSHI LONHARE B.SC-III Page63


COMPUTER SOFTWARE (VISUAL BASIC & DBMS) 2023-2024

16. Write a program to find smallest among given three number


using user defined procedures.
Layout:

CODING:
Dim A As Integer
Dim B As Integer
Dim c As Integer
Private Sub Command1_Click()
A = Val(Text1.Text)
B = Val(Text2.Text)
c = Val(Text3.Text)
Call comp
End Sub
Sub comp()

DIWANSHI LONHARE B.SC-III Page64


COMPUTER SOFTWARE (VISUAL BASIC & DBMS) 2023-2024

If (A < B And B < c) Then


Text4.Text = (" " & A)
Else
If (B < A And A < c) Then
Text4.Text = (" " & B)
Else
Text4.Text = (" " & c)
End If
End If
End Sub

Private Sub Command2_Click()


Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
End Sub

Private Sub Command3_Click()


End
End Sub

Private Sub Form_Load()


End Sub

DIWANSHI LONHARE B.SC-III Page65


COMPUTER SOFTWARE (VISUAL BASIC & DBMS) 2023-2024

OUTPUT:

DIWANSHI LONHARE B.SC-III Page66


COMPUTER SOFTWARE (VISUAL BASIC & DBMS) 2023-2024

17. Write a program Fibonacci using recursion.

Layout:

CODING:
Private Sub Command1_Click()
Dim A As Integer
Dim B As Integer
Dim n As Integer
n = Val(Text1.Text)
A=0
B=1
Print A;
Print B;
Call pfibo(A, B, n)
End Sub

Private Sub Command2_Click()


Dim A As Integer

DIWANSHI LONHARE B.SC-III Page67


COMPUTER SOFTWARE (VISUAL BASIC & DBMS) 2023-2024

Dim B As Integer
Dim n As Integer
Dim s As Integer
Dim c As Integer
n = Val(Text1.Text)
A=0
B=1
s = sfibo(A, B, n, c)
Text2.Text = s

End Sub
Private Function pfibo(A%, B%, n%)
Dim c%
If (n > 0) Then
c=A+B
If (n >= 3) Then
Print c;
End If
A=B
B=c
Call pfibo(A, B, n - 1)
End If
End Function

Private Function sfibo(A%, B%, n%, c%) As Integer


If (n > 0) Then
c=A+B
A=B
B=c
sfibo = sfibo(A, B, n - 1, c)
Else
sfibo = c - 1
End If
End Function

DIWANSHI LONHARE B.SC-III Page68


COMPUTER SOFTWARE (VISUAL BASIC & DBMS) 2023-2024

Private Sub Command3_Click()


Text1.Text = ""
Text2.Text = ""
End Sub

Private Sub Command4_Click()


End
End Sub

Private Sub Form_Load()


End Sub

OUTPUT:

DIWANSHI LONHARE B.SC-III Page69


COMPUTER SOFTWARE (VISUAL BASIC & DBMS) 2023-2024

18. Write a program to perform read write operations in a


sequential file.
Layout:

CODING:
Private Sub Command1_Click()

Dim name, rno As String


Open "C:\abc.txt" For Output As #1
name = Val(Text1.Text)
rno = Val(Text2.Text)

Write #1, name


Write #1, rno
MsgBox "data written"
Close #1
End Sub

DIWANSHI LONHARE B.SC-III Page70


COMPUTER SOFTWARE (VISUAL BASIC & DBMS) 2023-2024

Private Sub Command2_Click()


Dim name, rno As Variant
Open "C:\abc.txt" For Input As #1

Input #1, name


Input #1, rno
MsgBox "Reading from file"

Text3.Text = name
Text4.Text = rno
Close #1

End Sub
Private Sub Command3_Click()
End
End Sub

OUTPUT:

DIWANSHI LONHARE B.SC-III Page71


COMPUTER SOFTWARE (VISUAL BASIC & DBMS) 2023-2024

19. Write a program to take input of x in the following manner


X*x=x
X*2x=2x
……
X*10x=10x

DIWANSHI LONHARE B.SC-III Page72


COMPUTER SOFTWARE (VISUAL BASIC & DBMS) 2023-2024

Layout:-

Private Sub Command1_Click()

Dim n As Integer

n = Val(Textbox1.Text)

For i = 1 To 10 Step 1

Print n & "x" & i & " = " & n * i

Next

End Sub

DIWANSHI LONHARE B.SC-III Page73


COMPUTER SOFTWARE (VISUAL BASIC & DBMS) 2023-2024

OUTPUT:

DIWANSHI LONHARE B.SC-III Page74


COMPUTER SOFTWARE (VISUAL BASIC & DBMS) 2023-2024

20. Write a Program to create a simple calculator (Using control


array).

Layout:

CODING:
Dim a, b, c As Integer

Private Sub Command10_Click()


c = Val(Text1.Text)

If a = 1 Then
Text1.Text = b + c

ElseIf a = 2 Then
Text1.Text = b - c

ElseIf a = 3 Then
Text1.Text = b * c

DIWANSHI LONHARE B.SC-III Page75


COMPUTER SOFTWARE (VISUAL BASIC & DBMS) 2023-2024

ElseIf a = 4 Then
Text1.Text = b / c
ElseIf a = 5 Then
Text1.Text = b Mod c
ElseIf a = 6 Then
Text1.Text = b ^ 0.5

Else
Text1.Text = 0
End If
End Sub

Private Sub Command11_Click()


Text1.Text = Text1.Text & "."
End Sub

Private Sub Command12_Click()


Text1.Text = Text1.Text & 7
End Sub

Private Sub Command13_Click()


Text1.Text = Text1.Text & 8
End Sub

Private Sub Command14_Click()


Text1.Text = Text1.Text & 9
End Sub

Private Sub Command15_Click()


Text1.Text = Text1.Text & 4
End Sub

Private Sub Command16_Click()

DIWANSHI LONHARE B.SC-III Page76


COMPUTER SOFTWARE (VISUAL BASIC & DBMS) 2023-2024

Text1.Text = Text1.Text & 5


End Sub

Private Sub Command17_Click()


Text1.Text = Text1.Text & 6
End Sub

Private Sub Command18_Click()


Text1.Text = Text1.Text & 1
End Sub

Private Sub Command19_Click()


Text1.Text = Text1.Text & 2
End Sub

Private Sub Command2_Click()


Text1.Text = ""
End Sub

Private Sub Command20_Click()


Text1.Text = Text1.Text & 3
End Sub

Private Sub Command21_Click()


Text1.Text = Text1.Text & 0
End Sub

Private Sub Command22_Click()


Text1.Text = Text1.Text & 0
End Sub

Private Sub Command3_Click()


Unload Me

DIWANSHI LONHARE B.SC-III Page77


COMPUTER SOFTWARE (VISUAL BASIC & DBMS) 2023-2024

End Sub

Private Sub Command4_Click()


a=1
b = Text1.Text
Text1.Text = ""

End Sub

Private Sub Command5_Click()


a=2
b = Text1.Text
Text1.Text = ""
End Sub

Private Sub Command6_Click()


a=3
b = Text1.Text
Text1.Text = ""
End Sub

Private Sub Command7_Click()


a=4
b = Text1.Text
Text1.Text = ""
End Sub

Private Sub Command8_Click()


a=5
b = Text1.Text
Text1.Text = ""
End Sub

Private Sub Command9_Click()

DIWANSHI LONHARE B.SC-III Page78


COMPUTER SOFTWARE (VISUAL BASIC & DBMS) 2023-2024

a=6
b = Text1.Text
Text1.Text = ""
End Sub

OUTPUT:

Addition of 11+6=

DIWANSHI LONHARE B.SC-III Page79

You might also like