浙江省北斗星盟2021届高三下学期信息技术5月适应性联考试卷

Dim a(1 To 64) As Integer

Dim b(0 to 1) As String

Private Sub Form_Load()

b(0) = " " : b(1) = " *"

'给数组a赋初值，并在列表框List1显示箭头图形，代码略

End Sub

Private Sub up_Click()

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

    List1.Clear

    For i = 1 To 8        '将第i列数据向上平移一个位置

        tmp =

        For j = 2 To 8

            a((j - 2) * 8 + i) = a(  )

        Next j

        a(7* 8 + i) = tmp

    Next i

    s = ""

    For i = 1 To 64

        If i Mod 8 = 0 Then List1.AddItem s : s = ""

    Next i

End Sub

Private Sub turn_Click()

    '调转箭头方向（朝上的变为朝下，朝下的变为朝上），代码略

End Sub

Private Sub down_Click()

    '图形向下移动一个位置，代码略

End Sub

Private Sub get_Click()

    Dim a(1 To 100) As Integer, bh(1 To 100) As Integer

    Dim b(1 To 100) As Integer

    Dim n As Integer, m As Integer    'n表示箱子数量，m表示需领取物品的学生人数

    Dim i As Integer, j As Integer, num As Integer

    Dim p As Integer, q As Integer, t As Integer, s As String

    '依次获取Text1里物品数量存入数组a，箱子上的编号（1到n）依次存入数组bh，箱子数量存入变量n，并按物品数量从多到少对箱子排序，代码略

    '依次获取Text2里学生需要领取物品的数量存入数组b，学生人数存入变量m，代码略

    p = 1: q = 1

    For i = 1 To m

        num = 0

        Do While num < b(i)

            num = num + a(q)

            a(q) = 0

        Loop

        s = "第" & i & "位学生领取物品的箱子编号依次为："

        For j = p To q - 1

            s = s + Str(bh(j))

        Next j

        List1.AddItem s

        If num > b(i) Then a(q - 1) =  : q = q - 1

        For j =        '维护非空箱子降序序列（按箱子中剩余物品数量）

            If a(j) < a(j + 1) Then

                t = a(j): a(j) = a(j + 1): a(j + 1) = t

                t = bh(j): bh(j) = bh(j + 1): bh(j + 1) = t

            End If

        Next j

        p = q

    Next i

    List1.AddItem " 剩余物品数量："

    For i = 1 To n

        If a(i) > 0 Then List1.AddItem Str(bh(i)) + "号箱子：" + Str(a(i))

    Next i

End Sub