VisualBasic程序设计基础.5.循环结构.1.pptVIP

循 环 结 构; S=1+2+3+….+100 Print S 非法操作！！系统不认得省略号，中间省略的东西必须明确。 一定要把100个数字和99个加号全部打出来才对;分析 计算 1+2+3+……+100 ;分析 计算 1+2+3+……+100 ;分析 计算 1+2+3+……+100 ;分析 计算 1+2+3+……+100 ;循环结构 FOR语句;语句; S=0 // S初始化 For i=1 to 100 step 1 // 步长这里可以不写 S=S+i // 反复执行100次 Next i Print S // 输出S;错误示例1：下面这个程序错在哪里？;正确(S只初始化一次);错误示例2：下面这个程序错在哪里？;例二 打印1～100内的所有偶数 ;例二 打印1～100内的所有偶数 ;对1～100内的所有数，逐个进行奇偶性的判断，满足条件才输出。 i=1时，i mod 20，不打印；i=2时，i mod 2=0，打印；i=3时，i mod 20，不打印；…… i=100时，i mod 2=0，打印；i=101时，超过范围，循环结束。;小结：打印偶数的两种做法;例三 求1+3+5+…+99 ;方法二;例题四 打印正整数N的所有因子 ; 输入N for i=1 to N if N mod i=0 then 此题找不到通项公式 Print i endif else要不要写？ next i; For循环练习;例题 1~N内偶数的个数;累加;练习一 1~100内同时被2和3整除的数有多少个？;练习二 正整数N的因子个数;练习三 求正整数N的所有因子之和 ;练习四 在所有的三位正整数中，百位比十位大，同时十位比个位大的数有多少个？ (2011年考题);练 习 五 ; 输入N For i=开始值 to 结束值 if i mod 2=1 then  Print i endif Next i;计算1000000项，求圆周率的近似值。π/4=1－1/3+1/5－1/7+…… 注：最后的结果要用double类型;Dim s as double S=0 for i=1 to 1000000 if i mod 2=1 then s=s …??? 处理奇数项 else s=s …??? 处理偶数项 endif next i print s*4; 电源拖线板用过吗？　　X老师搬到了一个陈旧的办公室。 X老师有多个电??需要用电，但是整个办公室只有墙壁上的一个电源插口(所有电器的电力来源)，唯一的解决办法就是用拖线板。每个拖线板有若干个电源插口，每个插口可以给一个电器供电。　　输入拖线板的数量，以及每个拖线板的插口数量，请计算总共可以给多少个电器供电。请注意一个常识：拖线板本身是没有电的，需要从其它拖线板接电。 输入 第一行 拖线板数量N 　　 第二行　　每个拖线板的插口数量num 输出　 电器的数量S 测试样例见下页;样例输入;S=0 N=val(inputbox(请输入拖线板的数量)) 输入拖线板数量 For i=1 to N num=val(inputbox(请输入)) 输入每个拖线板的插口数量 S=S + …???... 一边输入,一边处理。 next i Print ANS=, …???... 打印结果;练习八 Die Game ;　　输入：第一行是一个整数N，表示骰子滚动的次数。 　　　　　以下有N行，每行都是一个字符，表示滚动一次的方