资源预览内容
第1页 / 共19页
第2页 / 共19页
第3页 / 共19页
第4页 / 共19页
第5页 / 共19页
第6页 / 共19页
第7页 / 共19页
第8页 / 共19页
第9页 / 共19页
第10页 / 共19页
亲,该文档总共19页,到这儿已超出免费预览范围,如果喜欢就下载吧!
资源描述
写 代 码IF THENEND IF IF THENElseEND IF 单分支结构双分支结构ifend ififend if单分支结构双分支结构IF THENEND IF 单分支结构双分支结构IF 条件 THEN步骤A Else步骤B END IF IF 条件 THEN步骤A END IF 单分支结构双分支结构当型循环直到型循环do while 条件循环体 loop do 循环体 loop until 退出循环条件 do whileloopdoloop until写程序代码的注意点: 1、读懂流程图的结构; 2、在分支结构中if 与 end if 要成对出现; 3、看到返回箭头,马上想到循环语句do的开始 4、语句书写要整齐,该缩进的地方,要缩进; 5、当两个赋值语句写在一行时,用冒号相隔; 6、在书写代码时,没有 7、乘号必须使用 * ,不能用n=n+1n=0 t=t/nn=n+1n=0 t=t/ndo while d=0t=t+dn=n+1d=val(inputbox(”输入一个数 ”)LoopIf n=0 thenprint ” 无平均分”Else t=t/nprint tEnd if a=val(inputbox(”输入一个数”)b=val(inputbox(”输入一个数”)If ax/5 thenif x10 thenx=x+1elsex=x-1end ifElse x=sqr(x)End if Print x Do while j10n=14708+j*10if n mod 47=0 or n mod 67=0 thenprint nend ifj=j+1Loop该算法的功能是_ A.求11个分数的最高分和最低分 B.求10个分数的平均分 C.求11个分数的平均分 D.求12个分数去掉最高分和最低分之后的平均分 循环体找最大值找最小 值A.求11个分数的最高分和最低分 B.求10个分数的平均分 C.求11个分数的平均分 D.求12个分数去掉最高分和最低分之后的平均分 若依次输入2,-1,-2,4,2,输出结果是_ -6循 环 体变号器累加器李明同学编写了一段VB程序,他希望实现如下功能:一个四位 偶数,其个、十、百、千各位数字之和是9的倍数。求满足此条 件的这些数之和。请根据题目要求实现的功能,修改程序。 Private Sub Command1_clicks2=0for x=1001 to 9999 step 2s1=0a=int(x/1000)b=int(x/100)-a*10c=int(x/10)-a*100-b*10d=x-a*1000-b*100-c*10s1=a+b+c+dif Mod(s1,9)=0 thens2=s2+xend ifNext xprint s2 End Subfor x=1000 to 9998 step 2If s1 mod 9 =0 then
收藏 下载该资源
网站客服QQ:2055934822
金锄头文库版权所有
经营许可证:蜀ICP备13022795号 | 川公网安备 51140202000112号