(no subject)

Sep 08, 2005 08:42

Private Sub Form_Load()

End Sub

Private Sub sub_Click()
Dim X As Double
Dim Y As Double
Dim result As Double

X = insertfirst.Text

Y = insertsecond.Text

result = X - Y
answer.Caption = result
End Sub

Private Sub times_Click()
Dim X As Double
Dim Y As Double
Dim result As Double

X = insertfirst.Text

Y = insertsecond.Text

result = X * Y
answer.Caption = result

End Sub
Previous post
Up