【正文】 ].english+class_gishui[i].puter+class_gishui[i].math)/3。printf(“學號tt姓名tt英語tt計算機tt數(shù)學tt平均成績n”)。iprintf(“%dtt%stt%ft%ft%ft%fn”,class_gishui[i].no,class_gishui[i].name,class_gishui[i].english,class_gishui[i].puter,class_gishui[i].math,class_gishui[i].average)。struct student t[1]。(i{flag=0。jif(class_gishui[j].averageclass_gishui[j+1].average){t[0]=class_gishui[j]。class_gishui[j+1]=t[0]。}if(flag==0)break。printf(“學號t姓名t英語tt計算機tt數(shù)學tt平均成績n”)。iprintf(“%dt%st%ft%ft%ft%fn”,class_gishui[i].no,class_gishui[i].name,class_gishui[i].english,class_gishui[i].puter,class_gishui[i].math,class_gishui[i].average)。getclass(class_gishui)。paixu(class_gishui)。 輸出序號、成績及分數(shù) Cls Dim i% Print str1 For i = LBound(grade)To UBound(grade)Print grade(i).xh。Space(4Len(Trim(grade(i).xm)))。grade(i).score(2)。grade(i).score(3)。grade(i).score(4)。grade(i).score(5)。grade(i).aver Next i End SubPrivate Sub kecheng_Click()39。Spc(12)。Spc(12)。利用加權(quán)平均分排名 Dim i%, j%, m%, n%, p% Cls Print str1 amp。 “排名” m = LBound(grade): n = UBound(grade)For i = m To n p = 1For j = 1 To nIf grade(i).aver grade(j).aver Then p = p + 1grade(i).rank = pNext jNext i For i = m To nPrint grade(i).xh。Space(4Len(Trim(grade(i).xm)))。grade(i).score(2)。grade(i).score(3)。grade(i).score(4)。grade(i).score(5)。grade(i).aver, grade(i).rank Next i End SubPrivate Sub pjf_Click()Cls Dim i%, j%, n%, m%, sum% m = UBound(prog): n = UBound(grade)Print str2?！捌骄帧?For i = 1 To 5 sum = 0 For j = 1 To n sum = sum + grade(j).score(i)prog(i).pjf = sum / n Next j Print prog(i).bh。prog(i).name。prog(i).xf。prog(i).pjf Next i End SubPrivate Sub renshu_Click()Cls Dim bn(1 To 5, 5 To 9)As Integer, t As Integer, x As Integer, i%, j%, m%, n% n = UBound(prog): m = UBound(grade)Print “范圍”?！癙rivate Sub bujige_Click()Cls Dim i%, j%, t% Print Spc(2)。Spc(5)。Spc(5)。Spc(6)。Spc(4)。prog(j).name。Format(prog(j).xf, “”)。grade(i).score(j)ElseIf t = 1 And grade(i).score(j) 60 ThenPrint Spc(3)。grade(i).xm。prog(j).name。Format(prog(j).xf, “”)。grade(i).score(j)End IfNext jNext i End SubPrivate Sub youdengsheng_Click()Cls Dim i%, j%, t% Print Tab(3)。Spc(6)。Spc(4)。Spc(4)。Spc(4)。Spc(3)。Spc(3)。Spc(3)。Spc(3)。grade(i).xh。grade(i).xm。grade(i).score(1)。grade(i).score(2)。grade(i).score(3)。grade(i).score(4)。grade(i).score(5)。Format(grade(i).aver, “”)。grade(i).rankEnd IfNext i End SubPrivate Sub chengjitiao_click()Cls Dim i% For i = LBound(grade)To UBound(grade)Print “學號”?！靶彰?。“英語”。“數(shù)學”?！绑w育”?！拔锢怼??！盎瘜W”?！凹訖?quán)平均分”?！捌骄帧薄！懊巍?Print Spc(2)。grade(i).xm。grade(i).score(1)。grade(i).score(2)。grade(i).score(3)。grade(i).score(4)。grade(i).score(5)。grade(i).aver。grade(i).aver。grade(i).rank Next i End Sub