以下程序的功能是,从键盘上输入若干学生的成绩,统计并输出最高分数和最低分数,当输入负数时结束输入,请填空。
Private Sub Command1_C1iek()
Dim x As Single
Dim amax As Single,amln As Single
x=InputBox("请输入分数")
amax=x
amin=x
Do While【 】
If x>amax Then
amax=x
End If
If【 】Then
amin=x
End If
x=InputBox("请输入分数")
Loop
Print amax,amin
End Sub
第1题:
编写程序,输入若干学生的学号、姓名和考试成绩。该程序能输出每个学生的学号、姓名和相应的考试成绩,同时能查找并输出最高分的学生的学号、姓名和考试成绩。要求使用结构体数组。
第2题:
从键盘输入若干大于等于零的实数,例如输入若干个同学的成绩数据,当输入负数的时候结束输入。请将用户输入的非负实数降序并保留一位小数输出。
第3题:
已知列表 lst 用于存放学生的姓名和分数,试编写程序,实现以下功能: 1、依次由用户输入五个学生的姓名和分数(假设姓名没有重复,且分数为整数),并依次将他们组成一个元组添加至列表中。 添加完成后列表格式例如:[ ('Tom',90), ('Mary',88), ('John',89), (’Jack‘,78), ('Dora',99) ] 2、根据用户输入的姓名查询分数,如姓名存在,直接将分数输出,否则输出文本‘error’。
第4题:
【简答题】编程实现功能:从键盘上输入若干个学生的成绩,当输入负数时表示输入结束,计算学生的平均成绩,并输出低于平均分的学生成绩。
第5题:
编写程序,输入8位学生5门课的成绩,分别用函数实现以下3个功能,并在主函数中调用:计算每个学生的平均分;计算每门课的平均分;找出所有40个分数中最高的分数所对应的学生和课程。