这道VB题目怎么做啊!

来源:百度知道 编辑:UC知道 时间:2024/06/22 00:28:47
题目说得分平均大于95分,两门成绩是100,且第三门成绩不低于80
二等奖平均分大于90分,有一门成绩是100分,且另两门功课成绩不低于
75分。
三等奖各门功课不低于70分。
我做出来了但是它有一个附加条件,符合条件者就高不就低,只能获得高的那一项奖金。每次我输入本来是获得二等奖的结果显示出来的是三等奖,就是这个问题怎么解决啊!!
窗体上有1个label,3个文本框,2个按钮。
Dim a, b, c As Integer
a = Val(Text1.Text)
b = Val(Text1.Text)
c = Val(Text1.Text)
If a >= 70 And b >= 70 And c >= 70 Then
If (a + b + c) / 3 >= 95 Or (a = 100 And b = 100 And c >= 80) _
Or (a >= 80 And b = 100 And c = 100) Or (a = 100 And b >= 80 And c >= 80) Then
lbl.Caption = "恭喜你中了一等奖"
End If
ElseIf (a + b + c) / 3 >= 90 Or (a = 100 And b >= 75 And c >= 75) _
Or (a >= 75 And b >= 75 And c = 100) Or (a >= 75 And b = 100 And c >= 75) Then
lbl.Caption = "恭喜你中了二等奖"
End If
lbl.Caption = "恭喜你中了三等奖"
End If
End Sub
就是怎么写三等奖?写出来后运行程序时说缺少表达式,还有就是就高不就低的问题,当我输入80,80,97它显示出来却是三等奖,而我要的是二等奖,有没有办法是不是要用什么函数什么的,请写

Dim a, b, c As Integer
a = Val(Text1.Text)
b = Val(Text1.Text)
c = Val(Text1.Text)
if a>70 and b>70 and c>70 then
lbl.Caption = "恭喜你中了三等奖"
End If
if (a+b+c)/3>90 and ((a=100 and b>=75 and c>=75) or (a>=75 and b=100 and c>=75) or (a>=75 and b>=75 and c=100)) then
lbl.Caption = "恭喜你中了二等奖"
End If
if (a+b+c)/3>95 and ((a=100 and b=100 and c>=80) or (a=100 and b>=80 and c=100) or (a>80 and b=100 and c=100)) then
lbl.Caption = "恭喜你中了一等奖"
End If