• Home
 · 
• Math/Dates
 · 
• Easy Math

Easy Math

Do math, add, subtract, multiply, divide

API Declarations
Option Explicit

Public Sub Multiply(X As Integer, Y As Integer)
Dim Z
Z = X * Y
Text3.Text = Str(Z)
End Sub

Public Sub Subtract(X As Integer, Y As Integer)
Dim Z
Z = X - Y
Text3.Text = Str(Z)
End Sub

Public Sub Add(X As Integer, Y As Integer)
Dim Z
Z = X + Y
Text3.Text = Str(Z)
End Sub

Public Sub Divide(X As Integer, Y As Integer)
Dim Z
Z = X / Y
Text3.Text = Str(Z)
End Sub

Rate Easy Math

• 1
• 2
• 3
• 4
• 5

(5(5 Vote))

'Make a Command1
 'Make a Text1
 'Make a Text2
 'Make a Text3 (Locked)
 
 'Add
 Private Sub Command1_Click() 
 Add Text1, Text2 
 End Sub 
 
 'Subtract
 Private Sub Command1_Click() 
 Subtract Text1, Text2 
 End Sub 
 
 'Multiply
 Private Sub Command1_Click() 
 Multiply Text1, Text2 
 End Sub 
 
 'Divide
 Private Sub Command1_Click() 
 Divide Text1, Text2 
 End Sub