有5个学生，每个学生有姓名，学号，数学英语物理化学四门课程成，输入成绩后，求出每个学生的总分和平均

有5个学生，每个学生有姓名，学号，数学英语物理化学四门课程成，输入成绩后，求出每个学生的总分和平均分，并按平均分大小从高到低输出这五个学生的平均分(用自定义类型)

推荐答案 2017-05-06

用什么语言编写程序？

Private Type Student
  Name As String * 4
  StudentID As String
  Math As Single
  English As Single
  Physics As Single
  Chemistry As Single
  Total As Single
  Average As Single
  Ranking As Integer
End Type

Private Sub Command1_Click()
  Randomize (Timer)
  Dim Stu(4) As Student
  For i = LBound(Stu) To UBound(Stu)
    With Stu(i)
      .Name = InputBox("No_" & i + 1 & "_Name:", "成绩录入", "000" & i + 1)
      .StudentID = InputBox("No_" & i & "_ID:", "成绩录入", "15F00" + CStr(i))
      .Math = InputBox("No_" & i + 1 & "_Math:", "成绩录入", Int(Rnd(i + 1) * 50 + 50))
      .English = InputBox("No_" & i + 1 & "_English:", "成绩录入", Int(Rnd(i + 1) * 50 + 50))
      .Physics = InputBox("No_" & i + 1 & "_Physics:", "成绩录入", Int(Rnd(i + 1) * 50 + 50))
      .Chemistry = InputBox("No_" & i + 1 & "_Chemistry:", "成绩录入", Int(Rnd(i + 1) * 50 + 50))
      .Total = .Math + .English + .Physics + .Chemistry
      .Average = .Total / 4
      List1.AddItem .Name + Space(2) + .StudentID + Space(2) + CStr(Format(.Math, "0.00")) + Space(2) + CStr(Format(.English, "0.00")) + Space(2) + CStr(Format(.Physics, "0.00")) + Space(2) + CStr(Format(.Chemistry, "0.00")) + Space(2) + CStr(Format(.Total, "0.00")) + Space(2) + CStr(Format(.Average, "0.00"))
    End With
  Next i

  For i = LBound(Stu) To UBound(Stu) - 1
    For j = i + 1 To UBound(Stu)
      If Stu(j).Average > Stu(i).Average Then
        t = Stu(i).Name
        Stu(i).Name = Stu(j).Name
        Stu(j).Name = t
        t = Stu(i).StudentID
        Stu(i).StudentID = Stu(j).StudentID
        Stu(j).StudentID = t
        t = Stu(i).Math
        Stu(i).Math = Stu(j).Math
        Stu(j).Math = t
        t = Stu(i).English
        Stu(i).English = Stu(j).English
        Stu(j).English = t
        t = Stu(i).Physics
        Stu(i).Physics = Stu(j).Physics
        Stu(j).Physics = t
        t = Stu(i).Chemistry
        Stu(i).Chemistry = Stu(j).Chemistry
        Stu(j).Chemistry = t
        t = Stu(i).Total
        Stu(i).Total = Stu(j).Total
        Stu(j).Total = t
        t = Stu(i).Average
        Stu(i).Average = Stu(j).Average
        Stu(j).Average = t
      End If
    Next j
  Next i
  Stu(0).Ranking = 1
  For i = LBound(Stu) + 1 To UBound(Stu)
    If Stu(i).Average = Stu(i - 1).Average Then
      Stu(i).Ranking = i + 1 - 1
    Else
      Stu(i).Ranking = i + 1
    End If
  Next i
  List1.Clear
  List1.AddItem "名次" + Space(2) + "姓  名" + Space(2) + "学  号" + Space(2) + "数学" + Space(2) + "英语" + Space(2) + "物理" + Space(2) + "化学" + Space(2) + "总  分" + Space(2) + "平均分"
  For i = LBound(Stu) To UBound(Stu)
    With Stu(i)
      List1.AddItem Space(2) + CStr(.Ranking) + Space(3) + .Name + Space(1) + .StudentID + Space(2) + CStr(Format(.Math, "0.00")) + Space(2) + CStr(Format(.English, "0.00")) + Space(2) + CStr(Format(.Physics, "0.00")) + Space(2) + CStr(Format(.Chemistry, "0.00")) + Space(2) + CStr(Format(.Total, "0.00")) + Space(2) + CStr(Format(.Average, "0.00"))
    End With
  Next i
End Sub

温馨提示：答案为网友推荐，仅供参考

当前网址：http://66.wendadaohang.com/zd/D29spD2pvv9ns9Usns.html

其他回答

第1个回答 2017-04-21

用公式sum和average

相似回答

输入五名学生四门课程的成绩,统计每个学生的总分,及确定每个学生的名次...答：{ int num; //学号 double mark[4]; //4门成绩 double erea; //总分 };void fun(){ int i,j;double dtemp=0.0;int itemp=0;struct student stu[5];//输入每个学生的学号，和四门成绩 for (i=0; i<5; i++){ printf("输入第%i个学生的学号和4门成绩\n",i+1);scanf("%d...

...谢谢c#写一个c#程序输入5名学生的四门课程成绩,然后求各自的平均成...答：Console.WriteLine("{0}的平均成绩为{1}",name,average);} }

输入五个学生的四门课程成绩,要求输出每个学生的平均成绩,然后对平均成 ...答：struct student { int english;int math;int computer;int linux;int c;double average;};int main(){ int i,j;struct student Stu[5];struct student temp;printf("请输入五个学生的成绩\n");for(i=0;i<5;i++){ printf("第%d位学生的成绩:",i+1);printf("english:\n");scanf("%d...

假设有五位同学四门功课成绩,编一程序计算每位同学的总分、平均分及各...答：void main(){ float score[M],add[N]={0},k[M]={0};int i,j;for(i=0;i<N;i++){ add[i]=0;printf("输入第%d个学生4门课程的成绩\n",i+1);for(j=0;j<M;j++){ scanf("%f",&score[j]);add[i]+=score[j];k[j]+=score[j];} } for(i=0;i<N;i++)printf("...

输入5个学生4门课程的成绩,求(1)每个学生的总分(2)每门课程的平均分(3...答：我曾经回答过一个问题，和你的类似。题目如下，你可以参考一下:/ 从键盘输入38个学生的基本数据,包括学号,姓名,性别以及3门课程的单科成绩。（1）计算每个学生3门课程的总分和平均成绩；（2）找出每门课程中成绩最好和成绩最差的学生,并输出这些学生的基本数据；（3） 3门课程总成绩按由高分到...

c++输入5个学生的4门课程成绩,请分别求出这4门学科的平均成绩答：include<string.h> struct { char name[10];double cj[4];}student[5];int main(){ int i,j;double avg;for(i=0;i<5;i++){ avg=0;gets(student[i].name);for(j=0;j<4;j++){ scanf("%lf",&student[i].cj[j]);avg+=student[i].cj[j];} avg/=4;printf("%s 平均成绩...

大家正在搜

输入学生的姓名学号成绩输出学生的学号和姓名数学物理化学生物的关系数学和物理化学有关系吗物理化学和数学哪个难数学物理化学生物查询学生的学号和姓名查询全体学生的学号和姓名数学差是不是学不好物理化学