Index: S NO. Topics No. Teacher Sign

INDEX
S Topics Page Teacher

NO. no. sign.
1. Program to show the use of 4-5

inputbox and messagebox to
display the name
2. Program to accept a number 6-8

an check whether it is prime
or not
3. Progrom to show largest in 9-10

three numbers using call by
value
4. Program to print Fibonacci 11

series
5. Program to print factorial 12-13

series
6. Program To Find the Sum of 14-15

Array elements
7. Program to show arraylist and 16-19

its operations
1
8. Program to swap 2 numbers 20-21
using call by reference method.
9. Program to find the length of the 22-23

string and check whether it is
palindrome or not
10. Program to illustrate Calculator 24-27
11. Program to illustrate the class 28-30
12. Program on overloaded 31-32

methods - Polymorphism
13. Program on Hierarchical 33-34

Inheritance
14. Program to show 35-36

Implementation of Multi-level
Inheritance
15. Program to show 37-38

Implementation of Multiple
Inheritance using Interface
2
16. Write a program to transfer 39-41
items from listbox to
combobox and vice versa
17. Program to display current date 42-43

& time
18. Program on illustration of 44-46

menustrip control
19. Program on illustration of 47-51

listview control in vb.net
20. Program on Exceptional 52-54

Handling
21. Program of accessing database 55

using datagrid
22. Program to perform database 56-61

operations(add,delete,update)
using ADO.net
3
1. Program to show the use of inputbox and
messagebox to display the name
CODING :
Public Class Form1

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim a As String
a = TextBox1.Text
MessageBox.Show("HELLO " & a & " WELCOME TO VB.NET")
End Sub
End Class
4
OUTPUT :
5
2. Program to accept a number an check whether it is
prime or not
CODING:
Public Class Form1

Dim i, j As Integer
Dim t As Boolean i
= TextBox1.Text t =
True
For j = 2 To (i - 1)
If i Mod j = 0 Then
t = False
Exit For
End If
Next j
If t Then
MsgBox(i & " is prime number")
Else
MsgBox(i & " is not a prime number")
End If
End Sub
End Class
6
Output :
7
3. Progrom to show largest in three numbers using
call by value
8
CODING :
Module largest
Public Function large(ByVal a As Integer, b As Integer, c As Integer)
Dim max As Integer
If a > b And a > c Then
max = a ElseIf b > c
Then max = b
Else max = c
End If
Return max
End Function
End Module
Public Class Form1

Dim x, y, z As Integer
x = TextBox1.Text y =
TextBox2.Text z =
TextBox3.Text
Label4.Text = "LARGEST IS " & large(x, y, z)

End Sub

End
9
End Sub
End Class
OUTPUT :
4. Program to print Fibonacci series

Module Module1
Sub Main()
'to print fibonacci series
Dim f1, f2, f, cnt As Integer
Dim n As Integer
cnt = 1 f1 = 0
f2 = 1
Console.WriteLine("Enter a number")
n = Console.ReadLine()
Console.WriteLine("Fibonacci Series are as follows......")
Console.WriteLine(f1)
Console.WriteLine(f2)
While (cnt <= n) f =
f1 + f2
10
Console.WriteLine(f)
f1 = f2 f2 = f
cnt += 1
End While
Console.ReadKey()
End Sub
End Module
11
5. Program to print factorial series
Public Class Form1

'Factorial using function
Dim n As Integer n = CInt(TextBox1.Text)
Label2.Text = "Factorial of " & n & "is" & fact(n)
End Sub

End
End Sub
End Class
Module Factorial
Public Function fact(ByVal x As Integer) As Long
Dim i As Integer = 1
Dim f As Integer = 1
Do While (i <= x)
f *= i i += 1
Loop
Return f
End Function
End Module
12
6. Program To Find the Sum of Array elements
13
CODING:
Module Module1
Sub Main()
Dim n(5) As Integer
Dim s As Integer = 0
Console.WriteLine("Enter 5 Elements")
For i = 1 To 5
n(i) = CInt(Console.ReadLine())
Next i
Console.WriteLine("Array Elements are")
For i = 1 To 5
Console.WriteLine(n(i))
s = s + n(i)
Next i
Console.WriteLine("Sum of array elements=" & s)
Console.ReadLine()
End Sub
End Module
OUTPUT:
14
7. Program to show arraylist and its operations
CODING:
Public Class Form1

Dim A As New ArrayList
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button3.Click
15
A.Insert(3, "BJMC")
TextBox1.Clear()
MsgBox("Item inserted successfully", , "Inserting an item ")
For i = 0 To A.Count - 1
TextBox1.Text = TextBox1.Text + " " + A.Item(i) + vbCrLf
Next
End Sub

A.RemoveAt(2)
TextBox1.Clear()
MsgBox("Item removed successfully",,)
Next
End Sub
A.Remove("BCA")
TextBox1.Clear()
MsgBox("Deleted successfully",, "Deletion operation on Arraylist")
Next
End Sub
A.Add("BCA")
A.Add("MCA") A.Add("BBA")
A.Add("MBA")
MsgBox("Items added",, "Arraylist")
End Sub
MsgBox("Number of Items added is " & A.Count,, "Displaying Arraylist")
TextBox1.Clear()
Next
End Sub
A.Sort()
TextBox1.Clear()
MsgBox("Number of Items added is " & A.Count,, "Displaying Sorted Arraylist")
Next
End Sub
End Class
16
17
18
19
8. Program to swap 2 numbers using call by reference method
CODING :
Module funcswap
Public Sub swap(ByRef x As Integer, ByRef y As Integer)
Dim t As Integer
t=x x=y
y=t
End Sub
End Module
Public Class Form1

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles
Button1.Click
Dim a, b As Integer
a = CInt(TextBox1.Text)
b = CInt(TextBox2.Text)
swap(a, b)
TextBox3.Text = a
TextBox4.Text = b
End Sub

Button2.Click
End
End Sub
End Class
20
OUTPUT:
9. Program to find the length of the string and check

whether it is palindrome or not
21
CODING :
Public Class Form2
Dim st, rev As String
Button2.Click
End
End Sub
Button1.Click st =
TextBox1.Text rev =
Trim(StrReverse(st))
Label2.Text = rev
If String.Compare(st, rev, True) = 0 Then
MsgBox(st & " Is a Palindrome", , "To Check string")
Else
MsgBox(st & " Not a Palindrome", , "To Check string")
End If
End Sub
Button3.Click
st = TextBox1.Text
MsgBox("Length of the string is " & st & " is " & Len(st), , "Find Length")
End Sub
Private Sub Label3_Click(sender As Object, e As EventArgs)
End Sub
End Class
22
OUTPUT:
10. Program to illustrate Calculator
23
CODING :
Public Class Form1

Dim temp1, flag, result As Integer
Button2.Click
TextBox1.Text = Convert.ToString(TextBox1.Text) + Convert.ToString(2)
End Sub
Button1.Click
End Sub
Button10.Click
End Sub

Button3.Click
End Sub

Button4.Click
End Sub
24
Button5.Click
End Sub
Button6.Click
End Sub

Button7.Click
End Sub

Button8.Click
End Sub

Button9.Click
End Sub
TextBox1.Text = " "
End Sub

temp1 = TextBox1.Text
TextBox1.Text = " "
flag = 4
End Sub

If flag = 0 Then
result = temp1 + TextBox1.Text
TextBox1.Text = " "
TextBox1.Text = result
ElseIf flag = 1 Then
result = temp1 - TextBox1.Text
TextBox1.Text = " "
ElseIf flag = 2 Then
25
result = temp1 / TextBox1.Text
TextBox1.Text = " "
Else
result = temp1 * TextBox1.Text
TextBox1.Text = " "
End If
End Sub

TextBox1.Text = " "
flag = 3
End Sub

TextBox1.Text = " "
flag = 0
End Sub
TextBox1.Text = " "
flag = 1
End Sub
End Class
26
OUTPUT:
27
11. Program to illustrate the class
CODING :
Public Class Telephonebill
Button1.Click
Dim p As Long = CLng(TextBox1.Text)
Dim s As String = TextBox2.Text
Dim c As Integer = CInt(TextBox3.Text)
Dim a As Double
Dim ob1 As New telcall(p, s, c)
a = ob1.compute()
Label6.Text = a
End Sub

Button2.Click
28
End
End Sub
End Class
Module Modcls
Public Class telcall
Dim phno As Long
Dim name As String
Dim n As Integer
Dim amt As Double
Public Sub New(ByVal p As Long, ByVal s As String, ByVal c As Integer)
phno = p name = s n=c amt = 0.0
End Sub
Public Function compute() As Double
If (n <= 100) Then
amt = 500
ElseIf (n <= 200) Then
amt = (n - 100) * 1.0 + 500
ElseIf (n <= 300) Then
amt = 100 * 1.0 + (n - 200) * 1.2 + 500
Else
amt = 100 * 1.0 + 100 * 1.2 + (n - 300) * 1.5 + 500
End If
Return amt
End Function
End Class End
Module
29
OUTPUT:
30
12. Program on overloaded methods -
Polymorphism
CODING:
Public Class test

Sub area(ByVal a As Integer)
Dim sqarea As Integer = 0
sqarea = a * a
Form1.Label1.Text = "Area of a Square is " & sqarea
End Sub
Sub area(ByVal l As Integer, ByVal b As Integer)
Dim recarea As Integer = 0
recarea = l * b
Form1.Label2.Text = "Area of a Rectange is " & recarea
End Sub
Sub area(ByVal r As Double)
Dim cirarea As Double = 0
cirarea = 3.14 * r * r
Form1.Label3.Text = "Area of a Circle is " & cirarea
End Sub
End Class
Public Class Form1

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Label1.Visible = False
End Sub
Dim ob1 As New test()
Label1.Visible = True
31
ob1.area(5) ob1.area(6,
5) ob1.area(2.5)
End Sub
End Class
32
13. Program on Hierarchical Inheritance
Module module1
'Implementation of Hierarchical Inheritance
Public Class number
Dim num As Integer
Public Sub getnum()
Console.Write("Enter a number : ")
num = CInt(Console.ReadLine())
End Sub
Public Function retnum() As Integer
Return num
End Function
End Class
Public Class square
Inherits number
Public sqr, n1 As Integer
Public Function sqrnum(ByRef n1 As Integer) As Integer
sqr = n1 * n1 Return sqr
End Function
End Class
Public Class cube
Inherits number
Public cub, n2 As Double
Public Function cubnumber(ByRef n2 As Double) As Double
cub = n2 * n2 * n2
Return cub
End Function
End Class
Sub main()
Dim sobj As New square
Dim cuobj As New cube
Dim a As Integer
sobj.getnum() a=
sobj.retnum()
Console.WriteLine("Square of " & a & " is " & sobj.sqrnum(a))
Console.WriteLine(vbCrLf)
cuobj.getnum() a=
cuobj.retnum()
Console.WriteLine("Cube of " & a & " is " & cuobj.cubnumber(a))
Console.ReadKey()
End Sub
33
End Module
34
14. Program to show Implementation of Multi-level
Inheritance
'Implementation of Multi-level Inheritance

Public Class person
Public Name As String
Public Age As Integer
Public Sub New(ByVal Name As String, ByVal Age As Integer)
Me.Name = Name
Me.Age = Age
End Sub
End Class
Class Player
Inherits person
Public Sport As String
Public Team As String
Public Sub New(ByVal Name As String, ByVal Age As Integer,
ByVal Sport As String, ByVal Team As String)
MyBase.New(Name, Age)
Me.Team = Team
Me.Sport = Sport
End Sub
End Class
Class BasketPlayer
Inherits Player
Public PointsPerGame As Double
Public Rebounds As Double
Public Sub New(ByVal Name As String, ByVal Age As Integer,

ByVal Sport As String, ByVal Team As String, ByVal Points As Double, ByVal
Rebounds As Double)
MyBase.New(Name, Age, Sport, Team)
Me.PointsPerGame = Points
Me.Rebounds = Rebounds
End Sub
Public Sub Show()
Console.WriteLine("Multi-level Inheritance")
Console.WriteLine("")
Console.WriteLine("Player: " & Name)
Console.WriteLine("Age: " & Age)
Console.WriteLine("Sport: " & Sport)
Console.WriteLine("Team: " & Team)
Console.WriteLine("Points: " & PointsPerGame)
Console.WriteLine("Rebounds: " & Rebounds)
End Sub
End Class
Sub Main()
Dim p As New BasketPlayer("AA", 12, "Basketball", "Team", 25.5, 6.3)
p.Show() Console.ReadKey()
35
End Sub
36
15. Program to show Implementation of Multiple
Inheritance using Interface
Module Module2
'Implementation of Multiple Inheritance using Interface
Interface test
Function marks() As Integer
End Interface
Interface sports
Function grade_show(ByVal avg As Single) As Char
End Interface
Class result
Implements test
Implements sports
Public Function marks() As Integer Implements test.marks
Dim m1, m2, m3, m4, m5 As Integer
Dim avg As Single
Console.WriteLine("Enter the marks of five subjects")
m1 = CInt(Console.ReadLine()) m2 =
CInt(Console.ReadLine()) m3 =
CInt(Console.ReadLine()) avg = (m1 + m2 + m3 + m4 +
m5) / 5
Return avg
End Function
Public Function grade_show(ByVal avg As Single) As Char Implements sports.grade_show
Dim grade As Char
If avg >= 80 Then
grade = "A" ElseIf
avg >= 60 Then
grade = "B" ElseIf
avg >= 50 Then
grade = "C" Else
grade = "D"
End If
Return grade
End Function
End Class
Sub main()
Dim obj As New result()
Dim av As Single
Console.WriteLine("Implementation of Multiple Inheritance using Interface")
av = obj.marks() Console.WriteLine()
Console.WriteLine("Average Marks is " & av)
Console.WriteLine()
Console.WriteLine("Grade is " & obj.grade_show(av))
Console.ReadKey()
End Sub
End Module
37
38
16. Write a program to transfer items from listbox to
combobox and vice versa.
CODING:
Public Class Form1
Dim n As Integer
Private Sub ListBox1_SelectedIndexChanged(sender As Object, e As EventArgs)
Handles ListBox1.SelectedIndexChanged
' MsgBox(ListBox1.SelectedItem)
End Sub
Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs)

Handles ComboBox1.SelectedIndexChanged
' MsgBox(ComboBox1.SelectedItem)
End Sub

ListBox1.Items.Add(ComboBox1.SelectedItem)
ListBox1.Items.Remove(ListBox1.Text)
End Sub
39
ComboBox1.Items.Add(ListBox1.SelectedItem)
ComboBox1.Items.Remove(ComboBox1.Text)
End Sub

n = ListBox1.Items.Count
For i = 0 To n - 1
ListBox1.Items.Add(ComboBox1.Items(i))
Next
End Sub

Dim m As Integer m = ComboBox1.Items.Count
For i = 0 To n - 1
ComboBox1.Items.Add(ListBox1.Items(i))
Next
End Sub
End Class
OUTPUT:
40
41
17. Program to display current date & time
CODING :
Public Class digitalclk
Button1.Click
End
End Sub

Button2.Click
Label1.Text = System.DateTime.Today
Label2.Text = DateTime.Now.ToLongTimeString()
End Sub
End Class
OUTPUT:
42
18. Program on illustration of menustrip control
43
Public Class Form1
Dim t As String
Private Sub CUTToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles
CUTToolStripMenuItem.Click
t = TextBox1.Text
TextBox1.Text = " "
End Sub
Private Sub COPYToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles
COPYToolStripMenuItem.Click
t = TextBox1.Text
End Sub
Private Sub PASTERToolStripMenuItem_Click(sender As Object, e As EventArgs)
Handles PASTERToolStripMenuItem.Click
TextBox2.Text = t
End Sub
End Class
44
45
46
19. Program on illustration of listview control
CODING :
Public Class Form2
Dim arrproducts(4) As String
Private Sub RadioButton1_CheckedChanged(sender As Object, e As EventArgs)
Handles RadioButton1.CheckedChanged
If RadioButton1.Enabled = True Then
ListView2.Visible = False
ListView1.Visible = True
ListView1.View = View.List
End If
End Sub
ListView1.View = View.Details
End If
End Sub
47
For i = 0 To arrproducts.Length - 1
ListView2.Items.Add(arrproducts(i)) 'Add Each Item Of Array
ListView2.Items(i).ImageIndex = i 'Align ImageList Images With Array
Items
Next
End If
End Sub

Dim i As Integer
ListView3.Clear()
For i = 0 To arrproducts.Length - 1
ListView3.Items.Add(arrproducts(i)) 'Add Each Item Of Array
ListView3.Items(i).ImageIndex = i 'Align ImageList Images With Array
Items
Next
End If
End Sub

ListView1.View = View.Tile
End If
End Sub
Private Sub Form2_Load(sender As Object, e As EventArgs) Handles

MyBase.Load
arrproducts(0) = "Computer"
arrproducts(1) = "Mouse"
arrproducts(2) = "Printer" arrproducts(3)
= "Scanner"
End Sub
End Class
48
OUTPUT:
49
50
51
20. Program on Exceptional Handling
CODING:
Public Class Form1

Dim a = 10, b = 0, q As Integer Try q = a / b
Catch ex As ArithmeticException
MsgBox("Division by zero",, "Arithmetic Exception")
End Try
End Sub

Dim a As Integer
a = CInt(InputBox("Enter your marks"))
Try
If (a > 100) Then
Throw New my1("Enter marks less than 100")
End If
Catch obj As my1
MsgBox(obj.Message,, "User-defined Exception")
End Try
End Sub
Public Class my1
Inherits Exception
Public Sub New(ByVal msg As String)
MyBase.New(msg)
End Sub
End Class
End Class
52
OUTPUT:
53
54
21. Program of accessing database using datagrid
OUTPUT:
55
22. Program to perform database
operations(add,delete,update) using ADO.net
Imports System.Data.OleDb
Public Class Form1
56
Public rno As String
Dim con As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data
Source=F:\kiheat\New folder\clg.accdb")
con.Open()
Dim cmd As New OleDbCommand("insert into student values(" + TextBox1.Text +
",'" + TextBox2.Text + "','" + TextBox3.Text + "','" + TextBox4.Text + "'," +
TextBox5.Text + ")", con) cmd.ExecuteNonQuery()
MsgBox("record added") con.Close() End Sub
End
End Sub
flag()
rno = InputBox("Enter the rollno. to be deleted")
disp()
con.Open()
Dim cmd As New OleDbCommand("Delete from student where rollno=" + rno, con)
cmd.ExecuteNonQuery() MsgBox("Record DELETED") con.Close()
End Sub

flag()
Dim fld, value As String

rno = InputBox("Enter the rollno to be updated")
disp()
fld = InputBox("Enter the fieldname to be updated")
value = InputBox("Enter new value")
con.Open()
Dim cmd As New OleDbCommand("update student set " + fld + "=" + value + "
where rollno =" + rno, con) cmd.ExecuteNonQuery() MsgBox("Record
updated") disp() con.Close() End Sub
Public Sub flag()
TextBox1.Enabled = False
End Sub
Public Sub disp()
con.Open()
Dim cmd As New OleDbCommand("Select * from student where rollno= " + rno, con)
Dim dr As OleDbDataReader = cmd.ExecuteReader()
dr.Read()
TextBox1.Text = dr(0)
End Sub
57
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
'TODO: This line of code loads data into the 'ClgDataSet.student' table. You can move,
or remove it, as needed.
Me.StudentTableAdapter.Fill(Me.ClgDataSet.student)
ListBox1.Enabled = False
End Sub
End Class
OUTPUTS :
ADDING RECORD INTO STUDENT TABLE
58
DELETING RECORD FROM STUDENT TABLE
59
60
UPDATING RECORD IN A STUDENT TABLE
61
62

Index: S NO. Topics No. Teacher Sign

Uploaded by

Copyright:

Available Formats

Index: S NO. Topics No. Teacher Sign

Uploaded by

Document Information

Original Description:

Original Title

Copyright

Available Formats

Share this document

Share or Embed Document

Sharing Options

Did you find this document useful?

Is this content inappropriate?

Copyright:

Available Formats

Index: S NO. Topics No. Teacher Sign

Uploaded by

Copyright:

Available Formats

INDEX

S Topics Page Teacher

1. Program to show the use of 4-5

2. Program to accept a number 6-8

3. Progrom to show largest in 9-10

4. Program to print Fibonacci 11

5. Program to print factorial 12-13

6. Program To Find the Sum of 14-15

7. Program to show arraylist and 16-19

9. Program to find the length of the 22-23

10. Program to illustrate Calculator 24-27

11. Program to illustrate the class 28-30

12. Program on overloaded 31-32

13. Program on Hierarchical 33-34

14. Program to show 35-36

15. Program to show 37-38

17. Program to display current date 42-43

18. Program on illustration of 44-46

19. Program on illustration of 47-51

20. Program on Exceptional 52-54

21. Program of accessing database 55

22. Program to perform database 56-61

Public Class Form1

Public Class Form1

Public Class Form1

Label4.Text = "LARGEST IS " & large(x, y, z)

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

4. Program to print Fibonacci series

Public Class Form1

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

Public Class Form1

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As

Public Class Form1

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles

9. Program to find the length of the string and check

10. Program to illustrate Calculator

Public Class Form1

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles

Private Sub Button4_Click(sender As Object, e As EventArgs) Handles

Private Sub Button7_Click(sender As Object, e As EventArgs) Handles

Private Sub Button8_Click(sender As Object, e As EventArgs) Handles

Private Sub Button9_Click(sender As Object, e As EventArgs) Handles

Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As

Private Sub Button13_Click(ByVal sender As System.Object, ByVal e As

Private Sub Button14_Click(ByVal sender As System.Object, ByVal e As

Private Sub Button16_Click(ByVal sender As System.Object, ByVal e As

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles

Public Class test

Public Class Form1

'Implementation of Multi-level Inheritance

Public Sub New(ByVal Name As String, ByVal Age As Integer,

Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs)

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click

Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles

Private Sub RadioButton4_CheckedChanged(sender As Object, e As EventArgs)

Private Sub RadioButton5_CheckedChanged(sender As Object, e As EventArgs)