《写代码04122》由会员分享,可在线阅读,更多相关《写代码04122(19页珍藏版)》请在金锄头文库上搜索。
1、写 代 码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、看到返回箭头,马上想到循环
2、语句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
3、=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循 环 体变号器累加器李明同学编写了一
4、段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