浙江省信息技术会考算法与程序设计题.docx
- 文档编号:13049317
- 上传时间:2023-06-10
- 格式:DOCX
- 页数:23
- 大小:95.36KB
浙江省信息技术会考算法与程序设计题.docx
《浙江省信息技术会考算法与程序设计题.docx》由会员分享,可在线阅读,更多相关《浙江省信息技术会考算法与程序设计题.docx(23页珍藏版)》请在冰点文库上搜索。
浙江省信息技术会考算法与程序设计题
2007年6月高中信息技术会考
算法与程序设计题(第一套)
四、程序设计题(本题有4小题,第1-3小题,每小题4分,第4小题6分,共18分)
1.有如下VisualBasic程序段:
a=30
b=20
a=b
该程序段运行后,变量a的值为________。
2.有如下VisualBasic程序段:
DimaAsSingle,pyAsString
a=Val(Text1.Text)
Ifa>0Thenpy="正数"
Ifa=0Thenpy="零"
Ifa<0Thenpy="负数"
Label1.Caption=py
在文本框Text1中输入100,则在Label1标签上显示的是 。
3.以下VisualBasic程序的功能是:
计算表达式1×2×3×4×5×6×7×8×9×10的值,并在文本框Text1中输出结果。
为了实现这一功能,程序中划线处的语句应更正为_____________。
PrivateSubCommand1_Click()
DimiAsInteger,sumAsLong
sum=0
Fori=1To10
sum=sum*i
Nexti
Text1.Text=Str(sum)
EndSub
4.从改革开放以来,浙江省农村家庭的可支配收入逐年增加,近几年每年增长率在9%左右。
小明一家今年的可支配收入是32000元,按现在的增长率9%计算,小明家几年后可支配收入将达到50000元?
解决此问题的流程图如VB-1所示。
根据流程图VB-1编写的VisualBasic程序如下,在①和②划线处,填入合适的语句或表达式,把程序补充完整。
PrivateSubCommand1_Click()
DimxAsLong,pAsDouble
DimnAsInteger
x=32000
p=0.09
n=0
DoWhile①
x=x*(1+p)
②
Loop
Text1.Text=Str(n)
EndSub
程序中划线处①应填入
程序中划线处②应填入
2007年6月高中信息技术会考
算法与程序设计题(第二套)
四、程序设计题(本题有4小题,第1-3小题,每小题4分,第4小题6分,共18分)
1.有如下VisualBasic程序段:
a="Good"
b="Bye"
c=a+b
该程序段运行后,变量c的值是___________。
2.有如下VisualBasic程序段:
x=3
If x>5 Then
y=x*x
Else
y=4*x
End If
该程序段运行后,变量y的值是___________。
3.下面程序的功能是:
计算表达式1+3+5+…+(2n-1)的值,在文本框Text1中输入n的值,结果在文本框Text2中输出。
则程序中划线处的语句应更正为__________________。
PrivateSubCommand1_Click()
DimsumAsLong,iAsInteger,nAsInteger
sum=0
n=Val(Text1.Text)
Fori=1To2*n-1Step2
sum=sum+2
Nexti
Text2.Text=Str(sum)
EndSub
4.依照中华人民共和国《机动车驾驶员驾车时血液中酒精含量规定》,血液中酒精含量大于或等于0.3mg/ml驾驶机动车的属酒后驾车;大于或等于1.0mg/ml驾驶机动车的属醉酒驾车。
设计一个程序,帮助交警判定某人属酒后驾车、醉酒驾车还是没有违法。
解决此问题的流程图如VB-1所示。
根据流程图VB-1编写的VisualBasic程序如下,在①和②划线处,填入合适的语句或表达式,把程序补充完整。
PrivateSubCommand1_Click()
DimxAsSingle
x=Val(Text1.Text)
If①Then
Label1.Caption="你属于醉酒驾车!
"
Else
Ifx>=0.3Then
Label1.Caption="你属于酒后驾车!
"
②
Label1.Caption="恭喜你没有违法!
"
EndIf
EndIf
EndSub
程序中划线处①应填入
程序中划线处②应填入
2007年6月高中信息技术会考
算法与程序设计题(第三套)
四、程序设计题(本题有4小题,第1-3小题,每小题4分,第4小题6分,共18分)
1.有如下VisualBasic程序段:
a=300
b=400
b=b-a
该程序段运行后,变量b的值为_________。
2.有如下VisualBasic程序段:
a=2
b=5
Ifa m=a Else m=b EndIf 该程序段运行后,变量m的值为___________。 3.下面VisualBasic程序的功能是: 计算表达式1+1/3+1/5+…+1/99的值,并在文本框Text1中输出该表达式的值。 为了实现这一功能,程序中划线处的语句应更正为__________________。 PrivateSubCommand1_Click() DimsumAsSingle,iAsInteger sum=0 Fori=1To99Step2 sum=sum+i Nexti Text1.Text=Str(sum) EndSub 4.某人走楼梯,方法是每步跨1个台阶或跨2个台阶。 现要计算有20个台阶的楼梯,共有多少种不同的走法? 经分析,台阶数与走法种数如下表: 台阶数 1 2 3 4 5 6 7 8 9 … 走法种数 1 2 3 5 8 13 21 34 55 … 由上表得,走法种数的规律是: 从第3项开始,每一项是它相邻的前面2项之和。 解决上述问题的VisualBasic程序如下,在①和②划线处,填入合适的语句或表达式,把程序补充完整。 PrivateSubCommand1_Click() DimaAsLong,bAsLong,cAsLong,nAsInteger a=1 b=2 c=a+b Forn=4To① a=b b=c ② Nextn Text1.Text=Str(c) EndSub 程序中划线处①应填入 程序中划线处②应填入 2007年6月高中信息技术会考 算法与程序设计题(第四套) 四、程序设计题(本题共4小题,第1-3小题,每小题4分,第4小题6分,共18分) 1.有如下VisualBasic程序段: a=2 b=3 c=4 c=b-a 该程序段运行后,变量c的值为___________。 2.有如下VisualBasic程序段: a=2 b=5 Ifa>bThenm=aElsem=b 该程序段运行后,变量m的值为___________。 3.下面是一段VisualBasic程序: PrivateSubCommand1_Click() DimsumAsDouble,iAsInteger sum=0 Fori=1To5 sum=sum+i*i Nexti Text1.Text=Str(sum) EndSub 该程序运行后,语句sum=sum+i*i共执行了次。 4.有一个有趣的兔子繁殖问题: 第1个月买来1对小兔子,两个月后,这对兔子就会生1对小兔子,以后每个月都会生一对小兔子;而生下来的这对小兔子,两个月后又会开始生1对小兔子。 依次类推,试问: 几个月后,兔子将超过50对? 分析问题得出月份与兔子对数的关系如下表: 月份 1 2 3 4 5 6 7 8 9 … 兔子对数 1 1 2 3 5 8 13 21 34 … 由表知兔子繁殖规律: 从第3个月开始,以后每月的兔子对数都是它相邻的前面2个月的兔子对数之和。 解决上述问题的VisualBasic程序如下,在①和②划线处,填入合适的语句或表达式,把程序补充完整。 PrivateSubCommand1_Click() Dima(1To100)AsInteger,nAsInteger a (1)=1 a (2)=1 a(3)=a (2)+a (1) n=3 DoWhilea(n)<=50 n=① a(n)=② Loop Text1.Text=Str(a(n)) EndSub 程序中划线处①应填入 程序中划线处②应填入 2007年6月高中信息技术会考 算法与程序设计题(第五套) 四、程序设计题(本题有4小题,第1-3小题,每小题4分,第4小题6分,共18分) 1.有如下VisualBasic程序段: a=2 b=4 b=a+b 该程序段运行后,变量b的值是___________。 2.有如下VisualBasic程序段: x=1.5 Ifx>1Then Label1.Caption="醉酒! " Else Label1.Caption="没有醉酒! " EndIf 该程序段运行后,Label1标签上显示为___________。 3.下面VisualBasic程序的功能是: 计算表达式1+1/2+1/3+…+1/100的值,并在文本框Text1中输出表达式的值。 为了实现这一功能,程序中划线处的语句应更正为__________________。 PrivateSubCommand1_Click() DimsumAsDouble,iAsInteger sum=0 Fori=1To100 sum=sum+i Nexti Text1.Text=Str(sum) EndSub 4.《浙江省道路交通安全法》第八十三条规定: 机动车驾驶人驾驶机动车超过规定时速的,按以下标准处以罚款: (一)超过规定时速未达百分之五十的,处二百元罚款; (二)超过规定时速百分之五十的,处五百元罚款;每多超五公里,加处二百元罚款,但最高罚款不得超过二千元。 设某公路的规定时速为80(km/h),用x表示车速,y表示罚款数,该问题的数学式为: 根据上述分析,解决此问题的VisualBasic程序如下,在①和②划线处,填入合适的语句或表达式,把程序补充完整。 PrivateSubCommand1_Click() DimxAsSingle,yAsSingle x=Val(Text1.Text) Ifx<=80Then y=0 Else If①Then y=200 Else ② Ify>2000Theny=2000 EndIf EndIf Label1.Caption=Str(y) EndSub 程序中划线处①应填入 程序中划线处②应填入 2007年6月高中信息技术会考 算法与程序设计题(第六套) 四、程序设计题(本题有4小题,第1-3小题,每小题4分,第4小题6分,共18分) 1.有如下VisualBasic程序段: a=15 b=5 a=a-b 该程序段运行后,变量a的值是___________。 2.有如下VisualBasic程序段: x=110 Ifx>100Then Label1.Caption="你超速了! " Else Label1.Caption="你没超速! " EndIf 该程序段运行后,Label1标签上显示为___________。 3.下面VisualBasic程序的功能是: 计算表达式1×2+3×4+5×6+7×8+9×10的值。 运行该程序后,语句sum=sum+i*(i+1)共执行了次。 PrivateSubCommand1_Click() DimsumAsInteger,iAsInteger sum=0 Fori=1To9Step2 sum=sum+i*(i+1) Nexti Text1.Text=Str(sum) EndSub 4.哥哥考弟弟一道数学题,题目是: “有一筐鸡蛋,2个2个数多1个,3个3个数多2个,4个4个数多3个,5个5个数正好数完,问这筐鸡蛋最少是几个? ” 为解决此问题,弟弟编了一个如下VisualBasic程序,其中s表示鸡蛋数,t用于控制循环。 但此程序存在两处错误,已分别用划线及①、②标注。 请改正这二处错误,并将正确内容按顺序填写在程序下方①和②划线处。 PrivateSubCommand1_Click() DimsAsInteger,tAsBoolean s=5 t=False DoWhileNott s=s+1 t=(sMod2=1)And(sMod3=2)And(sMod4=3)And(sMod5<>0)'① Next'② Text1.Text=Str(s) EndSub 程序中划线处①改为 程序中划线处②改为 2007年6月高中信息技术会考 算法与程序设计题(第七套) 四、程序设计题(本题有4小题,第1-3小题,每小题4分,第4小题6分,共18分) 1.有如下VisualBasic程序段: a=8 b=10 b=a*b/2 该程序段运行后,变量b的值为。 2.有如下VisualBasic程序段: a=5 b=10 max=a Ifb>maxThenmax=b 该程序段运行后,变量max的值为。 3.下面程序的功能是: 计算表达式1×2×3×……×10的值,并在文本框Text1中输出表达式的值。 为了实现这一功能,程序中划线处的语句应更正为__________________。 PrivateSubCommand1_Click() DimiAsInteger,tAsLong t=0 Fori=1To10 t=t*i Nexti Text1.Text=Str(t) EndSub 4.我国是人口大国,2007年初,我国人口总数已达13亿5千万。 假设我国年人口增长率为0.5%,则从2007年起多少年后我国人口就会达到或超过15亿? 解决此问题的流程图如VB-1所示。 根据流程图VB-1编写的VisualBasic程序如下,在①和②划线处,填入合适的语句或表达式,把程序补充完整。 PrivateSubCommand1_click() DimnAsInteger,rAsSingle DimpAsDouble r=0.5/100 p=13.5 n=0 DoWhilep<15 ① n=n+1 ② Text1.Text=Str(n) EndSub 程序中划线处①应填入 程序中划线处②应填入 2007年6月高中信息技术会考 算法与程序设计题(第八套) 四、程序设计题(本题有4小题,第1-3小题,每小题4分,第4小题6分,共18分) 1.有如下VisualBasic程序段: k=30 h=5 s=h*k/2 该程序段运行后,变量s的值为。 2.有如下VisualBasic程序段: a=10 b=20 x=30 Ifx>bThen a=b+a Else a=b-a EndIf 该程序段运行后,变量a的值为。 3.下面VisualBasic程序的功能是: 计算表达式1×2+2×3+3×4+……+8×9+9×10的值,并在文本框Text1中输出表达式的值。 该程序运行后,程序中的语句sum=sum+i*(i+1)共执行了次。 PrivateSubCommand1_Click() DimsumAsInteger,iAsInteger sum=0 Fori=1To9 sum=sum+i*(i+1) Nexti Text1.Text=Str(sum) EndSub 4.铁路托运行李,是根据行李的重量按下列标准收费: 若不超过50千克,按每千克0.35元收费,若超过50千克,超过部分则按每千克0.5元收费,行李重量不得超过150千克。 设计一个VisualBasic程序,通过输入托运行李的重量,计算并输出托运行李的费用,若超过150千克,提示“行李超重! ”。 设x表示行李重量,y表示托运费。 通过分析可以得出该问题的数学表达式为: 解决上述问题的VisualBasic程序如下,在①和②划线处,填入合适的语句或表达式,把程序补充完整。 PrivateSubCommand1_Click() DimxasDouble x=Val(Text1.Text) Ifx>150Then Text2.Text="行李超重! " Else If①Then y=50*0.35+(x-50)*0.5 Else ② EndIf Text2.Text=Str(y) EndIf EndSub 程序中划线处①应填入 程序中划线处②应填入 2007年6月高中信息技术会考 算法与程序设计题(第九套) 四、程序设计题(本题有4小题,第1-3小题,每小题4分,第4小题6分,共18分) 1.有如下VisualBasic程序段: e=3 f=7 h=5 s=(e+f)*h/2 该程序段运行后,变量s的值为。 2.有如下VisualBasic程序段: a=10 b=20 x=5 Ifx>bThen a=a+b Else a=a-b EndIf 该程序段运行后,变量a的值为。 3.下面VisualBasic程序的功能是: 求1~20以内的奇数和。 运行该程序后,语句sum=sum+i共执行了次。 PrivateSubCommand1_Click() DimsumasInteger,iasInteger sum=0 Fori=1To20Step2 sum=sum+i Nexti Text1.Text=Str(sum) EndSub 4.将一张面值为100元的人民币等值换成5元、1元的零钞共40张,要求每种零钞不少于1张,问5元和1元面值的零钞各多少张? 设x、y分别为5元和1元面值的零钞张数,通过分析可得出该问题的数学表达式为: 且1≤x<20 解决上述问题的VisualBasic程序如下,但此程序存在两处错误,已分别用划线及①、②标注。 请改正这二处错误,并将正确内容按顺序填写在程序下方①和②划线处。 PrivateSubCommand1_Click() DimxAsInteger,yAsInteger y=1: x=1 DoWhile5x+y<>100'① y=y+1 x+y=40'② Loop Label1.Caption="5元钞"+Str(x)+"张" Label2.Caption="1元钞"+Str(y)+"张" EndSub 程序中划线处①改为 程序中划线处②改为 2007年6月高中信息技术会考 算法与程序设计题(第十套) 四、程序设计题(本题有4小题,第1-3小题,每小题4分,第4小题6分,共18分) 1.有如下VisualBasic程序段: a=3 b=5 h=6 v=a*b*h 该程序段运行后,变量v的值是。 2.有如下VisualBasic程序段: Fori=lTo10 a(i)=i Nexti 该程序段运行后,数组变量a(5)的值为。 3.下面VisualBasic程序的功能是: 计算表达式1/2+1/4+…+1/100的值,并在文本框Text1中输出结果。 运行该程序后,语句sum=sum+1/(2*i)共执行了次。 PrivateSubCommand1_Click() DimsumAsDouble,iAsInteger sum=0 Fori=1To50 sum=sum+1/(2*i) Nexti Text1.Text=Str(sum) EndSub 4.有一判断健康状况的VisualBasic程序,其窗体如下图所示,输入身高和体重后,单击“健康状况”按扭,将显示相应的健康状况信息。 标准体重=身高-105 当体重高于“标准体重×1.1”时为偏胖,提示“偏胖,注意节食! ”;当体重低于“标准体重×0.9”时为偏瘦,提示“偏瘦,增加营养! ”;其他为正常,提示“正常,继续保持! ”。 设h表示身高,g表示体重,bt表示标准体重。 通过分析可得出该问题的数学表达式为: 解决上述问题的VisualBasic程序如下,在①和②划线处,填入合适的语句或表达式,把程序补充完整。 PrivateSubCommand1_Click() DimhAsDouble,gAsDouble,btAsDouble h=Val(Text1.Text) g=Val(Text2.Text) ① Ifg>bt*1.1ThenLabel5.Caption="偏胖,注意节食! " If②ThenLabel5.Caption="偏瘦,增加营养! " Ifg<=bt*1.1Andg>=bt*0.9ThenLabel5.Caption="正常,继续保持! " EndSub 程序中划线处①应填入 程序中划线处②应填入
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 浙江省 信息技术 会考 算法 程序设计
![提示](https://static.bingdoc.com/images/bang_tan.gif)