高一信息技术会考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

Max=y

End if

…

拓展三：

…

Max=(X+Y)/2+ABS(X-Y)/2

拓展四：若要求输出最小值，以上三个程序哪些地方需要修改？

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