Public Class Form1
Dim Almacenar As String = " "
Dim Resultado1 As Integer = 0
Dim Resultado2 As Double
Private Sub
Button13_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
Button13.Click
TextBox1.Text =
TextBox1.Text + "1"
End Sub
Private Sub
Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
MyBase.Load
End Sub
Private Sub
Button10_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
Button10.Click
TextBox1.Text =
TextBox1.Text + "2"
End Sub
Private Sub
Button4_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
Button4.Click
TextBox1.Text =
TextBox1.Text + "3"
End Sub
Private Sub
Button12_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
Button12.Click
TextBox1.Text =
TextBox1.Text + "4"
End Sub
Private Sub
Button9_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
Button9.Click
TextBox1.Text =
TextBox1.Text + "5"
End Sub
Private Sub
Button7_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
Button7.Click
TextBox1.Text =
TextBox1.Text + "6"
End Sub
Private Sub
Button11_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
Button11.Click
TextBox1.Text =
TextBox1.Text + "7"
End Sub
Private Sub
Button8_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
Button8.Click
TextBox1.Text =
TextBox1.Text + "8"
End Sub
Private Sub
Button5_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
Button5.Click
TextBox1.Text =
TextBox1.Text + "9"
End Sub
Private Sub
Button18_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
Button18.Click
If (TextBox1.Text = "0")
Then
Return
Else
TextBox1.Text = TextBox1.Text + "0"
End If
End Sub
Private Sub
Button14_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
Button14.Click
Almacenar =
"suma"
Resultado1 = Val(TextBox1.Text)
TextBox1.Text = ""
End Sub
Private Sub
Button16_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
Button16.Click
Almacenar =
"resta"
Resultado1 = Val(TextBox1.Text)
TextBox1.Text = ""
End Sub
Private Sub
Button15_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
Button15.Click
Almacenar =
"multiplicacion"
Resultado1 = Val(TextBox1.Text)
TextBox1.Text = ""
End Sub
Private Sub
Button6_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
Button6.Click
Almacenar =
"divicion"
Resultado1 = Val(TextBox1.Text)
TextBox1.Text = ""
End Sub
Private Sub
Button2_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
Button2.Click
Almacenar =
"division"
Resultado1 = Val(TextBox1.Text)
TextBox1.Text = ""
End Sub
Private Sub
Button1_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
Button1.Click
Almacenar =
"movi"
Resultado1 = Val(TextBox1.Text)
TextBox1.Text = ""
End Sub
Private Sub
Button17_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
Button17.Click
If (Almacenar = "suma")
Then
TextBox1.Text = Resultado1 + Val(TextBox1.Text)
End If
If (Almacenar
= "resta") Then
TextBox1.Text = Resultado1 -
Val(TextBox1.Text)
End If
If (Almacenar = "multiplicacion")
Then
TextBox1.Text = Resultado1 * Val(TextBox1.Text)
End If
If (Almacenar = "divicion")
Then
TextBox1.Text = Resultado1 / Val(TextBox1.Text)
End If
If (Almacenar = "division")
Then
TextBox1.Text = Resultado2 / Val(TextBox1.Text)
End If
If (Almacenar = "movi")
Then
TextBox1.Text = Resultado1 Mod
Val(TextBox1.Text)
End If
End Sub
Private Sub
Button3_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
Button3.Click
TextBox1.Text =
" "
End Sub
End Class
