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