Scribd
Upload
32 views5 pages

Code:: Practical No:3.3

Uploaded by

seemakasture75
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as RTF, PDF, TXT or read online on Scribd
32 views5 pages

Code:: Practical No:3.3

Uploaded by

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

practical no:3.

code:
Public Class Form1

Private Sub Button1_Click(sender As


Object, e As EventArgs) Handles
Button1.Click
Dim a, b, c As New Integer
a = InputBox("Enter 1st no")
b = InputBox("Enter 2nd no")
c = a + b
MsgBox("Sum=" & " " & c)
End Sub

Private Sub Button2_Click(sender As


Object, e As EventArgs) Handles
Button2.Click
Dim a, b, c As New Integer
a = InputBox("Enter 1st no")
b = InputBox("Enter 2nd no")
c = a - b
MsgBox("Sub=" & " " & c)
End Sub

Private Sub Button3_Click(sender As


Object, e As EventArgs) Handles
Button3.Click
Dim a, b, c As New Integer
a = InputBox("Enter 1st no")
b = InputBox("Enter 2nd no")
c = a * b
MsgBox("mul=" & " " & c)
End Sub

Private Sub Button4_Click(sender As


Object, e As EventArgs) Handles
Button4.Click
Dim a, b, c As New Integer
a = InputBox("Enter 1st no")
b = InputBox("Enter 2nd no")
c = a / b
MsgBox("div=" & " " & c)
End Sub
End Class

output:

You might also like