VB二级考试模拟试题1附答案Word文件下载.docx
《VB二级考试模拟试题1附答案Word文件下载.docx》由会员分享，可在线阅读，更多相关《VB二级考试模拟试题1附答案Word文件下载.docx（19页珍藏版）》请在冰豆网上搜索。
8.若要浏览某个网页，则需要在浏览器的中输入网址。
【A】
A.地址栏B.标题栏C.任务栏D.状态栏
9.使用杀毒软件可以。
A.查出任何已感染的病毒B.查出并清除任何病毒
C.清除部分病毒D.清除已感染的病毒
10.计算机操作系统的主要功能是。
【B】
A.进行网络连接B.管理计算机资源，方便用户使用
C.实现数据共享D.把高级语言的源程序代码转换为目标代码
11.在VisualBasic集成开发环境中，如果工具箱关闭，可在菜单中操作使它可见。
A.视图B.窗口C.文件D.编辑
12.VisualBasic过程的编写是在中进行的。
A.窗体窗口B.工程资源管理器窗口
C.属性窗口D.代码编辑器窗口
13.在VisualBasic中，声明全局变量应该用关键词。
A.DimB.PrivateC.StaticD.Public
14.符合“见名知义”命名规则的“年龄”变量名是。
A．P_MONTHB.P_AGEC.P_BIRTHD.P_NUM
15.仅删除字符串尾部空格的函数是。
A.Ltrim（）B.Trim（）C.Rtrim（）D.Mid（）
16.下列关于数据类型的描述，正确的是。
【B】*
A.所有数据的类型都可以相互转换B.一些数据类型可以自动转换
C.字符串可以完整转换为数值D.字符只能转换成ASCII码
17.在VisualBasic表达式中，运算符的运算顺寻为。
A.算术运算符→字符运算符→关系运算符→逻辑运算符
B.逻辑运算符→关系运算符→字符运算符→算术运算符
C.字符运算符→算术运算符→关系运算符→逻辑运算符
D.关系运算符→逻辑运算符→算术运算符→字符运算符
18.能产生1到7之间随机整数（包括1和7）的表达式为。
A.Rnd*7B.Int（Rnd*8）+1C.Rnd*8+1D.Int（Rnd*7+1）
19.若x为实数，下列函数调用错误的是。
A.Exp（x）B.Sgn（x）C.Sqr（x）D.Int（x）
20.下列正确的赋值语句是。
A.Z=B*B-4*CB.S/=R*RC.X-Y=2.17D.4Z=Y+38
21.不能使用print方法输出信息的对象是。
A.文本框B.图片框C.窗体D.打印机
22.下列能正确输出“a=8”形式的语句是。
A.Printa=3+5B.Print“a=”;
3+5
C.Print“a=3+5”D.Printa=;
23.在OptionBase1语句后，正好可以存放1个4*3矩阵的数组定义语句是【C】
A.Dima（-2To0,2）AsIntegerB.Dima（3,2）AsInteger
C.Dima（4,3）AsIntegerD.Dima（-1To-4,-1To-3）AsInteger
24.在程序运行时，可实现信息输入的控件是。
A.窗体B.单选按钮C.图片框D.标签
25.确定控件在窗体上的位置的属性是。
A.Width和HightB.Width和TopC.Top和LeftD.Top和Hight
26.要是文本框可以显示多行文本，需设置属性值为True。
A.EnabledB.MultiLineC.MaxlenthD.Locked
27.要把一个命令按钮设置成不可见，应设置其Visible属性值为。
A.TrueB.FalseC.DefaultD.Cancel
28.窗体上有一个列表框控件list1,其中含有若干列表项，则能表示当前被选中的列表项内的内容。
A.List1.ListB.List1.ListIndexC.List1.IndexD.List1.Text
29.若要取消窗体最大化按钮，需要设置它的属性为false。
A.AutoRedrawB.MinButtonC.EnabledD.MaxButton
30.若要求在单行文本框中输入密码时只显示*号，则应该在该文本框的属性窗口中设置。
A.Text属性值为*B.Caption属性值为*
C.PasswordChar属性值为*D.Password属性值为True
31.要清除PictureBox控件中的图形，可用语句。
A.Picture1.Picture=LoadPicture（）
B.Picture1.Picture=“”
C.Picture1.Picture=LoadPicture（“”）
D.KillPicture1.Picture
32.若要使命令按钮具有快捷键功能，应在Caption属性值的快捷字符前添加字符。
A.#B.@C.&
D.*
33.在VisualBasic的控件数组中，用于表示控件数组的各个元素的参数是。
A.TagB.IndexC.ListIndexD.Name
34.下列控件中，不能改变控件大小的控件是。
A.TextBoxB.LabelC.FrameD.Timer
35.若要改变窗体的标题内容，应设置该窗体属性的值。
A.CaptionB.FontC.NameD.Text
36.在VisualBasic中，菜单控件只有事件。
A.MouseUpB.MouseDownC.ClickD.DblClick
37.如果要在菜单中添加一个分隔线，则应将其“标题”设置为。
A.=B.*C.&
D.-
38.下列不能直接通过VisualBasic语句访问的数据文件是。
A.顺序文件B.随机文件C.数据库文件D.二进制文件
39.下列不属于VisualBasic数据库访问技术的是。
A.DAOB.SQLC.RDOD.ADD
40.下列叙述中错误的是。
A）注释语句是非执行语句，仅对程序的有关内容起注释作用，它不被解释或编译
B）注释语句可以放在代码中的任何位置
C）注释语句不能放在续行符的后面
D）代码中加入注释语句的目的是提高程序的可读性
二，填空题（每题2分，共20分）
1.VisualBasic工程文件的扩展名是*.vbp
2.VisualBasic的三种工作模式是设计、运行和调试
3.表达式Abs（-34）+Sqr（100）*Int（-3.4）的值为34+10*-4=-6
4.代数式︱
︱的VisualBasic表达式是Abs（a+b）/（a*b）
5.在VisualBasic中所有的控件对象必须是建立在窗体上，它是所有控件的容器。
6.Label控件的Caption和Name默认的属性值相同。
7.在VisualBasic中，若数组作为被调用过程的参数，则只能通过ByRef方式进行传递。
8.以下程序实现每次单击按钮Command1时，标签Label1在窗体Form1中向右移动100个标准单位；
当标签移出窗体右边界时，再次单击Command1，标签Label1回到窗体的右边界
PrivateSubCommand1_Click（）
IfLabel1.Left>
Form1.WidthThen
Label1.left=0
Else
Label1.left=Label1.left+100
EndIf
EndSub
9.以下程序功能是：
把当前目录下的顺序文件smtext.txt的内容读入内存，并在文本框Text1中
显示出来。
DiminDataAsString
Text1.Text=“”
Open“smtext.txt”ForInputAs#1
DoWhileNotEOF
（1）
Input#1,inData
Text1.Text=Text1.Text&
inData
Loop
Close#1
三、阅读理解题（每小题4分，共20分）
1.执行下面过程后，窗体上显示的是Else分支
PrivateSubForm＿Click（）
DimxAsInteger
x=2
SelectCasex
Case1,3
Print“分支1”
CaseIs>
4
Print“分支2”
CaseElse
Print“Else分支”
EndSelect
EndSub
2.执行下面过程后，窗体上显示的是a（2,2）+a（3,3）=2*2+3*3=4+9=13
PrivateSubForm1＿Click（）
Dima（10,10）AsInteger
DimiAsInteger,jAsInteger
Fori=1To10
Forj=1To10
a（i,j）=i*j
Nextj
Nexti
Printa（2,2）+a（3,3）
EndSub
3.执行下面过程后，窗体上显示的是45。
OptionBase1
PrivateSubForm_Click（）
DimaAsVariant
DimiAsInteger,sumAsInteger,xAsSingle
a=Array（1,2,3,4,5）
Sum=0
Fori=1To5
Sum=Sum+a（i）
Nexti
x=Sum/5
Ifa（i）>
xThenPrinta（i）;
EndSub
4．程序运行后，单击两次Command1按钮后，窗体上显示的是810。
PrivateSubCommand1_Click（）
StaticxAsInteger
DimiAsInteger,yAsInteger
Cls
Fori=1To2
y=y+x
x=x+2
Printx,y
5.执行下面过程后，窗体上显示的是24。
PrintPd（4）
FunctionPd（ByValyAsInteger）AsLong
Ify=1Then
Pd=1
Else
Pd=y*Pd（y-1）
EndIf
EndFunction
四、编程应用
1.编写程序，分别用InputBox函数接收两个整数，在窗体中输出其中较大的数。
（6分）
num1=Val（InputBox（"
输入数1"
））
num2=Val（InputBox（"
输入数2"
Ifnum1>
num2Then
Printnum1
Else
Printnum2
2.编写一个通用（或子程序）过程area，以实型变量r作为形参，计算并在过程中输出圆的面积。
（7分）
ConstPI=3.1415926
DimsAsSingle,raAsSingle
ra=InputBox（"
请输入半径"
）
Callarea（ra,s）
Prints
PublicSubarea（ByValrAsSingle,ByRefs）
s=PI*r*r
3.电力公司为合理调配某社区用电高峰，拟对该社区居民户每月用电情况进行统计。
设定每隔50度用电量为一个统计区间，当大于等于500度时为一个统计区间（即0-49、50-99、100-149，……、450-499、500以上）。
试编程统计每个用电区间内的居民户数。
要求：
1）输入的用电量为整数；
2）输入负数时结束数据输入
PrivateSubForm_Click（）
Dima（10）AsInteger
num=InputBox（"
输入用电量"
Printnum;
DoWhilenum>
=0
n=num\50
Ifn>
=10Then
a（10）=a（10）+1
a（num\50）=a（num\50）+1
Loop
Print
Fori=0To10
Ifi=10Then
Print"
>
=500的用户数为"
&
a（i）
Printi*50&
"
~"
（i+1）*50&
的用户数为"
升级会员 