4.2用穷举法设计技巧.ppt

§ 4.2 用穷举法设计程序 课前思考 某个暑假你携带密码行李箱外出旅游，旅行途中发现自己忘记了开锁的密码，怎么办？ 提出问题 小张现有面值为1元、2元和5元的钞票（假设每种钞票的数量都足够多），如果小张想从这些钞票中取出30张用来换取小李的100元，问有小张有多少种取法？输出每种取法中各种面额钞票的张数。 ① 让ANSWER＝0，FIVE＝0； ② TWO＝0； ③ 让ONE＝Pieces－TWO－FIVE ④? 检查5＊FIVE＋2＊TWO＋ONE是否等于Total，若是，则得到一组解，这时让ANSWER增加1。并且输出解答； ⑤? 如果TWO＜Pieces-FIVE，那么让TWO增加1，返回步骤③； ⑥ 如果FIVE＜Total/5，那么让FIVE增加1，返回步骤②； ⑦? 结束 ?如下图所示是钱币问题解决的流程框图 流程图 编写程序 Private Sub Form_Click() Dim pieces, total, five, two, one As Long pieces = Val(InputBox(钱币张数：, , 30)) 钞票张数的默认值为30 total = Val(InputBox(要求组成的总值：, , 100)) 总面值默认为100 Answer = 0 For five = 0 To total / 5