一个窗体单击事件过程如下: Private Sub Form_Click() X = Val(Text1.Text):Y = Val(Text2.Text) If X = 0 Or Y = 0 Then Print "不在任何象限内": Exit Sub If X > 0 And Y > 0 Then Print "IN A" If X > 0 And Y < 0 Then Print "IN D" If X < 0 And Y > 0 Then Print "IN B" If X < 0 And Y < 0 Then Print "IN C"End Sub