Question

VB程序设计，帮忙写一下，谢谢如题 谢谢了

编制程序，计算某个学生奖学金的等级，以三门课程成绩M1，M2，M3为评奖依据，其中M1和M2为两门主课。奖学金评状标准如下： 一等奖：符合下列条件之一者可得一等奖： （1）平均分大于95者 （2）有一门主课成绩是100分，且其他功课成绩不低于80分者。 二等奖：符合下列条件之一者可得二等奖： （1）平均分大于90者； （2）有一门主课成绩是95分，且其他功课成绩不低于75分者。 三等奖：各门功课成绩均不低于70分者。 要求通过InputBox函数输入三门课成绩，显示获奖的等级。

Answer 1

为什么楼主不给分呢,管不得没有人来回答 我还是给你回答一下吧,如果楼主喜欢的给点分我也是可以接受的 代码: Dim M1, M2, M3 As Double Private Sub Command1_Click() M1 = InputBox("请输入第一门主课成绩", "主课") Do While (Not IsNumeric(M1)) MsgBox "你输入的成绩无效,请重新输入", vbOKOnly, "无效成绩" Loop M2 = InputBox("请输入第二门主课成绩", "主课") Do While (Not IsNumeric(M1)) MsgBox "你输入的成绩无效,请重新输入", vbOKOnly, "无效成绩" Loop M3 = InputBox("请输入副课成绩", "副课") Do While (Not IsNumeric(M1)) MsgBox "你输入的成绩无效,请重新输入", vbOKOnly, "无效成绩" Loop '一等奖判断 If (M1 + M2 + M3) / 3 > 95 Then MsgBox "恭喜你获得一等奖!", vbInformation, "一等奖" Exit Sub End If If M1 = 100 Or M2 = 100 Then If M1 >= 80 And M2 >= 80 And M3 >= 80 Then MsgBox "恭喜你获得一等奖!", vbInformation, "一等奖" Exit Sub End If End If '二等奖判断 If (M1 + M2 + M3) / 3 > 90 Then MsgBox "恭喜你获得二等奖!", vbInformation, "二等奖" Exit Sub End If If M1 >= 95 Or M2 >= 95 Then If M1 >= 75 And M2 >= 75 And M3 >= 75 Then MsgBox "恭喜你获得二等奖!", vbInformation, "二等奖" Exit Sub End If End If '三等奖判断 If M1 >= 70 And M2 >= 70 And M3 >= 70 Then MsgBox "恭喜你获得三等奖!", vbInformation, "三等奖" Exit Sub End If '没有奖项 MsgBox "对不起,你没有获得任何奖项", vbInformation, "无奖项" End Sub