Private Sub Command1_Click()
Dim s1, s2, ort As Integer
s1 = Val(Text1.Text)
s2 = Val(Text2.Text)
ort = (s1 + s2)
Command1.Caption = ort
End Sub
Private Sub Command2_Click()
Dim s3, s4, ort As Integer
s3 = Val(Text3.Text)
s4 = Val(Text4.Text)
ort = (s3 * s4)
Command2.Caption = ort
End Sub
Private Sub Command3_Click()
Dim s1, s2, ort As Integer
s5 = Val(Text5.Text)
s6 = Val(Text6.Text)
ort = (s5 - s6)
Command3.Caption = ort
End Sub
Private Sub Command4_Click()
Dim s1, s2, ort As Integer
s7 = Val(Text7.Text)
s8 = Val(Text8.Text)
ort = (s7 / s8)
Command.Caption = ort
End Sub
Dim s1, s2, ort As Integer
s1 = Val(Text1.Text)
s2 = Val(Text2.Text)
ort = (s1 + s2)
Command1.Caption = ort
End Sub
Private Sub Command2_Click()
Dim s3, s4, ort As Integer
s3 = Val(Text3.Text)
s4 = Val(Text4.Text)
ort = (s3 * s4)
Command2.Caption = ort
End Sub
Private Sub Command3_Click()
Dim s1, s2, ort As Integer
s5 = Val(Text5.Text)
s6 = Val(Text6.Text)
ort = (s5 - s6)
Command3.Caption = ort
End Sub
Private Sub Command4_Click()
Dim s1, s2, ort As Integer
s7 = Val(Text7.Text)
s8 = Val(Text8.Text)
ort = (s7 / s8)
Command.Caption = ort
End Sub