Visual Basic程序设计期末综合练习(6)

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

百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说综合文库Visual Basic程序设计期末综合练习(6)在线全文阅读。