相关试卷

Const n = 6

Const m = 8

Dim a（n * m）As Integer

Dim c（m）As Integer，ans（n）As Integer

Private Sub Form_Load( )

    ‘读取n个小组每个成员的得分，按组别从小到大依次存入数组a，并显示在List1中

     ‘n（1）到a（m）存储第1小组m个成员的得分

     ‘a（m+1）到a（2*m）存储第2小组m个成员的得分

     ‘以此类推，代码略

End Sub

Private Sub Cummand1_Click( )

    Dim i As Integer，p As Integer，g As Integer，maxg As Integer

    maxg = -1

    For i = 1 To n

        g = GroupScore（i）

        If g > maxg Then

            maxg = g: p=1

        ElseIf g = maxg Then

            p=p+1

            ans（p）=i

        End If

    Next i

    For i = 1 To p

        List2. AddItcm“第”+Str（ans（i））+“组，成绩：”+Str（maxg）

    Next i

End Sulb

‘函数返回第w小组的成绩

Function GroupScone（w As Integer）As Integer

    Dim i As Integer，k As Inteser

    For i = 0 To m

        c（i）=0

    Next i

    For i=（w-1）*m+1 To w *m

        k=a（i）

        If k > m Then

        c（k）=c（k）+1

    Next i

    k=m

    Do White c（k）< k And k>0

        k=k-1

    Loop

    GroupScore=k

End Function

Const n = 800

Dim d（1 To n）As String，a（1 To 2 * n）As String

Private Sub Form_Load( )

    ‘读取n个人进、出馆的时间，存入数组d并显示在列表框List1中，代码略

End Sub

Private Sub Command 1_ Click( )

    Dim i As Integer，j As Integer，k As Integer，sp As Integer

    Dim t As Integer，cnt As Integer，mts As Integer，sum As Integer

    Dim s As String

     ‘提取每个人的进、出馆时间，分别加上IN、OUT标记后存入数组a

    For i = 1 To n

        a（i）=Mid（d（i），1，5）+“IN”

         = Mid（d（i），7，5）+“OUT”

    Next i

    For i = 1 To 2 * n-1    ‘对数组元素a（1）到a（2*n）从小到大排序

        For j = i To 2 * n-1

            If a（j） < a（k） Then k = j

        Next j

        s = a（i）：a（i） = a（k）：a（k）=s

    Next i

    sp =Val（Text1.Text）

    t=-1：cnt=0：sum=0

    For i = 1 To 2 * n

        mts=Val（Mid（a（i），1，2））*60+Val（Mid（a（i），4，2））

        If Mid（a（i），6，2）=“IN” Then cnt = cnt + 1 Else

        If cnt > sp Then

            If t = -1 Then t = mts

        ElseIf t > -1 Then

            t=-1

        End If

    Next i

    Label1.Caption = “超过指定人数的总时长：”+Sir（sum）+“分钟”

End Sub