上机宝典.pptVIP

输入一个学生的五门课的考试成绩，判断其是否为优秀。优秀的条件为：五门课成绩总分超过450分或每门课程在88以上或每门主课（前三门）的成绩都在95分以上其他课程在80分以上 Private Sub Command1_Click() Dim a!, b!, c!, d!, e!, sum! a = Val(InputBox(请输入第一门课成绩)) b = Val(InputBox(请输入第二门课成绩)) c = Val(InputBox(请输入第三门课成绩)) d = Val(InputBox(请输入第四门课成绩)) e = Val(InputBox(请输入第五门课成绩)) sum = a + b + c + d + e If sum = 450 Or (a = 88 And b = 88 And c = 88 And d = 88 And e = 88) Or (a = 95 And b = 95 And c = 95 And d = 80 And e = 80) Then MsgBox 该同学成绩优秀 End If End Sub 运输部门的货物运输与里程有关，距离越远，每吨货物的单价越低，假设每吨单价P与距离S之间的关系如下， 32 S100 28 100=S200 P= 25 200=S300 22.5 3