Private Sub Command1_Click()

    Dim s As String, tmp As String, c As String

    Dim n As Integer, i As Integer, j As Integer, ans As Integer

    Dim a(1 To 100) As Integer, b(1 To 10000) As Boolean

    '数组b(i)用于表示值i能否用已经放入新货币系统中的面额来表示

    '此段程序用于将给定货币系统存储在a数组中并将其元素个数存储在变量n中

    s = Text1.Text

    tmp = "": n = 0

    For i = 1 To Len(s)

        c = Mid(s, i, 1)

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

        ElseIf tmp <> "" Then

            n = n + 1

            a(n) = Val(tmp)

            tmp = ""

        End If

    Next i

    For i = 1 To n - 1

        For j = n To i + 1 Step -1

            If  Then

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

            End If

        Next j

    Next i

    ans = 0: s = "{"

    For i = 1 To a(n)

        b(i) = False

    Next i

    For i = 1 To n

        If Not b(a(i)) Then

            ans = ans + 1

            If ans <> 1 Then s = s + ","

            s = s + CStr(a(i))     'Cstr函数用于将数值变量转为字符串变量并去除首位空格

            For j = a(i) + 1 To a(n)

                If b(j - a(i))= True  Then b(j) = True

            Next j

        End If

    Next i

    s = s + "}"

    Label1.Caption = "与之等价的最小货币系统面额种数为" + Str(ans)

    Label2.Caption = "其为" + s

End Sub