vb.net写的一个简单计算器（未完善）

Public Class 李晓婷

Dim x As String

Private Sub xs_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles xs.TextChanged

End Sub

Private Sub num1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles num1.Click

xs.Text = xs.Text & "1"

End Sub

Private Sub num2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles num2.Click

xs.Text = xs.Text & "2"

End Sub

Private Sub num3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles num3.Click

xs.Text = xs.Text & "3"

End Sub

Private Sub num4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles num4.Click

xs.Text = xs.Text & "4"

End Sub

Private Sub num5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles num5.Click

xs.Text = xs.Text & "5"

End Sub

Private Sub num6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles num6.Click

xs.Text = xs.Text & "6"

End Sub

Private Sub num7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles num7.Click

xs.Text = xs.Text & "7"

End Sub

Private Sub num8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles num8.Click

xs.Text = xs.Text & "8"

End Sub

Private Sub num9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles num9.Click

xs.Text = xs.Text & "9"

End Sub

Private Sub num0_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles num0.Click

xs.Text = xs.Text & "0"

End Sub

Private Sub dian_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles dian.Click

xs.Text = xs.Text & "."

End Sub

Private Sub add_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles add.Click

x = xs.Text

xs.Text = ""

Label1.Text = "+"

End Sub

Private Sub jian_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jian.Click

x = xs.Text

xs.Text = ""

Label1.Text = "-"

End Sub

Private Sub cheng_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cheng.Click

x = xs.Text

xs.Text = ""

Label1.Text = "*"

End Sub

Private Sub chu_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chu.Click

x = xs.Text

xs.Text = ""

Label1.Text = "/"

End Sub

Private Sub deng_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles deng.Click

If Label1.Text = "+" Then

xs.Text = Trim(Str(Val(x) + Val(xs.Text)))

End If

If Label1.Text = "-" Then

xs.Text = Trim(Str(Val(x) - Val(xs.Text)))

End If

If Label1.Text = "*" Then

xs.Text = Trim(Str(Val(x) * Val(xs.Text)))

End If

If Label1.Text = "/" Then

If Val(xs.Text) = 0 Then

xs.Text = "除数不能为零"

Else

If -1 < Val(x) / Val(xs.Text) And Val(x) / Val(xs.Text) < 0 Then

xs.Text = Trim("-0" & Trim(Str((Val(x) / Val(xs.Text)))))

Else

If 0 < Val(x) / Val(xs.Text) And Val(x) / Val(xs.Text) < 1 Then

xs.Text = Trim("0" & Trim(Str(Val(x) / Val(xs.Text))))

Else

xs.Text = Trim(Str(Val(x) / Val(xs.Text)))

End If

End If

End If

End If

End Sub

Private Sub ac_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ac.Click

xs.Text = ""

End Sub

Private Sub back_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles back.Click

End

End Sub

Private Sub Form_Load()

Label1.Visible = False

End Sub

End Class