Private Sub Form_Click() 窗体上单击后,显示结果为:a=85Select case aCase Is> =60 I=“及格”Case Is> =70 I=“中“Case Is> =80 I=“良”Case else I=“优”End SelectPrint IEnd Sub
一个窗体单击事件过程如下: 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
一个窗体单击事件过程如下: Private Sub Form_Click() Dim a As Integer, b As Integer, c As Integer a = 6 : b = 15 c = a * b If a > b Then a = a - b Else b = b - a End If Print a, b, c / bEnd Sub试问:当单击窗体后,输出为___________。