VB资源-程序流程控制.pptVIP

例3-15 把一元钞票换成1分、2分和5分的硬币 （每种至少有一枚），有哪几种换法？ 算法设计 首先考虑五分的取法，假定五分为k枚，为保证每种硬币至少有一枚，五分可以取1到19枚，即1≤k ≤ 19。 若k已取定，则二分可以取1到(100 - 5 * K)\2枚，假定为j ,即1 ≤ j ≤ (100 - 5 * K)\2 。 此时，若假定剩余一分的个数为i，则i=100-5*k-2*j。 例3-15 把一元钞票换成1分、2分和5分的硬币 （每种至少有一枚），有哪几种换法？ 算法设计 因此，可以设置外层循环控制k从1到19变化和内层循环控制j从1到(100 - 5 * K)\2 变化，当取定j和k后，在内循环体中，计算i的值，并输出k,j和i。 Imports System.Console Module Module1 Sub Main() Dim i%, j%, k% WriteLine( 5分 2分 1分) For k = 1 To 19 取5分 For j = 1 To (100 - 5 * k) \ 2 取2分