Dim a(1 To 32) As Integer

Dim b( 1 To 10) As Integer

Private SubCommand1_Click()

    '随机生成有解的数据，并在列表框

List1中输出，代码略

End Sub

Private Sub Command2_Click()

    Dim n As Integer， i As Integer， x As Integer

n=0

    For i= 1 To 32

        If a(i) = 0 Then

           n=n+1：b(n)=i

        End If

    Next i

    x=1

    Do While x<=n

        If a(b(x) ) = 0 Then

          If   ①   Then x= 0

        End If

        x=x+1

    Loop

    '将结果按规定格式在列表框List2中输出，代码略

End Sub

Function R check(x As Integer) As Boolean

    Dim count As Integer， sum As Integer， y As Integer， i As Integer

    check=False

    If a(x) <>0ThenExit Function

    count=0：sum=0：y=  ② 

    For i= 1 To 8

       If a(y*8+i) = 0 Then count =count+ 1

        sum=sum+a(y*8+i)

    Next i

    If count = 1 Then

        a(x)=   ③   ：R check=True

    End If

EndFunction

Function C check(x As Integer) As Boolean

    '用于验证是否为本列唯一空缺， 如果是则填入值并返回True， 否则返回False

    '实现上述功能的代码略

EndFunction

①②③

Private Sub Cmd1_Click()

    Dim s As String, s1 As String, t As Integer, i As Integer

    Dim k As Integer, bh As Integer, w As Integer

    Dim w1 As Integer, w2 As Integer

    s = Text1.Text: k = 1: t = 0: bh = 0      'bh存储当前垃圾的垃圾编号

    w1 = 0: w2 = 0

    For i = 1 To Len(s) s1 = Mid(s, i, 1)

        If  Then

            t = t * 10 + Val(s1)

        Else

            If Then

                bh = t

            Else

                If bh = 1 Then

                    w1 = w1 + t

                Else

                    w2 = w2 + t

                End If

            End If

            k = k + 1

        End If

    Next i

    List1.AddItem "干垃圾共" + Str(w1) + "斤"

    List1.AddItem "湿垃圾共" + Str(w2) + "斤"

    Label3.Caption = "总重量共有" + Str(w) + "斤"

End Sub