End Sub
2.参考答案：
Private Sub Command1_Click()
Dim b1 As Boolean, b2 As Boolean, b3 As Boolean, b4 As Boolean Dim m1%, m2%, m3%
m1 = Text1: m2 = Text2: m3 = Text3 b1 = (m1 + m2 + m3) / 3 >= 95
b2 = m1 = 100 And m2 = 100 And m3 >= 80 b3 = m3 = 100 And m2 = 100 And m1 >= 80 b4 = m1 = 100 And m3 = 100 And m2 >= 80 If b1 Or b2 Or b3 Or b4 Then Label4 = \一等奖\Else
Label4 = \无一等奖\End If End Sub
26