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
