Option Strict On
Option Explicit On
Public Class Form1
Dim decNumber1 As Decimal
Dim decNumber2 As Decimal
Dim decResult As Decimal
Dim dblNumber1 As Double
Dim dblNumber2 As Double
Dim dblResult As Double
Dim intNumber1 As Integer
Dim intNumber2 As Integer
Dim intResult As Integer
Private Sub btnAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAdd.Click
'txtResult.Text = txtNumber1.Text + txtNumber2.Text
If IsNumeric(txtNumber1.Text) Then
If IsNumeric(txtNumber2.Text) Then
decNumber1 = CDec(txtNumber1.Text)
decNumber2 = CDec(txtNumber2.Text)
decResult = decNumber1 + decNumber2
txtResult.Text = CStr(decResult)
End If
End If
End Sub
Private Sub btnSub_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSub.Click
If IsNumeric(txtNumber1.Text) Then
If IsNumeric(txtNumber2.Text) Then
decNumber1 = CDec(txtNumber1.Text)
decNumber2 = CDec(txtNumber2.Text)
decResult = decNumber1 - decNumber2
txtResult.Text = CStr(decResult)
End If
End If
End Sub
Private Sub btnMult_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnMult.Click
If IsNumeric(txtNumber1.Text) Then
If IsNumeric(txtNumber2.Text) Then
decNumber1 = CDec(txtNumber1.Text)
decNumber2 = CDec(txtNumber2.Text)
decResult = decNumber1 * decNumber2
txtResult.Text = CStr(decResult)
End If
End If
End Sub
Private Sub btnDivF_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDivF.Click
If IsNumeric(txtNumber1.Text) Then
If IsNumeric(txtNumber2.Text) Then
decNumber1 = CDec(txtNumber1.Text)
decNumber2 = CDec(txtNumber2.Text)
decResult = decNumber1 / decNumber2
txtResult.Text = CStr(Math.Round(decResult, 2, MidpointRounding.AwayFromZero))
End If
End If
End Sub
Private Sub btnDivI_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDivI.Click
If IsNumeric(txtNumber1.Text) Then
If IsNumeric(txtNumber2.Text) Then
intNumber1 = CInt(txtNumber1.Text)
intNumber2 = CInt(txtNumber2.Text)
intResult = intNumber1 \ intNumber2
txtResult.Text = CStr(intResult)
End If
End If
End Sub
Private Sub btnPower_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPower.Click
If IsNumeric(txtNumber1.Text) Then
If IsNumeric(txtNumber2.Text) Then
dblNumber1 = CDbl(txtNumber1.Text)
dblNumber2 = CDbl(txtNumber2.Text)
dblResult = dblNumber1 ^ dblNumber2
txtResult.Text = CStr(dblResult)
End If
End If
End Sub
Private Sub btnMod_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnMod.Click
If IsNumeric(txtNumber1.Text) Then
If IsNumeric(txtNumber2.Text) Then
intNumber1 = CInt(txtNumber1.Text)
intNumber2 = CInt(txtNumber2.Text)
intResult = intNumber1 Mod intNumber2
txtResult.Text = CStr(intResult)
End If
End If
End Sub
Private Sub btnClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClear.Click
txtNumber1.Text = ""
txtNumber2.Text = ""
txtResult.Text = ""
End Sub
Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click
Me.Close()
End Sub
End Class
