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

要求掌握的典型操作题 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 XY then Max=X Else Max=y End if Print Max 拓展一：不需要Max变量 If XY then Print X Else Print Y End if 拓展二： … Max=X If XY then Max=y End if … 拓展三： … Max=(X+Y)/2+ABS(X-Y)/2 拓展四：若要求输出最小值，以上三个程序哪些地方需要修改？ 3、分段函数. … X=inputbox(“x=”) If X3 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*0.8 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+bc and b+ca and c+ab 2）假设是三个数a，b，c 条件是：a+bc and b+ca and c+ab and a0 and b0 and c0 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=24*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 1 Y= X2 (x3) 2x+1 (x=3)