相关试卷

Const nc=20    ‘班级总数

Constn= 8

Dim a(1 To n*nc) As Single

Dim sum(1 To 4) As Single        ‘存储每个团队的总分

Dim q(1 To nc) As Integer         ‘存储演出时班级出现的顺序

Private Sub Form_Load()

‘本过程读取班级号和6个打分情况存储到a数组中。a(1)存储第一个上台的班级号，a(2)~a(7)中存储该班的6个得分，a(8)预留出来，用来存储该班最终得分，初值为0；a(9)存储第二个上台的班级号，a(10)~a(15)中存储第二个上台班级的6个得分，a(16)预留，用来存储该班最终得分，初值为0，以此类推。在List1中输出班级号和6个得分，代码略。

End Sub

Private Sub Command1_Click()

Dim i As Integer, j As Integer, k As Integer, s As String

  For i=1 To n* nc                   ‘将每个班的6个得分排序

    If i Mod n<>0 And i Mod n<>1 Then

      k=i

      For j=i+1 To

        If a(j)>a(k) Then k=j

      Next j

      If k<>i Then t=a(k): a(k)=a(i): a(i)=t

    End If

  Next i

  For i=1 To n* nc Step n            ‘计算每个班的最终得分，存入相应位置

    a(i+n-1)=(a(i+2)+a(i+3)+a(i+4)+a(i+5))/4

  Next i

  For i=1 To n* nc Step n    ‘计算每个团队总分

  Next i

  For i=1 To n* nc Step n

    k=a(i)

    q(k)=i

  Next i

  For i=1 To nc

    List2.Addltem Str(i)&" "&

  Next i

  s="甲:"+Str(sum(1))+"乙："+Str(sum(2))+"丙:"+Str(sum(3))+"丁："+Str(sum(4))

  Label3.Caption=s

End Sub

Const n=640

Dim class(1 to n )As String

Dim score(0 to n) As Integer

‘从数据库中读取学号和成绩数据，存入class和Score数组，并在Lis2中显示，代码略

Private Sub Command1Click()

Dim x As integer, m AS Integer, i As Integer,j As Integer

Dim t1 As Integer, t2 As Integer, flag As Boolean

x=Val(Text1.Text)

m=Val(Text2.Text)

i=1: flag=True

Do While flag

  k=i

  For j=i+1 To n

    If t=x Then

      It score (j)>score(k) Or Val(Mid(class(k),1,2))<>x Then k=j

    End If

  Next j

  IfAnd score(k) <> score(i-1) Then flag=Fale

  If k<>i Then

    t1=sore(i): score(i)=score(k): score(k)=t1

    t2=class(i): class(i)=class(k): class(k)=t2

  End If

i=i+1

Loop

List1.Clear

For j=1 To

  List1.Additem class(j)+""+Str(score(j))

Next j

End Sub

图 b

图 c