UC知道vb题目求解
来源：百度知道 编辑：UC知道 时间：2024/06/22 21:03:36
学校对学习成绩优良的学生将进行奖励，只要满足如下条件之一就可以获奖：
1.所考5门课的总分超过450分。
2.每门课的成绩都在88分以上。
3.前3门课（主课）的成绩都在95分之上，其他两门（副课）的成绩都在80分以上。
输入某学生5门课的成绩S1，S2，S3，S4，S5，判断它是否能获奖。
jl = False
If s1 + s2 + s3 + s4 + s5 > 450 Then jl = True
If s1 > 88 And s2 > 88 And s3 > 88 And s4 > 88 And s5 > 88 Then jl = True
If s1 > 95 And s2 > 95 And s3 > 95 And s4 > 80 And s5 > 80 Then jl = True
Print IIf(jl, "能获奖!", "不能获奖!") 有点看不懂，能说下么？
1.所考5门课的总分超过450分。
2.每门课的成绩都在88分以上。
3.前3门课（主课）的成绩都在95分之上，其他两门（副课）的成绩都在80分以上。
输入某学生5门课的成绩S1，S2，S3，S4，S5，判断它是否能获奖。
jl = False
If s1 + s2 + s3 + s4 + s5 > 450 Then jl = True
If s1 > 88 And s2 > 88 And s3 > 88 And s4 > 88 And s5 > 88 Then jl = True
If s1 > 95 And s2 > 95 And s3 > 95 And s4 > 80 And s5 > 80 Then jl = True
Print IIf(jl, "能获奖!", "不能获奖!") 有点看不懂，能说下么？
Private Sub Command1_Click()
Dim s1!, s2!, s3!, s4!, s5!, jl As Boolean
s1 = Val(InputBox("请输入课目1的成绩!"))
s2 = Val(InputBox("请输入课目2的成绩!"))
s3 = Val(InputBox("请输入课目3的成绩!"))
s4 = Val(InputBox("请输入课目4的成绩!"))
s5 = Val(InputBox("请输入课目5的成绩!"))
jl = False
If s1 + s2 + s3 + s4 + s5 > 450 Then jl = True
If s1 > 88 And s2 > 88 And s3 > 88 And s4 > 88 And s5 > 88 Then jl = True
If s1 > 95 And s2 > 95 And s3 > 95 And s4 > 80 And s5 > 80 Then jl = True
Print IIf(jl, "能获奖!", "不能获奖!")
End Sub