1.

Implement a program to generate the result of arithmetic expression(windows applications)

Public Class Form1

Dim a As Integer
Dim b As Integer
Dim c As Integer
Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
a = Val(TextBox1.Text)

End Sub

Private Sub TextBox2_TextChanged(sender As Object, e As EventArgs) Handles TextBox2.TextChanged

b = Val(TextBox1.Text)

End Sub

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

c=a+b

MsgBox("Addition is " & c)

End Sub

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

c=a-b

MsgBox("Subtracton is " & c)

End Sub

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

c=a*b

MsgBox("Multiplication is " & c)

End Sub

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

c=a/b

MsgBox("Division is " & c)

End Sub
End Class

Output
2. Write a program using inputbox(),msgbox() and display the result of arithmatic operation
Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

Dim i As Integer
Dim j As Integer
Dim r As Integer
i = InputBox("Enter first number")
j = InputBox("Enter second number")
r = Val(i) + Val(j)
MsgBox("Addition is =" & r)

End Sub

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

Dim i As Integer
Dim j As Integer
Dim r As Integer
i = InputBox("Enter first number")
j = InputBox("Enter second number")
r = Val(i) - Val(j)
MsgBox("Subtraction is =" & r)

End Sub

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

Dim i As Integer
Dim j As Integer
Dim r As Integer
i = InputBox("Enter first number")
j = InputBox("Enter second number")
r = Val(i) * Val(j)
MsgBox("Multiplication is =" & r)
 End Sub

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

Dim i As Integer
Dim j As Integer
Dim r As Integer
i = InputBox("Enter first number")
j = InputBox("Enter second number")
r = Val(i) / Val(j)
MsgBox("Division is =" & r)

End Sub

End Class
3. Write a program using while to print prime number between 1 to 100 using flag
Imports System
Imports System.Diagnostics.Metrics
Imports System.Runtime.Serialization
Imports System.Security.Authentication.ExtendedProtection
Imports System.Threading

Module Program
Sub main()
Dim flag As Boolean

Dim i, count As Integer

i=2
count = 0
For i = 2 To 100
flag = False
For j = 2 To i - 1

If ((i Mod j) = 0) Then

flag = True
Exit For
Else
flag = False
End If
Next
If (flag = False) Then
count += 1
Console.WriteLine(i)

End If
Next
Console.WriteLine("The Count IS " & count)
Console.ReadLine()

End Sub
End Module

Output
4. implement a program to find greatest of three numbers

Imports System

Module Program
Sub Main(args As String())
Dim a, b, c As Integer
Console.WriteLine("Enter value of a: ")
a = Console.ReadLine()

Console.WriteLine("Enter value of b: ")

b = Console.ReadLine()

Console.WriteLine("Enter value of c: ")

c = Console.ReadLine()

If (a > b) Then
If (a > c) Then
Console.WriteLine("Greater number a ")

Else
Console.WriteLine("Greater number c ")
End If
Else
If (b > c) Then
Console.WriteLine("Greater number b ")
Else
Console.WriteLine("Greater number c ")
End If
End If
Console.ReadLine()

End Sub
End Module

Output
5. Develop a program for performing arithmetic operation using select case
Imports System

Module Program
Sub Main(args As String())
Dim a, b, ch, c As Integer
Console.WriteLine("Enter value of a: ")
a = Console.ReadLine()

Console.WriteLine("Enter value of b: ")

b = Console.ReadLine()

Console.WriteLine("1.Addition ")
Console.WriteLine("2.Subtraction ")
Console.WriteLine("3.Multiplication ")
Console.WriteLine("4.Division ")
Console.WriteLine("Enter what you want to perform ")
ch = Console.ReadLine()
Select Case ch
Case 1
c=a+b
Console.WriteLine("Addition is " & c)
Case 2
c=a-b
Console.WriteLine("Subtraction is " & c)
Case 3
c=a*b
Console.WriteLine("Multiplition is " & c)
Case 4
c=a/b
Console.WriteLine("Division is " & c)
Case Else
Console.WriteLine("Wrong input")
End Select

End Sub
End Module

Output
6. write a program using SELECT CASE STATEMENT to count the vowel from A to Z alphabets
(Windows application )

Public Class Form1

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

Dim c, i As Integer
Dim st As String
st = (TextBox1.Text)
c=0

For i = 0 To TextBox1.Text.Length - 1

Select Case TextBox1.Text.ToCharArray(i, 1)

Case "a", "e", "i", "o", "u"
c += 1
Case "A", "E", "I", "O", "U"
c += 1

End Select
Next

MsgBox("The Vowel count in your String is " & c)

End Sub
End Class

Output

7. Write a program using while statement to print 1 to 100 EVEN ODD number (Windows
Application)

Public Class Form1

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim i As Integer = 0
While (i <= 100)
If ((i Mod 2) = 0) Then
TextBox1.Text = TextBox1.Text & " " & i
Else
TextBox2.Text = TextBox2.Text & " " & i
End If
i=i+1
End While

End Sub
End Class

Output
8. Write a program to display armstrong numbers from 1 to 2000
10.Write a program to generate a button at runtime

Public Class Form1

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim b As New Button
b.Location = New Point(100, 100)
b.Size = New Point(100, 100)
b.Text = "shruti"
b.BackColor = Color.Red
b.TextAlign = ContentAlignment.BottomRight

Me.Controls.Add(b)

End Sub
End Class

Output

11. Write a program to select multiple subjects using listbox control

Public Class Form1

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

ListBox1.Items.Add(TextBox1.Text)
End Sub

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

ListBox1.Items.Remove(TextBox1.Text)
End Sub
End Class

Output
12. Write a program to generate panel control at run time(Windows application)
Public Class Form1

Private Sub Form1_Load_1(sender As Object, e As EventArgs) Handles MyBase.Load

Dim p As New Panel
p.Location = New Point(100, 100)
p.Size = New Point(400, 200)
p.BackColor = Color.Pink
Dim t As New TextBox
t.Size = New Point(400, 200)
t.Text = "Enter your name "
p.Controls.Add(t)
Dim r As New RadioButton
r.Size = New Point(200, 200)
p.Controls.Add(r)

Dim c As New CheckBox

c.Location = New Point(10, 50)
c.Text = "ss"
c.Size = New Point(400, 200)
p.Controls.Add(c)
Controls.Add(p)
End Sub
End Class
13. write a program to on and off the bulb using radiobutton (windows )
Public Class Form1
Private Sub RadioButton1_CheckedChanged(sender As Object, e As EventArgs) Handles
RadioButton1.CheckedChanged
PictureBox1.Show()
PictureBox2.Hide()

End Sub

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

RadioButton2.CheckedChanged
PictureBox2.Show()
PictureBox1.Hide()
End Sub
End Class
14 Write a program using erroprovider control to validiate username and password
Public Class Form1

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

If TextBox1.Text = " " Then
ErrorProvider1.SetError(TextBox1, "Please Enter your name")
Else
ErrorProvider1.SetError(TextBox2, "Please Enter your password")

End If
ErrorProvider1.SetError(TextBox2, " Please Enter valid password")
ErrorProvider1.SetError(TextBox1, "Please Enter your name")
End Sub

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

End Sub
End Class

Output
15.Implement a program to find the factorial of a number using recursion (simply use parameterised
function)(windows application)

Public Class Form1

Function fact(ByVal f As Integer)

If f >= 1 Then
Return f * fact(f - 1)
Else
Return 1

End If
End Function

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

label2.text = fact(TextBox1.Text)

End Sub
End Class
16. write a program to identify the volume of box with three data members length,breadth,height

Imports System

Module Program

Public Class Volume_of_box

Dim l, b, h As Double
Sub acceptdata(ByVal _l As Double, ByVal _b As Double, ByVal _h As Double)
l = _l
b = _b
h = _h
End Sub
Sub calculate()
Dim v As Double
v=l*b*h
Console.WriteLine("The volume of box with lenght ={0} & breadth={1} & height={2} is {3} ", {l,
b, h, v})
Console.WriteLine(v)

End Sub

End Class
Sub main()
Dim v As New Volume_of_box()
Dim a, b, c As Double
Console.WriteLine("Enter lenghth,breadth and height :-- ")
a = Console.ReadLine()
b = Console.ReadLine()
c = Console.ReadLine()
v.acceptdata(a, b, c)
v.calculate()
Console.ReadKey()

End Sub
End Module
Output

17. Implement a program to find area of circle using parameterized constructor

Imports System

Module Program

Public Class Circle

Dim rad As Double
Public Sub New(ByVal _r As Double)
rad = _r

End Sub
Sub calculate()
Dim area As Double
area = 3.14 * rad * rad
Console.WriteLine("The radius of circle rad ={0} & and Area is {1} ", {rad, area})
Console.WriteLine(area)

End Sub

End Class
Sub main()
Dim radius As Double
Console.WriteLine("Enter radius of Circle :-- ")
radius = Console.ReadLine()
Dim v As New Circle(radius)
v.calculate()
Console.ReadKey()
End Sub
End Module

Output
18. Write any program of exception handling of your choice

Public Class Form1

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

Dim a, b, div As Integer

a = Val(TextBox1.Text)
b = Val(TextBox2.Text)
Try
div = a / b
Label4.Text = "Division is" & div

Catch ex As Exception
Label4.Text = "Exception Division by number zero"

End Try

End Sub
End Class

Output
19. Write a program to display the TRAFFIC SIGNAL using timer control
Public Class Form1

Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick

If PictureBox1.Visible Then
PictureBox1.Visible = False
PictureBox2.Visible = False
PictureBox3.Visible = True

ElseIf PictureBox3.Visible Then

PictureBox1.Visible = False
PictureBox2.Visible = True
PictureBox3.Visible = False
Else
PictureBox1.Visible = True
PictureBox2.Visible = False
PictureBox3.Visible = False

End If

End Sub

Private Sub PictureBox3_Click(sender As Object, e As EventArgs) Handles PictureBox3.Click

End Sub

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

End Sub
End Class

Output
20. Implement a program using the combobox and listbox by selecting semester and display subjects
Public Class Form1

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

ComboBox1.Items.Add("1")
ComboBox1.Items.Add("2")
ComboBox1.Items.Add("3")
ComboBox1.Items.Add("4")
ComboBox1.Items.Add("5")
End Sub

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

ComboBox1.SelectedIndexChanged

If ComboBox1.SelectedIndex = 0 Then
ListBox1.Items.Clear()
ListBox1.Items.Add("English")
ListBox1.Items.Add("BMS")
ListBox1.Items.Add("Chemistry")
End If
If ComboBox1.SelectedIndex = 1 Then
ListBox1.Items.Clear()
ListBox1.Items.Add("M2")
ListBox1.Items.Add("C programming")
ListBox1.Items.Add("EEC")
End If
If ComboBox1.SelectedIndex = 2 Then
ListBox1.Items.Clear()
ListBox1.Items.Add("DBMS")
ListBox1.Items.Add("C++")
ListBox1.Items.Add("CGR")
End If
If ComboBox1.SelectedIndex = 3 Then
ListBox1.Items.Clear()
ListBox1.Items.Add("DCC")
ListBox1.Items.Add("GAD")
ListBox1.Items.Add("SEN")
End If
If ComboBox1.SelectedIndex = 4 Then
ListBox1.Items.Clear()
ListBox1.Items.Add("AJP")
ListBox1.Items.Add("ACN")
ListBox1.Items.Add("PHP")
End If
End Sub

End Class

Output