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

《高一信息技术会考vb操作题归纳.doc》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、要求掌握的典型操作题1、输入两个数存在相应的变量中，并交换两个变量的值。…X=inputbox(“x=”)Y=inputbox(“y=”)Z=XX=YY=Z…拓展：不需要中间变量Z，交换两个变量的值。…X=X+YY=X-YX=X-Y…2、输入两个数存在相应变量中，输出最大数…X=inputbox(“x=”)Y=inputbox(“y=”)IfX>YthenMax=XElseMax=yEndifPrintMax拓展一：不需要Max变量IfX>YthenPrintXElsePrintYEndif拓展二：…Max=XIfX

2、if…拓展三：…Max=(X+Y)/2+ABS(X-Y)/2拓展四：若要求输出最小值，以上三个程序哪些地方需要修改？3、分段函数.Y=X2(x<3)2x+1(x>=3)…X=inputbox(“x=”)IfX<3thenY=X*XElseY=2*X+1EndifPrint拓展：（类似分段函数）某超市促销苹果，购买一斤苹果，为每斤3元，购买5斤以下每斤原价；超过5斤部分每斤打8折，输入购买的斤数，输出应付款额。…apple=inputbox(“apple=”)ifapple<=5thenmoney=3*appleelsemoney=3*5+(ap

3、ple-5)*3*0.8endifprintmoney4、一元二次方程求根：ax2+bx+c=0…a=inputbox(“a=”)b=inputbox(“b=”)c=inputbox(“c=”)d=b*b-4*a*cIfd>=0thenX1=(-b+sqr(d))/(2*a)X2=(-b-sqr(d))/(2*a)Printx1,x2ElsePrint“无实解”Endif5、判断三个数是否能构成三角形的条件1）假设是三个正数a，b，c条件是：a+b>candb+c>aandc+a>b2）假设是三个数a，b，c条件是：a+b>candb+c>aa

4、ndc+a>banda>0andb>0andc>06、累加：求s=10+30+50+…+550…S=0Fori=10to550step20S=S+iNEXTiPRINTS拓展一：…S=0Fori=550to10step-20S=S+iNEXTiPRINTS拓展二：求s=1+1/2+1/3+……+1/99+1/100之和…S=0Fori=1to100step1S=S+1/iNEXTiPRINTS7、累乘：求s=2*4*6*……*100之和。…S=1Fori=2to100step2S=S*iNEXTiPRINTS8、计数（同于累加，只是每次累加1）

5、输出1-1000中被4整除，或能被9整除的数有多少个…S=0ForA=1to100step1IfAmod4=0ORAmod9=0thenS=S+iEndifNEXTAPRINTS