4則運算

Public Class Form1
Dim A, B As Single
Dim c As Double
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub

Private Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click
A = Val(TextBox1.Text)
B = Val(TextBox2.Text)
c = A - B
TextBox3.Text = c
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
A = Val(TextBox1.Text)
B = Val(TextBox2.Text)
c = A + B
TextBox3.Text = c
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
A = Val(TextBox1.Text)
B = Val(TextBox2.Text)
c = A * B
TextBox3.Text = c
End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
A = Val(TextBox1.Text)
B = Val(TextBox2.Text)
c = A / B
TextBox3.Text = c
End Sub

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
End
End Sub
End Class


點我下載