A、1B、-1C、FalseD、True
19、随机产生10个[10，99]中的整数，依次存储到数组变量a
（1）～a（10）中。
实现此功能的部分算法流程图如图所示：
图中空白处理框①和②处应填入的是（）。
A、①i←i+1B、①i←i+1
②a（i）←Rnd*90+10②a（i）←Int（Rnd*90）+10
C、①a（i）←Int（Rnd*90）+10D、①a（i）←Int（Rnd*89）+10
②i←i+1②i←i+1
20、"猴子吃桃"问题：
一天，有一只猴子从树上摘
下若干个桃子，当即吃了一半，觉得不过瘾，又吃
了一个。
第二天小猴子接着吃剩下的一半，还觉得
不过瘾，又吃了一个。
以后每天都是吃前一天剩下
的一半并再吃多一个。
到第四天，猴子按规则吃完
桃子后，只剩一个桃子。
问小猴子第一天摘了多少
个桃子。
右图所示是根据分析所画出的部分流程图。
采用倒推算法，其中设定M的初始值为1（第四天吃
完后剩下的桃子数），D为天数（初始值为5）。
请在
下面的①和②（对应流程图中相应空缺位置）填入
相应选项。
①、②分别为（）。
A、M=M*2+1D=1
B、M=M*2+1D<1
C、M=2*（M+1）D=1
D、M=2*（M+1）D<1
21、有如下VisualBasic程序段：
a=3
b=9
c=a+b
Ifc=12Thenpy="正确"Elsepy="不正确"
分析该程序段，下列说法正确的是（）。
A、程序段的流程模式是循环模式
B、“c=12”是赋值语句
C、“py="正确"”是选择语句
D、执行语句“py="正确"”的前提条件是“c=12”为真
22、VB中，设x=298，能得到其个位数字“8”的正确表达式是（）。
A、Int（x/100）*100B、Int（x/10）*10C、Int（x/100）D、x-Int（x/10）*10
23、运行如下VisualBasic程序，单击命令按钮Command1，出现如图所示的出错信息。
发生"下标越界"错误时所执行的语句是（）。
PrivateSubCommand1_Click（）
Dima（0To5）AsInteger
DimiAsInteger'①
a（0）=1'②
Fori=1To5
a（i）=2*a（i-1）+1'③
Nexti
Text1.Text=Str（a（6））'④
EndSub
A、①B、②C、③D、④
24、运行如下VisualBasic程序，单击命令按钮Command1，出现如图所示的出错信息。
发生"类型不匹配"错误时所执行的语句是（）。
PrivateSubCommand1_Click（）
DimaAsInteger,bAsInteger
a=10'①
b=20'②
Text1.Text="a+b="+Val（a+b）'③
EndSub'④
A、①B、②C、③D、④
25、在VisualBasic中，有如下程序：
PrivateSubCommand1_Click（）
DimaAsInteger,bAsInteger,cAsInteger
DimdAsInteger,zAsInteger
a=Val（Text1.Text）:
b=Val（Text2.Text）:
c=Val（Text3.Text）
d=max（a,b）
z=max（d,c）
Text4.Text=Str（d）
Text5.Text=Str（z）
EndSub
Functionmax（xAsInteger,yAsInteger）AsInteger
Ifx>yThenmax=xElsemax=y
EndFunction
运行该程序，在文本框Text1、文本框Text2、文本框Text3中分别输入2、-5、6后，单击命令按钮Command1，文本框Text5中显示的是（）。
A、-5B、2C、6D、24
26、要计算S=1-2+3-4+5……-100以下不正确的程序段是（）。
A、①B、②C、③D、④
27、下列语句执行后，s的值为（）。
Fori=1to30
Ifimod5=0then
s=s+i
i=i+6
endif
nexti
A、45B、55C、65D、75
28、有如下VisualBasic程序段：
k=1
Forj=2To100
Ifa（j）>a（k）Thenk=j
Nextj
x=a（k）
该程序段执行后，变量x中存储的是（）。
A、a
（1）至a（100）中的最小值B、a
（1）至a（100）中的最大值
C、a
（2）至a（100）中的最小值D、a
（2）至a（100）中的最大值
29、在VisualBasic中程序段是计算（）公式的。
s=0
Fori=1To10
t=1
forj=1toi
t=t*j
nextj
s=s+t
Nexti
A、s=1+2+3+4+5+6+7+8+9+10B、s=1*2*3*4*5*6*7*8*9*10
C、s=1!
+2!
+3!
+4!
+5!
+6!
+7!
+8!
+9!
+10!
D、s=1+2*3+3*4+4*5+5*6+6*7+7*8+8*9+9*10
30、阅读下面程序：
PrivateSubcommand1_click（）
a=val（text1.text）
b=val（text2.text）
ifa=bthen
text3.text=str（a）
exitsub
endif
dowhileb<>0
r=amodb
a=b
b=r
loop
text3.text=str（a）
EndSub
在text1、text2中输入30、6，则text3中的值为（）。
A、1B、3C、6D、9
二、填空题（共40分）
31、（本题6分）有以下几种流程图符号：
ABCDEF
1输入输出框②连接框③流程线④判断框⑤处理框⑥开始结束符
A~F六种流程图符号代表的含义依次是
32、（本题3分）将数学表达式S=写成VB表达式为__________。
33、（本题3分）闰年条件：
能被4整除且不能被100整除或能直接被400整除。
写出闰年的VB表达式（年份用变量y）__________。
34、（本题2分）有如下VisualBasic程序段：
a="1100101"
b=Mid（a,2,4）+"101"
该程序段运行后，变量b的值为____________。
35、（本题2分）有如下VisualBasic程序段：
a=5
b=Len（"1011"）
Ifa>bThen
Label1.Caption="请重新输入"
Else
Label1.Caption="欢迎光临"
EndIf
该程序段运行后，在标签Label1上显示的是____________。
36、（本题4分，每空2分）有如下VisualBasic程序段：
s=0
a=5
Fori=1To10Step2
a=a+i
s=a*i
Nexti
问：
该程序段运行后，
（1）变量i的值是___________。
（2）变量s的值是___________。
37、（本题4分，每空2分）有如下VisualBasic程序段：
DimaAsInteger,bAsInteger,cAsInteger
a=20
b=0
c=2
DoWhilea>bAnda>c
b=b+1
c=c+b
Loop
问：
该程序段运行后，
（1）语句“b=b+1”执行的次数为__________。
（2）变量c的值为____________。
38、（本题4分，每空2分）有如下流程图结构，该流程图中输出的前2个值依次分别是____________、____________。
39、（本题4分，每空2分）设有n盏灯，放在一排。
从1到n依次顺序编号。
有n个人也从1到n依次编号。
第1个人（1号）将灯全部关闭，第2个人（2号）将凡是2的倍数的灯打开，第3个人（3号）将凡是3的倍数的灯做相反处理（该灯如果为打开的，则将它关闭，如关闭的将它打开），以后的人和3号一样，将凡是自己号数倍数的灯做相反处理。
问当n个人操作后，哪几盏灯是亮的。
（亮灯为0，关闭为1）
为了实现这一目标，完善下列程序，使之能完成该功能。
PrivateSubcommand1_click（）
Constn=20
Dimiasinteger,jasinteger
Dima（1ton）asinteger
Forj=1ton
a（j）=0
nextj
fori=1ton
forj=1ton
ifjmodi=0then
①
Endif
Nextj
Nexti
Forj=1ton
If②thenlist1.additemstr（j）
Nextj
EndSub
其中填充①②
40、（本题4分，每空2分）普源为晚上的班级联欢会设计了一个抽奖程序，将所有同学的编号和对应的姓名分别保存在数组a（全班共50个同学，编号为1到50）和数组b中，程序会随机产生一个1到50的正整数（同时包括1和50），作为中奖编号。
程序界面如图所示，左边列表框List1中显示同学的编号和姓名，单击"抽奖"按钮（Command1），在标签Label3中显示抽中的编号，同时在标签Label4中显示"恭喜***同学"，其中具体同学的姓名从数组b中获取。
解决此问题的程序段如下：
Dima（1To50）AsInteger
Dimb（1To50）AsString
Functionsearch（mAsInteger）AsInteger
search=0
Fori=1To50
Ifm=a（i）Then
search=a（i）
EndIf
Nexti
EndFunction
PrivateSubCommand1_Click（）
DimcAsInteger,tasinteger
Randomize
①
Label3.Caption=Str（c）
t=search（c）
Ift<>0Then
Label4.Caption="恭喜"+②+"同学"
EndIf
EndSub
PrivateSubForm_Load（）
'此过程用于对数组a和数组b进行初始赋值，代码略
EndSub
在程序①和②划线处，填入适当的语句或表达式，把程序补充完整：
（1）程序中①划线处应填入___________________。
（2）程序中②划线处应填入___________________。
41、（本题4分，每空2分）数制转换。
将一个K进制（k<=10）数x转换成十进制数可采用如下方法：
主要方法是从右向左，依次取数x的各位数字，分别计算出该数从右边数起的第i位数字与k（i-1）的积，再将其累加，直到所有的数字取完为止。
例如，将五进制数1231转换成十进制数的方法如下：
下列VisualBasic程序的功能是将K进制（k<=10）数x转换成十进制数。
界面如图所示，在文本框Text1中输入数制k，在文本框Text2中输入数x，单击"转换"按钮（Command1）后，在标签Label4中输出转换的结果。
解决此问题的算法流程图如图所示，相应的VisualBasic程序如下：
PrivateSubCommand1_Click（）
DimbAsLong,iAsInteger,kAsInteger,xAsLong,tAsInteger
b=0:
i=1
k=Val（Text1.Text）
x=Val（Text2.Text）
t=xMod10
DoWhile①
b=②
x=x\10
t=xMod10
i=i+1
Loop
Label4.Caption=Str（k）+"进制数"+Text2.text+"转换成十制数为"+Str（b）
EndSub
在程序①和②划线处，填入适当的语句或表达式，把程序补充完整：
（1）程序中①划线处应填入___________________。
（2）程序中②划线处应填入___________________。
三、附加题（共10分，第一题2分，第二题8分，第二小题代码行数不限）
42、把杂乱无章的数据变为有序的数据，这一过程称为排序。
冒泡排序是其中一种最基础的排序方法，其中的升序是把数列中把较小的数据逐次向上推移的一种排序技术。
它的方法是把待排序的n个元素的数组看成是垂直堆放的一列数据，从最下面一个元素起，自下而上的比较相邻两个元素中的数据，如果较小的数据在下面，那将较小的数据换到上面的元素中（否则不交换）。
重复这一过程，直到处理完最后两个元素中的数据，称为一遍加工，当第1遍加工完成时，最小的数据已经上升到第1个元素的位置；第2遍加工对余下的n-1个元素重复上述处理过程，第2遍加工完成后剩下最小的数据上升到第2个位置；直到n-1遍加工完成后发现数据完成了从小到大的排序。
假设有4个数据：
27363218，需要4-1=3遍加工
第1遍加工如下：
第2遍加工如下：
第3遍加工如下：
假设4个数据放在数组d
（1）,d
（2）,d（3）,d（4）
第1遍：
比较d（j）、d（j-1），j=4,3,2,比较3次；
第2遍：
比较d（j）、d（j-1），j=4,3,比较2次；
第3遍：
比较d（j）、d（j-1），j=4,比较1次；
（1）假设另有一组未经排序的数据如下：
456723871330
按照上述规则进行从小到大冒泡排序，第一遍加工完成后这6个数的位次应该是
。
升级会员 