浙江信息技术会考 算法与程序设计试题Word格式文档下载.docx
《浙江信息技术会考 算法与程序设计试题Word格式文档下载.docx》由会员分享,可在线阅读,更多相关《浙江信息技术会考 算法与程序设计试题Word格式文档下载.docx(30页珍藏版)》请在冰豆网上搜索。
3+…100×
3的值,并在文本框Text1中输出计算结果。
PrivateSubCommand1_Click()
DimiAsInteger,sAsInteger
s=0
i=1
DoWhilei<
=100
s=i*3
i=i+1
Loop
Text1.Text=Str(s)
EndSub
问:
(1)刚退出循环时,变量i的值是____________。
(2)为了实现上述表达式的计算,程序中划线处的表达式应更正为____________。
4.某市出租车计费标准规定:
出租车启动后行程不超过3千米(包含3千米)计费5元;
如果行程超过3千米且不超过10千米(包含10千米),则超过3千米部分按1.5元/千米计费(3千米及以内部分计费仍为5元);
若行程超过10千米,则在前面计费基础上,超出10千米部分按1.8元/千米计费。
假定某出租车行程为x千米,计费标准如下:
当x≤3千米时,计费为5元;
当3<
x≤10千米时,计费为5+(x-3)×
1.5
当x>
10千米时,计费为5+(10-3)×
1.5+(x-10)×
1.8
程序界面如图VB-1所示,在文本框Text1中输入行驶里程数(单位:
千米),单击“开始计算”按钮(Command1)后,在标签Label3输出计费结果。
解决此问题的算法流程图如图VB-2所示,相应的VisualBasic程序如下,在程序
和
划线处,填入适当的语句或表达式,把程序补充完整。
DimxAsSingle,sAsSingle
x=Val(Text1.Text)
If
Then
s=5
ElseIfx<
=10Then
s=5+(x-3)*1.5
Else
s=5+(10-3)*1.5+(x-10)*1.8
EndIf
=Str(s)
程序中①划线处应填入___________________
程序中②划线处应填入___________________
图VB-1
算法与程序设计题(第二套)
a=12
b=32
c=a
c=c+b
该程序段运行后,变量c的值为____________。
x=12
Ifx<
s=8
s=x
该程序段运行后,变量s的值为____________。
计算表达式1+3+9+27+81+…2187的值,并在文本框Text1中输出计算结果。
DimiAsInteger,tAsLong
t=0
=2187
t=t+i
i=i+3
Text1.Text=Str(t)
(1)为了实现这一目标,程序划线处的表达式应更正为____________。
(2)运行更正后的程序,循环刚退出时变量i的值为___________。
4.将一个十进制正整数转化为二进制数可以采用“除二取余法”,主要方法就是将十进制数用2除,保存所得余数,然后将商的整数部分作为下次运算的被除数,重复上述“除二取余”操作,直到商的整数部分为零停止。
程序界面如图VB-1所示,在文本框Text1中输入一个正整数,单击“开始转换”按钮(Command1)后,对应的二进制数在标签Label3中显示出来。
DimxAsInteger,sAsString,rAsInteger,tAsInteger
s="
"
DoWhilex<
>
0
r=xMod2
s=Str(r)+s
x=
Label3.Caption=s
图VB-1
算法与程序设计题(第三套)
m=8
n=5
t=m+n
t=t-n
x=5001
s=1
Ifx>
5000Thens=s+1
Label1.Caption=Str(s)
3.有如下VisualBasic程序:
Dima(1To100)AsInteger,iAsInteger,sAsInteger
Fori=2To100Step2
a(i)=i*2
s=s+a(i)
Nexti
(1)程序运行后,下标变量a(4)的值为____________。
(2)循环刚退出时,变量i的值为____________。
4.在某学校里,每位同学都会得到一张一卡通卡,一卡通的卡号是唯一的,卡内会记录每位同学的姓名、住址、班级、金额等信息。
每当同学刷卡时,卡号就被输入电脑,然后进行查找,如果找到就显示姓名,否则显示“查无此人”。
下列程序的功能是根据卡号查找对应的姓名,程序中数组a保存所有已发放一卡通的卡号,数组b保存卡号对应的姓名,第i位同学的卡号保存在a(i)中,姓名保存在b(i)中。
程序界面如图VB-1所示,左边列表框列出所有同学的卡号和姓名,在右边文本框Text1中输入卡号,单击“开始查询”按钮(Command1),程序就按卡号进行查找,如果找到就在标签Label3中输出卡号对应同学的姓名,否则就输出“查无此人”。
解决此问题的算法流程图如图VB-2所示,相应的程序如下,在程序
DimxAsString,iAsInteger,sAsString,fAsBoolean
x=
i=0:
f=False'
f为找到标志变量,值为True表示找到,否则表示没找到
DoWhile(i<
n)And(f=False)
Ifx=a(i)Then
f=True
Iff=TrueThen
查无此人!
图VB-2
算法与程序设计题(第四套)
i=3
j=i+i
k=j+j
该程序段运行后,变量k的值为____________。
x=0.51
=0.5Then
s=1
3.有如下VisualBasic程序段:
DimiAsInteger,sAsInteger
i=1
s=0
DoWhilei<
=10
s=s+1:
i=i+1
Loop
(1)该程序段运行后,循环中的两个语句“s=s+1:
i=i+1”一共执行的次数为____________。
(2)该程序段运行后,变量s的值为____________。
4.在网上商城中找到商品后可以将商品按照价格顺序显示,下列程序模拟该信息处理过程,程序能根据找到的商品信息(价格和发货地),将所有商品按照价格从高到低显示。
一开始,所有商品的价格和发货地分别保存在数组a和数组b中,第i个商品的价格保存在a(i)中,对应的发货地保存在b(i)中。
程序界面如图VB-1所示,左边列表框List1中显示用户已找到的所有商品信息(包括价格和发货地),单击“开始排序”按钮(Command1),所有商品按照价格从高到低显示在列表框List2中。
DimiAsInteger,jAsInteger,t1AsInteger,t2AsString,kAsInteger
Fori=1Ton–1'
n表示商品总数
k=i'
k保存第i大的数,一开始假定是a(i)
Forj=i+1Ton
Ifa(k)<
a(j)Thenk=
Nextj
Then
t1=a(i):
a(i)=a(k):
a(k)=t1'
交换价格
t2=b(i):
b(i)=b(k):
b(k)=t2'
交换发货地
Fori=1Ton'
在列表框List2中输出排序结果
List2.AddItemStr(a(i))+"
"
+b(i)
图VB-2
算法与程序设计题(第五套)
a=18:
b=12
c=(a-b)*2
x=10
10Then
你可以继续使用"
余额不足"
DimiAsInteger,xAsInteger,sAsInteger
x=10
i=0
=x
i=i+2
s=s+i
(1)该程序段运行后,变量s的值为____________。
4.超市进货时会将每个商品的条形码和价格输入计算机,并对所有商品按照条形码排序(从小到大),顾客付款时只要把条形码输入电脑,电脑即可根据条形码找到该商品并显示对应的价格。
下列程序的功能是根据条形码查找对应商品的价格,所有商品的条形码和价格分别保存在数组a和b中(并且已经按照条形码从小到大排序),第i个商品的条形码保存在a(i)中,对应的价格保存在b(i)中,变量f是标志变量,如果值为True则说明找到了商品,若为False则说明没有找到。
程序界面如图VB-1所示,在文本框Text1中输入商品的条形码,单击“开始查找”按钮(Command1)后,对应商品的价格在标签Label4中显示出来,如果未找到则显示“找不到该商品,请重新输入条形码”。
划线处填入适当的语句或表达式,将程序补充完整。
DimxAsString,iAsInteger,jAsInteger,mAsInteger
DimfAsBoolean
x=Text1.Text
i=1:
j=n:
f=False'
n保存总的商品数
=j)AndNot(f)
m=Fix((i+j)/2)
a(m)Then
i=m+1
IffThen
Label4.Caption=b(m)
Label4.Caption="
找不到该商品,请重新输入条形码"
算法与程序设计题(第六套)
m=10
n=m*2
t=m*n
s=65
Ifs>
=60Then
P"
E"
3.以下VisualBasic程序的功能是:
计算表达式1-2+3-4+5-6+…+99-100的值,并在文本框Text1中输出计算结果。
t=1
s=s+i
t=-t
(1)循环刚退出时变量i的值是____________。
4.COD(化学需氧量)是衡量水质污染程度的重要指标之一,污水处理时根据污水的COD指标来计算COD去除剂的投放量。
程序界面如图VB-1所示,在文本框Text1中输入COD指标,单击“计算投放量”按钮(Command1)后,程序根据COD指标计算出合适的COD去除剂投放量,并在标签Label3中输出计算结果。
污水处理厂根据COD指标投放COD去除剂的标准如下表所示:
当前COD指标x
根据COD指标应投放COD去除剂的剂量
x<
50
10
x≥50并且x≤500
x>
500
在程序
s=10
=500Then
s=
s=x/4*1.5
Label3.Caption=Str(s)
算法与程序设计题(第七套)
a=1024:
i=2
b=a/i
c=b/i
a=5:
b=4:
c=7
s=a+b
cThen
初检合格"
重新调试"
3.有如下VisualBasic程序:
DimsAsInteger,iAsInteger
Fori=1To10
s=s+1
(1)程序运行后,变量s的值为____________。
(2)程序运行后,语句“s=s+1”被执行的次数为____________。
4.某网站组织了100个商品进行网络人气调查,投票结束后,要选出得票数最高的前10个商品。
下列程序的功能是根据商品已有得票数,选出得票数最高的10个商品。
商品的代号和得票数分别保存在数组a和b中,第i个商品的代号保存在a(i)中,对应的得票数保存在b(i)中。
程序界面如图VB-1所示,左边列表框List1中显示的是所有商品的代号和得票数(按代号从小到大排列),单击“开始统计”按钮(Command1)后,在右边的列表框List2中显示得票数最高的10个商品的代号和得票数(按照得票数从高到低的顺序显示)。
DimiAsInteger,jAsInteger,tAsInteger
Fori=1To10
Forj=100Toi+1Step
Ifb(j)>
b(j-1)Then
t=a(j-1):
:
a(j)=t
t=b(j-1):
b(j-1)=b(j):
b(j)=t
+Str(b(i))
图VB-2
算法与程序设计题(第八套)
i=7:
j=3
k=i*j-j
x=90
90Then
声音超标"
合格"
DimsAsInteger,tAsInteger
t=1:
Fori=1To10Step2
t=t*2
s=t+1
(1)程序运行后,变量s的值为____________。
(2)程序运行后,语句“t=t*2”被执行的次数为____________。
4.交通违章查询。
在违章查询系统中输入车主的汽车车牌号,查询系统就会按照车牌号查找所有的违章记录。
下列程序的功能是根据车牌号查找该车的违章信息,数组a和b分别保存所有违章汽车的车牌号和违章原因,第i条信息的车牌号保存在a(i)中,对应的违章原因保存在b(i)中。
程序界面如图VB-1所示,在文本框Text1中输入车牌号,单击“开始查找”按钮(Command1),电脑就开始查找该汽车所有的违章记录,如果找到对应的信息,就统计所有违章次数并在标签Label3中显示违章总次数,同时在列表框List1中显示所有违章的原因,如果没有找