相关试卷

Const n = 100

Dim f(n) As Integer, w(n) As Integer, q(n) As Integer, d(n) As Integer

'数组f保存送达站点,数组w保存货物重量

Dim sum As Integer, ans As Double, i As Integer, st As Integer, t As Integer

Private Sub Form_Load()

    '读取1~n每个站点的送达站点和货物重量，依次存放在数组{和数组w中

End Sub

Private Sub Command1_Click()

    sum= 0: ans =0: st=1

    For i=1 To n- 1

        '装载第i站点的货物,更新数组d和数组q

        t = w(i)

        Do While f(d(k - 1)) > f(i)

            d(k)=d(k-1)

            q(k)=q(k-1)

            If q(k-1)>t Then t=q(k-1)

            k=k-1

        Loop

        d(k) = i

        q(k) = w(i)

        Do While And k>=st

            q(k) = w(i)

            k=k-1

        Loop

        '卸载货物

        Do While f(d(st)) = i

            sum = sum - w(d(st))

            st=st+1

        Loop

        '计算费用

        sum = sum + w(i)

        ans= ans + q(st) * 0.8+

    Next i

    Label1.Caption = "共需费用:" + Str(ans)

End Sub

Dim n As Integer, x(1000) As Integer, y(1000) As Integer

Private Sub Command2_Click( )

'生成n个点的坐标,并按要求排序，代码略

'第i个点的坐标保存在x(i)和y(i)并显示在List1 中

End Sub

Private Sub Command2_Click()

    Dim i As Integer, j As Integer

    For i=1 To n

        For j=i+1 To n

            If  Then

                If search(x(i), y(j)) = True And search() = True Then

                    '将4个坐标点显示在List2中,代码略

                    cnt=cnt+1

                End If

            End If

        Next j

    Next i

    List2AddItem "总共有" + Str(cnt) + "个符合要求的正方形"

End Sub

Function search(x As Integer, sy As Integer) As Boolean

    Dim L As Integer, R As Integer, m As Integer

    search = False: L= 1: R= n

    Do While L<= R

        m=(L+R)\2

        If sx < x(m) Or  Then

            R=m-1

        ElseIf x> x(m) Or x= x(m) And ey > y(m) Then

            L=m+1

        Else

            search = True: Exit Do

        End If

    Loop

End Function