編程3.8

Dim Anum%，Bnum%，R%，tmp%，a%，b% '定義了壹些變量。

Tmp = 321 '初始化中間數據。

for anum = 1 to int(321/17)'開始循環，比較從A=1開始。

bnum = int((321-anum * 17)/27)'求b的個數。

r =(321-anum * 17)mod 27 '求剩余材料的長度。

如果R