第一套（程序设计）：
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中显示所有违章的原因，如果没有找到，则在列表框中显示"没有任何违章记录"。
解决此问题的算法流程图如图VB-2所示，相应程序如下，在程序(1)和(2)划线处填入适当的语句和代码，把程序补充完整。
PrivateSubCommand1_Click()
DimxAsString,iAsInteger,sAsInteger
List1.Clear
s=0
x=____(1)_________
Fori=1Ton'n保存违章记录总数
Ifx=a(i)Then
s=s+1
List1.AddItemb(i)
EndIf
Nexti
Label3.Caption=Str(s)
If________(2)__________Then
List1.AddItem"没有任何违章记录"
EndSub
程序中(1)划线处应填入_______________
程序中(2)划线处应填入_______________
图VB-1图VB-2
第二套（程序设计）：
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所示，相应的程序如下，在程序(1)和(2)划
线处填入适当的语句或表达式，将程序补充完整。PrivateSubCommand1_Click()
DimiAsInteger,jAsInteger,tAsIntegerFori=1To10
Forj=100Toi+1Step____(1)________Ifb(j)>b(j-1)Then
t=a(j-1):____(2)________:a(j)=tt=b(j-1):b(j-1)=b(j):b(j)=tEndIf
Nextj
Nexti
Fori=1To10
List2.AddItemStr(a(i))+""+Str(b(i))Nexti
EndSub
程序中(1)划线处应填入___________________程序中(2)划线处应填入___________________
图VB-1图
VB-2
第三套（程序设计）：
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所示，相应的程序如下，在程序(1)和(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_________(1)__________Then
f=True
ElseIfx<a(m)Then
_______(2)_______________
Else
i=m+1
EndIf
Loop
IffThen
Label4.Caption=b(m)
Else
Label4.Caption="找不到该商品，请重新输入条形码"
EndIf
EndSub
程序中(1)划线处应填入___________________
程序中(2)划线处应填入___________________
图VB－1
图VB-2
第四套（程序设计）：
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
Loop
Text1.Text=Str(t)
EndSub
（1）为了实现这一目标，程序划线处的表达式应更正为__________。
（2）运行更正后的程序，循环刚退出时变量i的值为__________。
4．将一个十进制正整数转化为二进制数可以采用"除二取余法"，主要方法就是将十进制数用2除，保存所得余数，然后将商的整数部分作为下次运算的被除数，重复上述"除二取余"操作，直到商的整数部分为零停止。
程序界面如图VB-1所示，在文本框Text1中输入一个正整数，单击"开始转换"按钮（Command1）后，对应的二进制数在标签Label3中显示出来。
解决此问题的算法流程图如图VB-2所示，相应的VisualBasic程序如下，在程序(1)和(2)划线处，填入适当的语句或表达式，把程序补充完整。
PrivateSubCommand1_Click()
DimxAsInteger,sAsString,rAsInteger,tAsInteger_____(1)_____s=""
DoWhilex<>0r=xMod2s=Str(r)+sx=_____(2)_____Loop
Label3.Caption=sEndSub
程序中(1)划线处应填入___________________程序中(2)划线处应填入___________________
图VB－1
图VB-2
第五套（程序设计）：
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所示，相应的程序如下，在程序(1)和(2)划线处，填入适当的语句或表达式，把程序补充完整。
PrivateSubCommand1_Click()
DimxAsString,iAsInteger,sAsString,fAsBoolean
x=_____(1)_____
i=0:f=False'f为找到标志变量，值为True表示找到，否则表示没找到DoWhile(i<n)And(f=False)'n保存学生总人数
i=i+1
Ifx=a(i)Then
f=True
EndIf
Loop
Iff=TrueThen
_____(2)____
Else
s="查无此人！"
EndIf
Label3.Caption=s
EndSub
程序中(1)划线处应填入___________________
程序中(2)划线处应填入___________________
图VB－1
图VB-2
第六套（程序设计）：
1．有如下VisualBasic程序段：
a="Test"
b="is"
c="easy"
c=a+b+c
该程序段运行后，变量c的值为____________。
2．有如下VisualBasic程序段：
x=36:y=27
Ifx/3>y/3Then
Label1.Caption="x>y"
Else
Label1.Caption="x<=y"
EndIf
该程序段运行后，在标签Label1上显示的是____________。
3．有如下VisualBasic程序段：
Dima(1To10)AsInteger,iAsInteger,mAsInteger
m=a(1)
i=2
DoWhilei<=10
Ifm<a(i)Thenm=a(i)
i=i+1
Loop
已知数组a中a(1)、a(2)、…、a(10)保存的数值分别为：56、32、12、24、77、89、90、7、3、11，
问：
（1）循环刚退出时，变量i的值为____________。
（2）该程序段运行后，变量m的值为____________。
4．团体总分统计。下列程序的功能是根据输入的班级编号，统计该班的团体总分。每个运动员的编号、所属班级编号、得分情况分别保存在数组a、b、c中，a(i)保存第i位运动员的编号，b(i)保存第i位运动员所属班级编号，c(i)保存第i位运动员得分。
程序界面如图VB-1所示，在文本框Text1中输入班级编号，单击"开始统计"按钮（Command1），程序统计该班的团体总分并在文本框Text2中显示。
解决此问题的算法流程图如图VB-2所示，相应的程序如下，程序中变量n表示总的运动员人数，在程序(1)和(2)划线处，填入适当的语句或表达式，把程序补充完
整。
PrivateSubCommand1_Click()
DimxAsString,iAsInteger,sAsIntegerx=Text1.Text
s=0
Fori=1Ton'n保存运动员总人数If_________(1)_____________Thens=s+c(i)
___________(2)______________
Nexti
Text2.Text=Str(s)
EndSub
程序中(1)划线处应填入_______________
程序中(2)划线处应填入_______________
图VB-1
图VB-2
第七套（程序设计）：
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,tAsInteger
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去除剂的标准如下表所示：
www.99jianzhu.com/包含内容：建筑图纸、PDF/word/ppt 流程，表格，案例，最新,免费下载,施工方案、工程书籍、建筑论文、合同表格、标准规范、CAD图纸等内容。