Calculator 1 (Visual Basic Tutorial - 6)

Program code:

Private Sub Command1_Click()
Dim a, b As Double
a = Val(Text1)
b = Val(Text2)
Text3 = a + b

End Sub

Private Sub Command2_Click()
Dim a, b As Double
a = Val(Text1)
b = Val(Text2)
Text3 = a * b

End Sub

Private Sub Command3_Click()
Dim a, b As Double
a = Val(Text1)
b = Val(Text2)
Text3 = a - b

End Sub

Private Sub Command4_Click()
Dim a, b As Double
a = Val(Text1)
b = Val(Text2)
Text3 = a / b

End Sub

Private Sub Command6_Click()
Text1 = ""
Text2 = ""
Text3 = ""

End Sub

Private Sub Command7_Click()
End

End Sub
.......................................................................................................
 Project Download