*15*55*105*20*60*110*150*200
*25*65*115*155*205*70*120*160*210*250*300
*75*125*165*215*255*305*170*220*260*310*350*400
*175*225*265*315*355*405*270*320*360*410*450
*275*325*365*415*455*370*420*460*500
*375*425*465*505*470*510*550
*475*515*555*520*560
*525*565*570
*575
共71種
由計算機程序計算。
去重復壹遍
私有子命令1_Click（）
壹張5元，兩張10元，三張50元，四張100元。
a = Split（“5 | 10 | 10 | 50 | 50 | 100 | 100 | 100 | 100 | 100“，“|“）
打印裝訂（a）
打印UBound（a）
對於I = LBound（a）至UBound（a）
p = InStr（text 1。文本，“*”和amp答（壹））
如果p & lt= 0那麽text 1 = text 1 & amp；“*”& amp；甲㈠
下壹個‘1
Text1 = Text1。vbCrLf
對於I = LBound（a）至UBound（a）
對於j = i + 1到下界（a）
finds =“*“& amp；（0+a（I）+a（j））
p = InStr（text 1。文本，查找）
如果p & lt= 0那麽text 1 = text 1 & amp；發現
然後
下壹個‘2
Text1 = Text1。vbCrLf
對於I = LBound（a）至UBound（a）
對於j = i + 1到下界（a）
對於k = j + 1到下界（a）
finds =“*“& amp；（0+a（I）+a（j）+a（k））
p = InStr（text 1。文本，查找）
如果p & lt= 0那麽text 1 = text 1 & amp；發現
然後
然後
下壹個3
Text1 = Text1。vbCrLf
對於I = LBound（a）至UBound（a）
對於j = i + 1到下界（a）
對於k = j + 1到下界（a）
對於l = k + 1到下界（a）
finds =“*“& amp；（0+a（I）+a（j）+a（k）+a（l））
p = InStr（text 1。文本，查找）
如果p & lt= 0那麽text 1 = text 1 & amp；發現
然後
然後
然後
下壹個‘4
Text1 = Text1。vbCrLf
對於I = LBound（a）至UBound（a）
對於j = i + 1到下界（a）
對於k = j + 1到下界（a）
對於l = k + 1到下界（a）
對於m = l + 1到下界（a）
finds =“*“& amp；（0+a（I）+a（j）+a（k）+a（l）+a（m））
p = InStr（text 1。文本，查找）
如果p & lt= 0那麽text 1 = text 1 & amp；發現
然後
然後
然後
然後
下壹個5年
Text1 = Text1。vbCrLf
對於I = LBound（a）至UBound（a）
對於j = i + 1到下界（a）
對於k = j + 1到下界（a）
對於l = k + 1到下界（a）
對於m = l + 1到下界（a）
對於n = m + 1到下界（a）
finds =“*“& amp；（0+a（I）+a（j）+a（k）+a（l）+a（m）+a（n））
p = InStr（text 1。文本，查找）
如果p & lt= 0那麽text 1 = text 1 & amp；發現
然後
然後
然後
然後
然後
下壹年6月
Text1 = Text1。vbCrLf
對於I = LBound（a）至UBound（a）
對於j = i + 1到下界（a）
對於k = j + 1到下界（a）
對於l = k + 1到下界（a）
對於m = l + 1到下界（a）
對於n = m + 1到下界（a）
對於o = n + 1到下界（a）
finds =“*“& amp；（0+a（I）+a（j）+a（k）+a（l）+a（m）+a（n）+a（o））
p = InStr（text 1。文本，查找）
如果p & lt= 0那麽text 1 = text 1 & amp；發現
然後
然後
然後
然後
然後
然後
下壹年7月
Text1 = Text1。vbCrLf
對於I = LBound（a）至UBound（a）
對於j = i + 1到下界（a）
對於k = j + 1到下界（a）
對於l = k + 1到下界（a）
對於m = l + 1到下界（a）
對於n = m + 1到下界（a）
對於o = n + 1到下界（a）
對於p = o + 1到下界（a）
finds =“*“& amp；（0+a（I）+a（j）+a（k）+a（l）+a（m）+a（n）+a（o）+a（p））
PP = InStr（text 1。文本，查找）
如果pp & lt= 0那麽text 1 = text 1 & amp；發現
然後
然後
然後
然後
然後
然後
然後
下壹年8月
Text1 = Text1。vbCrLf
對於I = LBound（a）至UBound（a）
對於j = i + 1到下界（a）
對於k = j + 1到下界（a）
對於l = k + 1到下界（a）
對於m = l + 1到下界（a）
對於n = m + 1到下界（a）
對於o = n + 1到下界（a）
對於p = o + 1到下界（a）
對於q = p + 1到下界（a）
finds =“*“& amp；（0+a（I）+a（j）+a（k）+a（l）+a（m）+a（n）+a（o）+a（p）+a（q））
PP = InStr（text 1。文本，查找）
如果pp & lt= 0那麽text 1 = text 1 & amp；發現
然後
然後
然後
然後
然後
然後
然後
然後
下壹年9月
Text1 = Text1。vbCrLf
對於I = LBound（a）至UBound（a）
對於j = i + 1到下界（a）
對於k = j + 1到下界（a）
對於l = k + 1到下界（a）
對於m = l + 1到下界（a）
對於n = m + 1到下界（a）
對於o = n + 1到下界（a）
對於p = o + 1到下界（a）
對於q = p + 1到下界（a）
對於r = q + 1到下界（a）
finds =“*“& amp；（0+a（I）+a（j）+a（k）+a（l）+a（m）+a（n）+a（o）+a（p）+a（q）+a（r））
PP = InStr（text 1。文本，查找）
如果pp & lt= 0那麽text 1 = text 1 & amp；發現
然後
然後
然後
然後
然後
然後
然後
然後
然後
下壹個10
b =拆分（Text1，“*“）
打印
打印裝訂（b）
打印下邊界（b）
末端接頭