4B．3C．falseD．true
【答案】D
【解析】
25．在VisualBasic中，下列属于正确变量名的是（）
A．a1B．3yC．x-yD．then
【答案】A
【解析】
26．VB中工程文件的扩展名为（）
A．.vbpB．.frmC．.basD．.ds
【答案】A
【解析】
27．在VisualBasic中，下列属于字符串的是（）。
A．Val（"100"）B．"int（100）"C．sqr（100）D．1/2^3
【答案】B
【解析】
28．在VB中，下列选项属于字符串型数据的是
A．2356B．"BX277"C．BX277D．2014-5-28
【答案】B
【解析】
二、填空题
29．
（1）所谓算法是。
（2）VB界面设计一般包括、、。
（3）描述算法的方法有3种，分别是、、。
（4）VB是一种程序设计语言。
（5）abs（－3.8）＝sqr（49）＝int（－7.8）＝
（6）int（10*Rnd）表示
【答案】
（1）解决问题的方法和步骤；
（2）设计程序界面编写程序代码调试、运行程序（3）自然语言主伪代码流程图（4）可视化（面向对象或高级语言都算对）（5）3.8；7；－8；（6）0－9这十个整数
【解析】
30．将数学表达式
写成VB表达式，正确的是____________。
【答案】（2-sqr（x））/x^2
【解析】
31．VisualBasic表达式x^2+k/（1+a*x-b））对应的数学式子为______。
【答案】
【解析】
32．声明一个长度为10个字符的字符串变量mstr，应使用_____________语句。
【答案】Dimmstrasstring=10
【解析】
33．某学校开设多样化选修课程，学生可以根据个人兴趣和特长选择选修课。
假设每门选修课的选课人数不超过40，学生选课的相关信息存放在数据库文件“student.accdb”的data表中，选课查询程序运行时界面如图所示。
程序功能：
在文本框Text1中输入课程号，单击“查询”按钮Command1,在列表框List1中显示选修本课程的名学生信息。
如果没有找到，在列表框中显示“该课程当前无人报名”。
按此要求将程序补充完整。
PrivateSubcommand1_click（）
Dimxh（1to40）,xm（1to40）AsString'学号和姓名的数组
Dimi,numasinteger
DimconnAsNewADODB．Connection,rsAsNewADODB．Recordset
DimstrSQLAsString
conn.ConnectionString="Provider=Microsoft.ACE.OLEDB．12.0;DataSource="+App.Path+"\student.accdb"'打开到数据库的链接
conn.Open
strSQL="selectxh,xmfromdatawhere'课程=&（Text1.Text）&'"'设置查询的SQL语句
Setrs.ActiveConnection=conn'设置rs的ActiveConnection属性，指定与其关联的数据库链接
rs.OpenstrSQL'打开记录集，将从表student中读取的结果集保存到记录集rs中
List1.Clear
num=0
Dowhilenotrs.EOF
①
xh（num）=rs.Fields（"xh"）
xm（num）=rs.Fields（"xm"）
rs.MoveNext
loop
rs.Close
conn.close
setrs=nothing
setconn=nothing
Fori=1tonum
②
Nexti
ifnum=0thenlist1.additem（"该课程当前无人报名"）
EndSub
（1）程序中①划线处应填入___________________。
（2）程序中②划线处应填入___________________。
【答案】
（1）num=num+1
（2）List1.additemxh（i）+""+xm（i）
【解析】本题主要考核考生应用VB访问数据库的相关知识，考核学生是否理解通过ADO对象连接数据库，通过Recordset对象获取表中的数据。
34．【加试题】小王模拟超市收银机扫描商品条形码后计算总价的过程制作了一个VB程序。
功能如下：
在文本框Text1中输入商品条形码，按回车键后会将已经输入的条形码显示在列表框List1中，同时将商品明细显示在列表框List2中。
点击按钮“计算商品总价”后，会将所有商品的总价显示在文本框Text2中。
程序界面如图所示：
实现上述功能的部分VB程序如下，请在三个划线处填入合适代码。
'定义全局数组变量
Dima（1To10）AsLong
Dimb（1To10）AsString
'自动加载条形码信息以及对应的商品信息
PrivateSubForm_Load（）
DimiAsInteger
a
（1）=503741
Fori=2To10
a（i）=a（i-1）+1
Nexti
b
（1）="可乐5.00"
b
（2）="薯片7.50"
b（3）="牛奶5.60"
b（4）="橙汁7.50"
b（5）="面包4.00"
b（6）="蜂蜜28.00"
b（7）="蛋糕12.00"
b（8）="绿箭3.50"
b（9）="饼干6.00"
b（10）="雪碧5.00"
EndSub
'输入条形码，查找条形码，并显示条形码及其对应的商品信息
PrivateSubText1_KeyPress（KeyAsciiAsInteger）
DimtxmAsLong:
DimiAsInteger:
DimjAsInteger
txm=Val（Text1.Text）
IfKeyAscii=13Then
Iftxm>=503741Andtxm<=503750Then
List1.AddItemtxm
Text1.Text=""
i=1:
j=10
DoWhilei<=j
①
Iftxm=a（m）Then
List2.AddItemb（m）
ExitDo
ElseIftxm>a（m）Then
i=m+1
Else
②
EndIf
Loop
Else
MsgBox"条形码输入错误，无此商品"
Text1.Text=""
EndIf
EndIf
EndSub
'计算所购商品的总额
PrivateSubCommand1_Click（）
DimiAsInteger,mxAsString,jgAsString,sumAsSingle
Fori=0To9
IfList2.List（i）<>""Then
mx=List2.List（i）
sum=sum+Mid（mx,4）
EndIf
Nexti
Text2.Text=③
EndSub
【答案】
（1）m=（i+j）\2
（2）j=m-1（3）Str（sum）
【解析】
（1）首先判断这是一个属于对分查找的程序，m是中间数，所以m=（i+j）\2。
（2）查找的顺序要么是m+1，要么是m-1，所以这里的j=m-1.（3）sum的变量用于存储不断增加的总额的值，最终要加上str（）函数。
35．小丁想买几张6+1彩票，选号时，他希望前4位用自己的生日：
11月8日，即1108，特别号码他选了买彩票日子的个位数5，并且他希望前六个数字组成的数能被他的幸运数字9整除。
他的好朋友小杰帮他设计了一个VB程序，可以提供一份符合这些要求的号码清单供他挑选。
相应的界面如图-1所示。
阅读程序并完成后面的问题。
（1）设计应用程序界面时，为添加a所指向的对象，应使用-2图所示的“控件工具箱”中的______（填写相应编号）；在-3图所示的“属性窗口”中，将______属性值设置为“开始”，可使图-2中b所指向的对象显示“开始”。
（2）请根据题意将下列程序补充完整。
PrivateSubCommand1_Click（）
Dimi,j,cAsInteger
DimnAsLong
c=0
Fori=0To99
n=110800+i
If①Then
List1.AddItemStr（n）+""+"5"
c=c+1
EndIf
Nexti
Label2.Caption="满足条件的数有：
"+Str（c）+"组"
EndSub
【答案】
（1）4caption
（2）nMod9=0
【解析】本题主要考核考生VB界面的设计和枚举算法的应用。
三、操作题
36．求两个整数的最大公约数分析：
求最大公约数的算法思想：
（1）对于已知两数m，n，使得m>n；
（2）m除以n得余数r；
（3）若r=0，则n为求得的最大公约数，算法结束；否则执行（4）；
（4）m←n，n←r，再重复执行
（2）。
例如:
求m=14,n=6的最大公约数.
Mnr
1462
620
请根据以上思路补充下面的程序代码：
PrivateSubCommand1_Click（）
m=InputBox（"m="）
n=InputBox（"n="）
Ifmm=n:
n=t
r=________________
DoWhile（r<>0）
m=n
n=r
r=mModn
Loop
Print"最大公约数=",n
EndSub
【答案】mmodn
【解析】
四、判断题
37．在VB窗口中建立命令按钮对象，改变命令按钮对象名称后，该命令按钮对象上显示改变的名称；（）
【答案】错误
【解析】
38．VB开发的应用程序的两个特征是“对象”和“事件驱动；（）
5、在咀嚼米饭过程中，米饭出现了甜味，说明了什么？
【答案】错误
答：
当月球运行到地球和太阳的中间，如果月球挡住了太阳射向地球的光，便发生日食。
【解析】
39．VisualBasic（简称VB）是一种通用的基于对象的程序设计语言；（）
【答案】正确
预计未来20年，全球人均供水量还将减少1/3。
【解析】
10、生物学家列文虎克于1632年出生在荷兰，他制成了世界上最早的可放大300倍的金属结构的显微镜。
他用自制的显微镜发现了微生物。
40．运行列表框对象语句：
List1.AddItem="同学们好！
"，会显示：
同学们好！
（）
二、问答：
【答案】错误
【解析】
21、人们发现银河系以外还有类似银河系一样庞大的恒星集团，如：
仙女座星系、猎犬座星系，目前人类已发现了超过100亿个河外星系。
41．在VB窗口中建立命令按钮对象，双击该对象，建立的程序名称中的对象名和命令按钮对象名称相同；（）
【答案】正确
【解析】
9、月球地貌的最大特征，就是分布着许多大大小小的环形山，环形山大多是圆形的。
关于环形山的形成，目前公认的观点是“撞击说”。
五、简答题
42．求5+10+15+20+……>2015的最少累加项数。
20、对生活垃圾进行分类、分装，这是我们每个公民的义务。
只要我们人人参与，养成良好的习惯，我们周围的环境一定会变得更加清洁和美丽。
4、“我迈出了一小步，但人类迈出了一大步。
”这句话是阿姆斯特朗说的。
【答案】①S=S+5*I；
6、月球是一个不发光、不透明的球体，我们看到的月光是它反射太阳的光。
②输出i-1；
【解析】
升级会员 