- 1、本文档共7页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
文稿归稿存档编号:[KKUY-KKIO69-OTM243-OLUI129-G00I-FDQS58-MG129]
文稿归稿存档编号:[KKUY-KKIO69-OTM243-OLUI129-G00I-FDQS58-MG129]
高一信息技术会考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*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+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)