设计一个vb程序，能进行四则运算。。。。。最简单的，截图就行。。。。
Public myflag As Integer
Private Sub add_Click()
Me.subtrack.Enabled = False
Me.ride.Enabled = False
Me.remove.Enabled = False
myflag = 1
Me.Text2.SetFocus
End Sub
Private Sub Command1_Click()
Select Case myflag
Case 1
Me.Text3.Text = Val(Me.Text1) + Val(Me.Text2)
Case 2
Me.Text3.Text = Val(Me.Text1) - Val(Me.Text2)
Case 3
Me.Text3.Text = Val(Me.Text1) * Val(Me.Text2)
Case 4
Me.Text3.Text = Val(Me.Text1) / Val(Me.Text2)
End Select
End Sub
Private Sub Command2_Click()
Me.Text1 = ""
Me.Text2 = ""
Me.Text3 = ""
myflag = 0
Me.subtrack.Enabled = True
Me.ride.Enabled = True
Me.add.Enabled = True
Me.remove.Enabled = True
Me.Text1.SetFocus
End Sub
Private Sub Form_Load()
Me.Text1 = ""
Me.Text2 = ""
Me.Text3 = ""
End Sub
Private Sub remove_Click()
Me.subtrack.Enabled = False
Me.ride.Enabled = False
Me.add.Enabled = False
myflag = 4
Me.Text2.SetFocus
End Sub
Private Sub ride_Click()
Me.subtrack.Enabled = False
Me.add.Enabled = False
Me.remove.Enabled = False
myflag = 3
Me.Text2.SetFocus
End Sub
Private Sub subtrack_Click()
Me.add.Enabled = False
Me.ride.Enabled = False
Me.remove.Enabled = False
myflag = 2
Me.Text2.SetFocus
End Sub
