ARITHMETIC OPERATION USING VISUAL BASIC

PROGRAM

Dim A As Integer

Dim B As Integer

Dim RESULT As Integer

Private Sub Command1_Click()

A = Text1.Text

B = Text2.Text

RESULT = Val(Text1.Text) + Val(Text2.Text)

Text3.Text = RESULT

End Sub

Private Sub Command2_Click()

A = Text1.Text

B = Text2.Text

RESULT = Val(Text1.Text) - Val(Text2.Text)

Text3.Text = RESULT

End Sub

Private Sub Command3_Click()

A = Text1.Text

B = Text2.Text

RESULT = Val(Text1.Text) * Val(Text2.Text)

Text3.Text = RESULT

End Sub

Private Sub Command4_Click()

A = Text1.Text

B = Text2.Text

RESULT = Val(Text1.Text) / Val(Text2.Text)

Text3.Text = RESULT

End Sub

Private Sub Command5_Click()

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

End Sub

Private Sub Command6_Click()

End

End Sub

Share :

Tweet

✚

Related Post

• ADVANCE COMPUTER PROGRAMMING                            
• Describe in details the relationship between the pointer and array.  Consider and array             
• Find errors if any in the following statements i) int matrix[3],[5] ii) int matrix[3] [5];               Comma between[3] and [5] ,not terminate
• What are the advantages and disadvantages of recursive function. Advantages: Easier understanding Writing compact code Easier coding Using recursively defined
• TEMPERATURE CONVERSION USING VISUAL BASIC PROGRAM Dim F Private Sub Command1_Click() F = (5 / 9 * Text1.Text) - 32 MsgBox "FAHRENHEIT I
• Write a program to illustrate the comparison of structure variables. Struct class {    Int number;    Char name[20];    Float marks;