VB课件new第10讲习题课幻灯片.pptVIP

循环的应用 一、累加；累乘 二、定位输出 例 2 编写程序，打印出如下图形 * * * * * * * * * * * * * * * * * * * * * * * * * 解题思路：采用二重循环，外层循环控制行数和打印位置，内层循环具体显示每一行的*；每行显示*的个数与所在行数的关系为：个数＝2*行数－1；每行显示的tab值（列的坐标）依次递减； Dim i, j As Integer For i = 1 To 5 控制显示的行数 Print Tab(30 - 2 * i); 每行显示的列的起始位置 For j = 1 To 2 * i - 1 每行显示的*的个数 Print * ; Next Print Next 三、穷举: 基本思想：对问题的所有可能状态一一测试，直到找到解或将全部可能状态都测试为止。 在穷举法编程中，主要是使用循环语句和选择语句，循环语句用于穷举所有可能的情况，而选择语句判定当前的条件是否为所求得的解。 基本格式： for （循环变量x取所有可能的值） { …… if（x满足指定的条件） 输出x; …… } 例3：判断m是否素数。 Dim m as integer,I as integer ,k as integer M=inputbox(“input a number”) k=m/2 for i=2 to k if (m mod i= 0) then exit for next i if (ik) then print m ;”is a prime number” else print m;”is not a prime number” endif 将程序改写:求100~200之间的所有素数。 例 4 《算经》中有一道百钱买百鸡的题。大意为：公鸡每只5元，母鸡3元，小鸡一元三只。用100元买100只鸡，问公鸡、母鸡、小鸡各多少？ 解题思路：设x，y，z分别为公鸡、母鸡、小鸡的数，则有： 5*x+3*y+z/3=100(元) x+y+z=100(只) 则按x取值0～100，y取值：0～100，依次取值，直到满足上式即可； Dim x, y, z As Integer For x = 0 To 20 For y = 0 To 35 z = 100 - x - y If 5 * x + 3 * y + z / 3 = 100 Then Print x, y, z Next y Next x 例 5 求整数351～432之间既不能被3整除又不能被8整除的数的个数及这些数的和。 解题思路：不能被3整除： n mod 30；不能被8整除：n mod 80 Dim i As Integer, n As Integer, sum As Long N=0 Sum=0 For i = 351 To 432 If (i Mod 3) 0 And (i Mod 8) 0 Then n = n + 1 sum = sum + i End If Next Print 数的个数：; n Print 数的和是：; sum 例 6: 求水仙花数。 所谓水仙花数是这样的一些三位数：各位数的立方和等于该数本身。如 153=1^3+5^3+3^3，所以 153 是 水仙花数。 Dim I as integer Dim a%,b%,c% For I=100 to 999 A=I \100 B =I\10 mod 10 C =I mod 10 If I=a^3+b^3+c^3 then Print I Endif Next I 四、迭代 基本思想：不断用新值取代变量的旧值；或由旧值推出变量的新值。 基本格式： 迭代变量赋初值； 循环语句 { 计算表达式； 新值取代旧值