Dim var1 As Double
Dim var2 As Double
Private Sub Option1_Click()
Label3.Caption = Val(Text1.Text) + Val(Text2.Text)
End Sub
Private Sub Option10_Click()
Label3.Caption = Val(Text1.Text) < Val(Text2.Text)
End Sub
Private Sub Option11_Click()
Label3.Caption = Val(Text1.Text) <> Val(Text2.Text)
End Sub
Private Sub Option12_Click()
Label3.Caption = Val(Text1.Text) <= Val(Text2.Text)
End Sub
Private Sub Option2_Click()
Label3.Caption = Val(Text1.Text) * Val(Text2.Text)
End Sub
Private Sub Option4_Click()
Label3.Caption = Val(Text1.Text) - Val(Text2.Text)
End Sub
Private Sub Option5_Click()
Label3.Caption = Val(Text1.Text) / Val(Text2.Text)
End Sub
Private Sub Option6_Click()
Label3.Caption = Val(Text1.Text) \ Val(Text2.Text)
End Sub
Private Sub Option7_Click()
Label3.Caption = Val(Text1.Text) > Val(Text2.Text)
End Sub
Private Sub Option8_Click()
Label3.Caption = Val(Text1.Text) = Val(Text2.Text)
End Sub
Private Sub Option9_Click()
Label3.Caption = Val(Text1.Text) >= Val(Text2.Text)
End Sub
Tidak ada komentar:
Posting Komentar