二级VISUAL+BASIC笔试309.docx
- 文档编号:26656836
- 上传时间:2023-06-21
- 格式:DOCX
- 页数:20
- 大小:21.72KB
二级VISUAL+BASIC笔试309.docx
《二级VISUAL+BASIC笔试309.docx》由会员分享,可在线阅读,更多相关《二级VISUAL+BASIC笔试309.docx(20页珍藏版)》请在冰豆网上搜索。
二级VISUAL+BASIC笔试309
二级VISUALBASIC笔试-309
(总分:
104.00,做题时间:
90分钟)
一、选择题(总题数:
35,分数:
70.00)
1.在窗体(名称为Forml)上绘制一个名称为Text1的文本框和一个名称为Commandl的命令按钮,然后编写一个事件过程。
程序运行后,如果在文本框中输入一个字符,则把命令按钮的标题设置为“计算机等级考试”。
以下能实现上述操作的事件过程是()。
(分数:
2.00)
A.PrivateSubTexl_Change()
Commandl.Caption="计算机等级考试”
EndSub √
B.PrivateSubCommandl_Click()
Caption="计算机等级考试"
C.PrivateSubCommandl_Click()
Text.Caption="计算机等级考试"
EndSub
D.PrivateSubCommandl_Click()
Text1.Text="计算机等级考试"
EndSub
解析:
2.下列语句中正确的是()。
(分数:
2.00)
A.IfX<3*YAndX>YThenY=X^3 √
B.IfX<3*YAndX>YThenY=X3
C.IfX<3*Y:
X>YThenY=X^3
D.IfX<3*YAndX>YThenY=X**3
解析:
3.通过文本框的()事件过程可以获取文本框中输入字符的ASCII码值。
(分数:
2.00)
A.Change
B.GotFocus
C.LostFocus
D.KeyPress √
解析:
4.下列说法正确的是()。
(分数:
2.00)
A.一个应用程序中只能创建一个窗体
B.一个应用程序中只能创建一个模块
C.一个应用程序中只能创建一个MDI窗体 √
D.一个应用程序中只能创建一个MDI子窗体
解析:
5.运行以下程序后,输出的图形是()。
Forr=OTo150
Circle(320,240),r
Fori=1To1000
Nexti
Nextr
(分数:
2.00)
A.一个固定的空心圆
B.一个半径逐渐变大的空心圆
C.一个固定的实心圆
D.一个半径逐渐变大的实心圆 √
解析:
6.下列程序运行时输出的结果是()。
PrivateSubForm_Click()
Dima
a=Array("天天向上","清华大学","天上人间","程序设计")
forI=Lbound(a,1)toUbound(a,1)
ifleft(a(i),1)="天"thenprinta(i);
nextI
EndSub
(分数:
2.00)
A.天天向上
B.天天向上天上人间 √
C.出错信息
D.天天向上清华大学天上人间程序设计
解析:
7.单击命令按钮时,下列程序代码的执行结果为()。
PrivateSubProcl(nAsInteger,ByValmASInteger)
n=nMod10
m=m/10
EndSub
PrivateSubCommandl_Click()
DimxAsInteger
DimyAsInteger
x=12
y=34
CallProcl(x,y)
Printx;y
EndSub
(分数:
2.00)
A.1234 √
B.234
C.23
D.123
解析:
8.Label控件中内容能垂直方向变化而宽度保持不变则应设置()属性。
(分数:
2.00)
A.Wordwrap √
B.Enabled
C.Locked
D.AutoSize
解析:
9.执行以下程序段后,变量c$的值为()。
S$="VisualBasicProgramming"
b$="Quick"
c$=b$&UCase(Mid$(a$,7,6))&Right$(a$,12)
(分数:
2.00)
A.VisualBASICProgramming
B.QuickBasicProgramming
C.QUICKBasicProgramming
D.QuickBASICProgramming √
解析:
10.在窗体上画一个通用对话框,其名称为CommonDialogl,然后画一个命令按钮,并编写如下事件过程:
PrivateSubCommandl_click()
CommonDialogl.Friter="AllFiles(*.*)|*.*|TextFiles"&_
"(*.txt)|*.txt|ExecutableFiles(*.exe)|*.exe"
CommonDialog1.FilterIndex=3
CommonDialog1.ShowOpen
MsgBOXCommonDialog1.FileName
EndSub
程序运行后,单击命令按钮,将显示一个“打开”对话框,此时在“文件类型”框中显示的是()。
(分数:
2.00)
A.AllFries(*.*)
B.TextFiles(*.txt)
C.ExecutableFries(*.exe) √
D.不确定
解析:
11.以下定义数组或给数组元素赋值的语句中,正确的是()。
(分数:
2.00)
A. √
B.
C.
D.
解析:
12.执行如下两条语句后,窗体上显示的是()。
a=9.8596
PrintFormat(a,"$0,000.00")
(分数:
2.00)
A.0,009.86
B.$9.86
C.9.86
D.$0,009.86 √
解析:
13.下面叙述中正确的是()。
(分数:
2.00)
A.SW函数只能用于Print方法中
B.Space函数既可以用于Print方法中,也能用于表达式 √
C.Spc函数与Space函数均生成空格,没有区别
D.以上说法均不对
解析:
14.设有如下语句:
Dima,bAsInteger
c="VisualBasic"
d=#7/20/2005#
以下关于这段代码的叙述中,错误的是()。
(分数:
2.00)
A.a被定义为Integer类型变量 √
B.b被定义为Integer类型变量
C.c中的数据是字符串
D.d中的数据是日期类型
解析:
15.任何控件都具有()属性。
(分数:
2.00)
A.Text
B.Caption
C.Name √
D.ForeCol0r
解析:
16.如果要在任何新建的模块中自动插入OptionExplicit语句,则应采用下列()操作步骤。
(分数:
2.00)
A.“工具”菜单中选取“选项”命令,打开“选项”对话框,单击“编辑器”选项卡,选中“要求变量声明”选项 √
B.在“编辑”菜单中执行“插入文件”命令
C.在“工程”菜单中执行“添加文件”命令
D.以上操作均不对
解析:
17.要使一个图片框控件能自动地附着在窗体的一条边上,应设置它的()属性。
(分数:
2.00)
A.Picture
B.Aligmen
C.Border
D.Align √
解析:
18.当对命令按钮的Picture属性装入.bmp图形文件后,命令按钮上并没有显示所需的图形,原因是没有对某个属性设置为1,该属性是()。
(分数:
2.00)
A.MousePicture
B.Style √
C.DownPicture
D.DisabledPicture
解析:
19.下面程序运行后,输出结果是()。
PrivateSubmysub(b()AsInteger,OptionalByValnAsInteger=2)
ForI=1to4
b(I)=n*I
NextI
EndSub
PrivateSubCommandl_Click()
Dima(1to4)AsInteger,IAsInteger
Callmysub(a(),5)
Mysuba()
ForI=1to4
Printa(i);
Next
EndSub
(分数:
2.00)
A.5101520
B.2468 √
C.出错
D.0000
解析:
20.下列关于闲置循环的四个叙述中,错误的是()。
(分数:
2.00)
A.闲置循环是当应用程序处于闲置状态下执行的循环
B.闲置循环可以占用所有的CPU时间
C.闲置循环是无法退出的 √
D.闲置循环使系统不响应其他任何事件,除非使用DoEvents语句
解析:
21.Mid("HelloEveryone",7,3)的执行结果是()。
(分数:
2.00)
A.ong
B.every
C.Eve √
D.one
解析:
22.在窗体上画一个名称为Text1的文本框和一个名称为Commandl的命令按钮,然后编写如下事件过程:
PrivateSubCommandl_Click()
Dimarrayl(10,10)AsInteger
DimiAsInteger,jAsInteger
Fori=1To3
Forj=2To4
arrayl(i,j)=i+j
Nextj
Nexti
Text1.Text=array1(2,3)+array1(3,4)
EndSub
程序运行后,单击命令按钮,在文本框中显示的值是()。
(分数:
2.00)
A.12 √
B.13
C.14
D.15
解析:
23.对长度为n的线性表进行顺序查找,在最坏情况下所需要的比较次数为()。
(分数:
2.00)
A.log2n
B.n/2
C.n √
D.n+1
解析:
24.下列叙述中正确的是()。
(分数:
2.00)
A.一个逻辑数据结构只能有一种存储结构
B.数据的逻辑结构属于线性结构,存储结构属于非线性结构
C.一个逻辑数据结构可以有多种存储结构,且各种存储结构不影响数据处理的效率
D.一个逻辑数据结构可以有多种存储结构,且各种存储结构影响数据处理的效率 √
解析:
25.每建立一个窗体,工程管理器窗口中就会增加一个()。
(分数:
2.00)
A.工程文件
B.窗体文件 √
C.程序模块文件
D.类模块文件
解析:
26.如果想在程序中反复使用一个日期型数据“01/01/2005”,为了避免在编写程序时反复输入这个数据,也为了一次能够修改程序中所有用到这个数据的语句,可以采用()。
(分数:
2.00)
A.将这个数据声明为字符串型常量,用一个常量标识符代表它
B.将这个数据声明为字符串型变量,用一个变量标识符表示它
C.将这个数据声明为日期型常量,用一个常量标识符代表它 √
D.将这个数据声明为日期型变量,用一个变量标识符表示它
解析:
27.程序运行后,在窗体上单击鼠标,此时窗体不会接收到的事件是()。
(分数:
2.00)
A.MouseDown
B.MouseUp
C.Load √
D.Chck
解析:
28.在VisualBasic中,要使标签的标题居中显示,则将其Alignment属性设置为()。
(分数:
2.00)
A.0
B.2 √
C.1
D.3
解析:
29.在数据管理技术的发展过程中,经历了人工管理阶段,文件系统阶段和数据库系统阶段。
其中数据独立性最高的阶段是()。
(分数:
2.00)
A.数据库系统 √
B.文件系统
C.人工管理
D.数据项管理
解析:
30.以下关于焦点的叙述中,错误的是()。
(分数:
2.00)
A.如果文本框的TabStop属性为False,则不能接收从键盘上输入的数据 √
B.当文本框失去焦点时,触发LostFocus事件
C.当文本框的Enabled属性为False时,其Tab顺序不起作用
D.可以用TabIndex属性改变Tab顺序
解析:
31.目录列表框的Path属性的作用是()。
(分数:
2.00)
A.显示当前驱动器或指定驱动器上的某目录下的文件名
B.显示当前驱动器或指定驱动器上的目录结构 √
C.显示根目录下的文件名
D.显示指定路径下的文件
解析:
32.为了清除窗体上的一个控件,下列正确的操作是()。
(分数:
2.00)
A.按回车键
B.按Esc键
C.选择(单击)要清除的控件,然后按Del键 √
D.选择(单击)要清除的控件,然后按回车键
解析:
33.假定有一个菜单项,名为MenuItem,为了在运行时使该菜单项失效(变灰),应使用的语句为()。
(分数:
2.00)
A.Menultem.Enabled=False √
B.Menultem.Enabled=True
C.Menultem.Visible=Tme
D.Menultem.Visible=Hase
解析:
34.下面程序运行后的结果是()。
PrivateSubForm_Click()
DimsAsInteger,kAsInteger,iAsInteger,nAsInteger
s=1
fori=1to3
forj=ito3
fork=jtoistep-1
s=s*k
nextk,J,i
prints
EndSub
(分数:
2.00)
A.6
B.72
C.144
D.432 √
解析:
35.执行语句s=Len(Mid("VisualBasic",1,6))后,s的值是()。
(分数:
2.00)
A.Visual.
B.Basic
C.6 √
D.11
解析:
二、填空题(总题数:
12,分数:
34.00)
36.欲打开各种VisualBasic窗口或显示工具栏,其对应的菜单命令均放置于主菜单项1。
的下拉菜单中。
(分数:
2.00)
填空项1:
__________________ (正确答案:
视图)
解析:
37.代码窗口分为左右两栏,左边一栏称为1,右边一栏称为过程框。
(分数:
2.00)
填空项1:
__________________ (正确答案:
对象框)
解析:
38.设有如下程序段:
a$="BeujingShanghai"
b$=Mid(a$,Instr(a$,"g")+1)。
执行上面的程序段后,变量b$的值为______。
(分数:
2.00)
填空项1:
__________________ (正确答案:
Shanghai)
解析:
39.把“VisualBasic程序设计”添加到列表框lstBooks的语句为1。
(分数:
2.00)
填空项1:
__________________ (正确答案:
LsBooks.AddItem"VisualBasic程序设计/)
解析:
40.数学公式(x+y)4的VB算述表达式是1。
(分数:
2.00)
填空项1:
__________________ (正确答案:
(x+y)^4)
解析:
41.在3种不同类型的组合框中,只能选择而不能输入数据的组合框是1。
(分数:
2.00)
填空项1:
__________________ (正确答案:
下拉式列表框(或下拉式))
解析:
设有如下程序:
PrivateSubForm_Cliok()
DimaAsInteger,SAsInteger
n=8
s=0
Do
s=s+n
n=n-1
LoopWhilen>0
Prints
EndSub
以上程序的功能是[7];程序运行后,单击窗体,输出结果为[8]。
(分数:
4.00)
填空项1:
__________________ (正确答案:
计算8+7+6+5+4+3+2+1(能正确描述1~8累加和的任何叙述))
解析:
填空项1:
__________________ (正确答案:
36)
解析:
42.VisualBasic中允许出现的数为______。
±25.743.47E-10.3681.87E+50
10^(1.256)D322.5E12E3
34.75D+60.258
(分数:
2.00)
填空项1:
__________________ (正确答案:
VisualBasic中允许出现的数:
3.47E-10.36812E334.75D+60.258)
解析:
已知B的ASCⅡ码为66,以下程序统计由键盘输入的字符串中各英文字母的使用次数。
Dim[10]
Fori=65To90
pp(i)=0
Next
x$=InputBox("Enterastring",K$)
x$=UCase$(x$)
Fori=1ToLen(x$)
n=Asc(Mid$(x$,i,1))
Ifn>=65Andn<=90Then
[11]
EndIf
Nexti
Fori=65To90
Ifpp(i)>Then
PrintChr$(i);pp(i)
EndIf
Next
(分数:
4.00)
填空项1:
__________________ (正确答案:
PP(65To90))
解析:
填空项1:
__________________ (正确答案:
PP(n)=PP(n)+1)
解析:
43.在窗体上画一个命令按钮(其Name属性为Commandl),然后编写如下代码:
PrivateSubCommandl_Click()
Dima(5)
Fori=0To4
A(i)=i+1
t=i+1
Ift=3Then
Printa(i)
A(t-1)=a(i-2)
Else
A(t)=a(i)
EndIf
Ifi=3Thena(i+1)=a(t-4)
A(4)=1
Printa(i)
NextI
EndSub
程序运行后,单击命令按钮,输出结果是上______。
(分数:
2.00)
填空项1:
__________________ (正确答案:
123141)
解析:
44.下面程序的功能是产生10个小于100(不含100)的随机正整数,并统计其中5的倍数所占比例,但程序不完整,请补充完整。
SubPR()
Randomize
Dima(10)
Forj=1To10
a(i)=Int______
Ifa(j)Mod5=0Thenk=k+1
Printa(j)
Nextj
Printk/10
EndSub
(分数:
2.00)
填空项1:
__________________ (正确答案:
(99*Rnd)+1)
解析:
在窗体上画1个名称为Commandl的命令按钮和2个名称分别为Text1、Text2的文本框,如下图所示,然后编写如下程序;
FunctionFun(xAsInteger,ByVhlyAsInmgcr)AsInteger
X=K+y
Ifx<0Then
Fun=x
Else
Fun=y
EndIf
EndFunction
PrivateSubCornmandl_Click()
DimaAsInteger,bAsInteger
a=-10:
b=5
Tcxt1,Text=Fun(a,b)
Text2,Text=Fun(a,b)
EndSub
程序运行后,单击命令按钮,Text1和Text2文本框显示的内容分别是上[14]和[15]。
(分数:
8.00)
填空项1:
__________________ (正确答案:
-5)
解析:
填空项1:
__________________ (正确答案:
5)
解析:
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 二级 VISUAL BASIC 笔试 309