相关试卷

Dim m As Integer, n As Integer, x As Integer, y As Integer,

Dim a(1 To 1000) As Integer, s As String

Private Sub Form_ Load)

    '矩形鱼塘长宽为m*n，鱼塘内鱼的数量分布数据存在数组a中，输出在List1中显示

End Sub

Private Sub Command1_ Click()

    Dim ansi As Integer, asnj As Integer, sum As Integer, i As Integer, j As Integer

    x =Val(Text1.Text): y = Val(Text2.Text)

    sum= 0

    For i= 1 To m-x+ 1

        For j=1 To n-y+ 1

            If getsum(i, j) > sum Then sum = getsum(i, j): ansi = i: ansj =j

        Next j

    Next i

    For i= 1 To x

        For j=1 To y

            s= s+

        Next j

        List2.AddItem s

    Next i

    List2.AddItem "可捕到的最多鱼为:  " + Str(sum)

    List2.AddItem "坐标为: (" + Str(ansi) + "，" + Str(ansj) + ")"

End Sub

Function getsum(row As Integer， col As Integer) As Integer

    Dim b, c as integer

    getsum= 0

    For b= row To row+x- 1

        For c= col To col+y- 1

            getsum =

        Next c

    Next b

End Function

Dim bj(1 To 100) As Integer, xm(1 To 100) As String, score(0 To 100) As Integer

Dim flag(1 To 100) As Boolean, p(1 To 100) As Integer, num As Integer, cla As Integer

Private Sub Form_ Load( )

  '加载学生报名数据班级、姓名、分数，分别存储到数组bj，xm，score，并在列表框List1中输出，班级总数为cla个，报名总人数为num，代码略

End Sub

Private Sub Command1_ Click()

    Dim i, j, n As Integer

    Dim b(1 To 15) As Integer

    n = Val(Text1.Text)

    For i=1 To cla     '每班1人录用

        Max= 0

        For j= 1 To num

            If  Then Max = score()：t= j

        Next j

        flag(t) = True

    Next i

    t= 1

    For i= 1 To num

        If Not flag(i) Then p(t)= i：t=t+ 1

    Next i

    For i=

        For j=1 To 2 Step-1

            If score(p(- 1)) < score(p(j)) Then t=p(j): p(j)= p(- 1): p(j-1)=t

        Next j

    Next i

    For i=1 To n-cla       '剩余人数录取

        flag(p(i)) = True

    Next i

    For i= 1 To num

        If  Then List2.AddItem Str(bj(i)) + xm(i) + Str(score(i))

    Next i

End Sub