第3章循环构(续).pptVIP

第1章 VB.NET集成开发环境—— 复习 一个炊事员上街采购,用500元钱买了90只鸡, 其中母鸡一只15元,公鸡一只10元,小鸡一只5元,正好把钱买完。问母鸡、公鸡、小鸡各买多少只？ 分析：设母鸡I只,公鸡J只,则小鸡为90-I-J只,则15*I+ 10* J+(90-I-J)*5=500,显然一个方程求两个未知数是不能直接求解。必须组合出所有可能的i,j值，看是否满足条件。这里I的值可以是0到33，J的值可以0到50。 Dim i, j For i = 0 To 33For j = 0 To 50If i * 15 + j * 10 + (90 - i - j) * 5 = 500 Then Label1.Text = Label1.Text vbCrLf 母鸡 i 只 Space(2) 公鸡 j 只 Space(2) 小鸡 90 - i - j 只“Next Next 【编程：水仙花数问题】 所谓水仙花数，是指一个3位数，其各位数字立方和等于该数字本身。例如，153是水仙花数，因为153=1^3+5^3+6^3 。 方法1： 利用三重循环，将三个个位数连接成一个3位数进行判断。例如，将i,j,k三个个位数连成一个三位数的表达式为：i*100+j*10+k，判断i*100+j*10+k=i^3+j^3+k^3 方法2:对10