高一信息技术会考vb操作题归纳.docx

  1. 1、本文档共9页,可阅读全部内容。
  2. 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
  3. 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  4. 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
Final revision by standardization team on December 10, 2020. Final revision by standardization team on December 10, 2020. 高一信息技术会考vb操作题归纳 要求掌握的典型操作题 1、输入两个数存在相应的变量中,并交换两个变量的值。 … X=inputbox(“x=”) Y=inputbox(“y=”) Z=X X=Y Y=Z … 拓展:不需要中间变量Z,交换两个变量的值。 … X=X+Y Y=X-Y X=X-Y … 2、输入两个数存在相应变量中,输出最大数 … X=inputbox(“x=”) Y=inputbox(“y=”) If X>Y then Max=X Else Max=y End if Print Max 拓展一:不需要Max变量 If X>Y then Print X Else Print Y End if 拓展二: … Max=X If X<Y then Max=y End if … 拓展三: … Max=(X+Y)/2+ABS(X-Y)/2 拓展四:若要求输出最小值,以上三个程序哪些地方需要修改 3、分段函数. Y Y= X2 (x<3) 2x+1 (x>=3) … X=inputbox(“x=”) If X<3 then Y=X*X Else Y=2*X+1 End if Print 拓展:(类似分段函数)某超市促销苹果,购买一斤苹果,为每斤3元,购买5斤以下每斤原价;超过5斤部分每斤打8折,输入购买的斤数,输出应付款额。 … apple = inputbox(“apple=”) if apple<=5 then money=3*apple else money=3*5+(apple-5)*3* end if print money 4、一元二次方程求根:ax2+bx+c=0 … a=inputbox(“a=”) b=inputbox(“b=”) c=inputbox(“c=”) d=b*b-4*a*c If d>=0 then X1=(-b+sqr(d))/(2*a) X2=(-b-sqr(d))/(2*a) Print x1,x2 Else Print “无实解” End if 5、判断三个数是否能构成三角形的条件 1)假设是三个正数a,b,c 条件是:a+b>c and b+c>a and c+a>b 2)假设是三个数a,b,c 条件是:a+b>c and b+c>a and c+a>b and a>0 and b>0 and c>0 6、累加:求s=10+30+50+…+550 … S=0 For i=10 to 550 step 20 S=S+i NEXT i PRINT S 拓展一: … S=0 For i=550 to 10 step -20 S=S+i NEXT i PRINT S 拓展二:求s=1+1/2+1/3+……+1/99+1/100之和 … S=0 For i=1 to 100 step 1 S=S+1/i NEXT i PRINT S 7、累乘:求s=2*4*6*……*100之和。 … S=1 For i=2 to 100 step 2 S=S*i NEXT i PRINT S 8、计数(同于累加,只是每次累加1) 输出1-1000中被4整除,或能被9整除的数有多少个 … S=0 For A=1 to 100 step 1 If A mod 4=0 OR A mod 9=0 then S=S+i End if NEXT A PRINT S

文档评论(0)

ZY_wang + 关注
实名认证
内容提供者

专业高品质原创文档设计

1亿VIP精品文档

相关文档