1、 新建一张表格，如图所示，单击菜单栏“开发工具”——VisualBasic，打开VBA编辑器，如图所示。
2、 现在在VBA编辑器中单击菜单栏中“插入”——模块，现在就回打开代码编辑框，如图所示。
3、 现在我们来输入代码：Sub 整钱找零() Dim t As Long '定义t For j = 0 To 50 '定义j为2角 For k = 0 To 20 '定义k为5角 For l = 0 To 10 '定义l为1元 For m = 0 To 5 '定义m为2元 For n = 0 To 2 '定义n为5元 t2 = 2 * j + 5 * k + 10 * l + 20 * m + 50 * n '定义输入的整钱面值为t2 If t2 <= 100 Then '如果面值小于等于100元 t = t + 1 i = 100 - t2 '定义i为1角 Sheets(4).Cells(t + 1, 1) = i '第一列显示“1角”张数 Sheets(4).Cells(t + 1, 2) = j '第二列显示“2角”张数 Sheets(4).Cells(t + 1, 3) = k '第三列显示“5角”张数 Sheets(4).Cells(t + 1, 4) = l '第四列显示“1元”张数 Sheets(4).Cells(t + 1, 5) = m '第五列显示“2元”张数 Sheets(4).Cells(t + 1, 6) = n '第六列显示“5元”张数 End If Next Next Next Next Next MsgBox "10元找零共有" & t & "种方法！"End Sub
4、 在VBA编辑器中，单击“运行”——运行子程序/用户窗体，在EXCEL表格中可以看到每一种方法。并弹出对话框“10元找零共有4562种方法”
