小美在研究自定義貨幣系統(tǒng)，她想知道和自定義的任意貨幣系統(tǒng)等價(jià)，同時(shí)面額種數(shù)最少的貨幣系統(tǒng)中有多少種面額。例如，和{3，6，10，19}等價(jià)的貨幣系統(tǒng)中，面額種數(shù)最少的是{3，10}，即可用{3，10}表示{3，6，10，19}中的任意數(shù)。
在尋找等價(jià)貨幣系統(tǒng)時(shí)，小美發(fā)現(xiàn)了如下規(guī)律：
1.與給定貨幣系統(tǒng)等價(jià)的貨幣系統(tǒng)必定是該貨幣系統(tǒng)的子集；
2.如果貨幣系統(tǒng)中的某個(gè)面額可以被其他貨幣表示時(shí)，該面額是無(wú)效的；
為此，小美按照如下方法構(gòu)造最小等價(jià)貨幣系統(tǒng)B：先將原貨幣系統(tǒng)A的所有面額升序排序，每次把A中可以被B中的貨幣表示的面額刪去后，將A中的最小面額放入B中。以此類推?；诖朔椒?，小美編寫了如下程序，在文本框Text1中輸入給定的貨幣系統(tǒng)，單擊按鈕Command1后，在標(biāo)簽Label1中輸出與其等價(jià)的貨幣系統(tǒng)的最小面額種數(shù)，在標(biāo)簽Label2中輸出該貨幣系統(tǒng)。程序運(yùn)行界面如圖所示。
（1）若給定貨幣系統(tǒng)為{4，6，8，14，22}，則與其等價(jià)的面額種數(shù)最少的貨幣系統(tǒng)為

{4，6}

{4，6}

。
（2）按此要求編寫的程序如下，請(qǐng)?jiān)跈M線處填入合適的代碼。
Private Sub Command1_Click

（　?。?/div>

（　?。?/div>
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
'數(shù)組b（i）用于表示值i能否用已經(jīng)放入新貨幣系統(tǒng)中的面額來(lái)表示
'此段程序用于將給定貨幣系統(tǒng)存儲(chǔ)在a數(shù)組中并將其元素個(gè)數(shù)存儲(chǔ)在變量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
 ①

tmp=tmp+c

tmp=tmp+c

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 ②

a（j）＜a（j-1）

a（j）＜a（j-1）

 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函數(shù)用于將數(shù)值變量轉(zhuǎn)為字符串變量并去除首位空格
 ③

b（a（i））=True

b（a（i））=True

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=“與之等價(jià)的最小貨幣系統(tǒng)面額種數(shù)為“+Str（ans）
Label2.Caption=“其為“+s
End Sub