一元兑六零，一道经典VB编程题里的算法启蒙与旧时光

移动支付普及的今天，我们很少再掏出现金兑零，曾经风靡国内计算机入门课堂的Visual Basic（简称VB）也渐渐淡出了大众视野，但很多早年学编程的人都记得那道经典入门习题：把一张一元硬币兑换成六种零币，统计一共有多少种不同的兑换组合，这道藏在老教材里的小题，既是无数人编程之路的第一步,也藏着属于一个时代的生活印记。

这个问题的诞生贴合了曾经的人民币辅币体系：一元面额以下，刚好流通着六种不同面值的零币——一分、二分、五分、一角、二角、五角，因此才有了“兑成六种零币”的经典设问，把问题翻译成编程语言其实非常简单：将1元换算为100个单位分，六种零币的面值对应[1,2,5,10,20,50]，要求最终兑换结果包含六种零币（即每种面值至少有一枚）,统计所有满足总金额为100分的组合数。

作为曾经最入门的编程语言，VB天生适合解决这类小问题：语法简单易懂，不需要复杂配置，写完就能直接运行出结果，几乎是所有早年VB教材循环章节的必留习题，刚接触编程的初学者，哪怕只学了基础的循环语法，也能写出最朴素的穷举解法,比如最经典的六层循环写法：

Dim 组合数 As Integer
组合数 = 0
' 六种零币每种至少1枚，枚举所有可能的数量
For 一分 = 1 To 100
For 二分 = 1 To 50
For 五分 = 1 To 20
For 一角 = 1 To 10
For 二角 = 1 To 5
For 五角 = 1 To 2
    If 一分 * 1 + 二分 * 2 + 五分 * 5 + 一角 * 10 + 二角 * 20 + 五角 * 50 = 100 Then
        组合数 = 组合数 + 1
    End If
Next 五角, 二角, 一角, 五分, 二分, 一分
Print "一张一元兑换成六种零币，共有" & 组合数 & "种不同兑法"

运行这段代码就能得到结果：如果要求兑换出完整六种零币，总共有58种不同的组合方式，而学到进阶内容后，初学者还会慢慢优化代码：比如最后一种币值不需要枚举，通过总金额减去前五种的金额就能直接得到，把六层循环简化为五层，大幅提升运行效率——这个从能用，到好用的优化过程,就是最生动的算法启蒙。

如今VB早就停止了更新，学校入门编程也大多换成了Python，分币退出流通，就连一元硬币都很少用到，“兑零”早就成了过时的生活场景，但这道小题的趣味一直都在，它把“现实问题→数学建模→编程解决”的核心逻辑，用最生活化的方式讲得明明白白，哪怕换了编程语言,核心思路也从未改变。

一张一元硬币，六种旧零币，几行简单的VB代码，藏着初代编程入门者的青涩回忆，也藏着编程最朴素的本质：从生活的小问题里，找到用代码解决问题的乐趣,这就是那道老题至今还被人提起的原因。