Dim hw(1 To 9) As Integer '存储正方形货物的边长

Dim cd(1 To 100) As Integer  '场地是边长为10的正方形

Private Sub Command2_Click()

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

  For i = 1 To 9

    j = 1

    Do While (10 - (j - 1) \ 10) >= hw(i)   '下方空间足够

      If    ①   = False Then  '从当前位置开始能否放下

        j = j + 1

      Else  

        '把相关位置标记为i，并处理下一货物，代码略

      End If

If 10 - (j - 1) Mod 10 < hw(i) Then  ‘右侧空间不足

   ②  

      EndIf

    Loop

  Next i

 ‘在列表框list2输出整个场地放好货物之后的矩阵图，代码略

End Sub

Function pd(start As Integer, bc As Integer) As Boolean

  Dim i As Integer, wz As Integer

  pd = True: wz = start

  Do While wz <= start + 11* (bc - 1) And wz <= 100

    If    ③   Then    

      pd = False

      Exit Function

ElseIf (wz - 1) Mod 10 - (start - 1) Mod 10 = bc - 1 Then

      wz =  wz + 11 - bc     ‘位置转到下一行，与起点同列

    Else

      wz = wz + 1

    End If

  Loop

End Function

Private Sub Form_Load()

  ‘生成货物边长，降序显示在列表框list1，矩阵元素初始化为0，代码略

End Sub

① ② ③ 

Private Sub Cod1_Click( )

    Dim s As String, ch As String

    Dim i As Integer, j As Integer, n As Integer, c As Integer

    Dim a(100) As Integer

    s = Text1.Text: c = 0: n = 0

    For i = 1 To Len(s)

        ch = Mid(s, i, 1)

        If ch >= "0" And ch <= "9" Then

        Else

            n = n + 1

            c = 0

        End If

    Next i

    i = 1: j = n

    Do While

        m = (i + j) \ 2

        If a(m) > a(i) Then

            i = m

        Else

            j = m

        End If

    Loop

End Sub