Question

设计一个vb小程序解决下面的问题，最好使用IF分支语句，求高手，求帮助，万分感谢！！！！

计算某个学生的奖学金等级，以3门课程为基准
一等奖：平均分>95或有两门100分，另一门>80
二等奖：平均分>90或一门100分，其他两门>75
三等奖：各门成绩>=70

Answer 1

a=inputbox("输入第一门课成绩")
b=inputbox("输入第二门课成绩")
c=inputbox("输入第三门课成绩")
if (a+b+c)/3>95 or (a=100 and b=100 and c>80 or a=100 and c=100 and b>80 or b=100 and c=100 and a>80) then print "一等奖"
if (a+b+c)/3>90 or (a=100 and b>75 and c>75 or b=100 and a>75 and c>75 or c=100 and a>75 and b>75) then print "二等奖"
if a>=70 and b>=70 and c>=70 then print "三等奖"

Answer 2

建立三个文本框Text1,Text2,Text3,建立1个命令按钮Command1
Text1,Text2,Text3输入三门课程的分数
Private Sub Command1_Click()
dim aver as single
dim s1%,s2%,s3%
s1=val(text1)
s2=val(text2)
s3=val(text3)
aver=(s1+s2+s3)/3
if aver>95 or (s1=100 and s2=100 and s3>80) or (s2=100 and s3=100 and s1>80) or (s1=100 and s3=100 and s2>80) then
msgbox "一等奖"
end if
if aver>90 or (s1=100 and s2>75 and s3>75) or (s2=100 and s3>75 and s1>75) or (s3=100 and s1>75 and s2>75) then
msgbox "二等奖"
end if
if s1>=70 and s2>=70 and s3>=70 then
msgbox "三等奖"
end if
End Sub