本栏目下题库来源于互联网,轻速云承诺对于用户导入平台的题库是严格保密的,不会在此呈现!
轻速云给您提供更好的在线考试系统服务!
2013年9月全国计算机等级《二级VB》上机临考冲刺试卷(1)
1、【 单选题
假定有一个菜单项,名为Menultem,为了在运行时使该菜单项不可见,应使用的语句为(  )。 [1分]
Menultem.Enabled=False
MenuItem.Enabled=True
MenuItem.Visible=True
Menultem.Visible=Flase
答案:
2、【 单选题
为丫从当前文件夹中读入文件File1.txt,某人编写了下面的程序:
Private Sub Command1_Click(  )
Open"File1.txt"For Output As#20
Do While Not EOF(20)
Line Input#20,ch$
Print ch
Loop
Close#20
End Sub
程序调试时,发现有错误,下面的修改方案中正确的是(  )。 [1分]
在Open语句中的文件名前添加路径
把程序中各处的“20”改为“1”
把Print ch语句改为Print#20,ch
把Open语句中的0utput改为Input
答案:
3、【 单选题
设有以下函数过程
Private Function Fun(a(  )As Integer,b As String)As Integer

End Function
若已有变量声明:
Dim x(5)As Integer,n As Integer,ch As String
则下面正确的过程调用语句是(  )。 [1分]
x(O)=Fun(x."ch")
n=Fun(n.ch)
CallFun X,"ch"
n=Fun(x(5),ch)
答案:
4、【 单选题
窗体的左右两端各有1直线,名称分别为Line1、Line2;名称为Shape1的圆靠在左边的Linel直线上(见图);另有1个名称为Timer1的计时器控件,其Enabled属性值是True。要求程序运行后,圆每秒向右移动100,当圆遇到Line2时则停止移动。为实现上述功能,某人把计时器的Interva1属性设置为1000,并编写了如下程序:
Private Sub Timer1 Timer(  )
For k=Line1.X1 To Line2.X1 Step 100
If Shape1.Left+Shape1.width
Shape1.Left=Shape1.Left+100
End If
Next k
End Sub
   
运行程序时发现圆立即移动到了右边的直线处,与题目要求的移动方式不符。为得到与题目要求相符的结果,下面修改方案中正确的是(  )。 [1分]
把计时器的Interval属性设置为1
把For k=line1.X1 To Line2.X1 Step 100和Next k两行删除
把For k=Line1.X1 To Line2.X1Step 100改为For k=Line2.X1 To Line1.X1 Step 100
把If Shape1.Left+Shepe1.Width
答案:
5、【 单选题
在学生管理的关系数据库中,存取一个学生信息的数据单位是(  )。 [1分]
文件
数据库
字段
记录
答案:
6、【 单选题
以下程序段的输出结果是(  )。
x=1
y=4
Do Until y>4
x= x * y
y=y+1
Loop
Print X [1分]
1
4
8
20
答案:
7、【 单选题
列表框中的项目保存在一个数组中,这个数组的名字是(  )。 [1分]
Column
Style
List
MultiSelect
答案:
8、【 单选题
支持子程序调用的数据结构是( )。 [1分]
队列
二叉树
答案:
9、【 单选题
以下叙述中错误的是(  )。 [1分]
一个工程中可以包含多个窗体文件
在一个窗体文件中用Private定义的通用过程能被其他窗体调用
在设计Visual Basic程序时,窗体、标准模块、类模块等需要分别保存为不同类型的磁盘文件
全局变量必须在标准模块中定义
答案:
10、【 单选题
有三个关系R、S和T如下:
   
则由关系R和S得到关系T的操作是(  )。 [1分]
自然连接
答案:
11、【 单选题
窗体上有一个名称为Command1的命令按钮,并有如下程序:
Private Sub Command1 Click(  )
x=14
Do While x>0
x=x-3
x=IIf(Int(x/5)=x/5,x+2,x)
Loop
Print x
End Sub
程序运行后,单击命令按钮Command1,输出结果为(  )。 [1分]
0
-l
-2
-_3
答案:
12、【 单选题
在窗体上画一个名为Command1的命令按钮,然后编写以下程序:
Private Sub Command1 Click(  )
Dim a(10)As Integer
Fork=10 To 1 Step-1
a(k)=20-2*k
Next k
k=k+7
Print a(k-a(k))
End Sub
运行程序,单击命令按钮,输出结果是(  )。 [1分]
18
12
8
6
答案:
13、【 单选题
在VB集成环境中要结束一个正在运行的工程,可单击工具栏上的一个按钮,这个按钮是(  )。
    [1分]
 
 
 
 
答案:
14、【 单选题
窗体上有一个名为Command1的命令按钮,并有如下程序:
Private Sub Corqmand1_Click(  )
Dim a As Integer,b As Integer
a=8
b=12
Print Fun(a,b);a;b
End Sub
Private Function Fun(ByVal a As Integer,b AS Integer)As Integer
a=a Mod 5
b=b\5
Fun=a
End Function
程序运行时,单击命令按钮,则输出结果是(  )。 [1分]
3 3 2
3 8 2
8 8 12
3 8 12
答案:
15、【 单选题
在设计阶段.当按Ctrl+R键时,所打开的窗口是(  )。 [1分]
代码窗口
工具箱窗口
工程资源管理器窗口
属性窗口
答案:
16、【 单选题
下列操作不能向工程中添加窗体的是(  )。 [1分]
执行“工程”菜单中的“添加窗体”命令
单击工具栏中的“添加窗体”按钮 .
右击窗体。在弹出的菜单中选择“添加窗体”命令
右击T程资源管理器,在弹出的菜单中选择“添加”命令,然后在下一级菜单中选择:“添加窗体”命令
答案:
17、【 单选题
索引属于(  )。 [1分]
模式
内模式
外模式
概念模式
答案:
18、【 单选题
设有如下程序:
Private Sub Form Click(  )
Dim s As Long,f As Long
Dim n As Integer,i As Integer
f=1
n=4
For i=1 To n
f=f*i
s=s+f
Next i
Print s
End Sub
程序运行后,单击窗体,输出结果是(  )。 [1分]
32
33
34
35
答案:
19、【 单选题
以下关于函数过程的叙述中错误的是( )。 [1分]
函数过程一定有返回值
函数过程一定有参数
函数过程可以在窗体模块和标准模块中定义
函数过程参数的类型与返回值的类型无关
答案:
20、【 单选题
设菜单编辑器中各菜单项的属性设置如下表所示:
   
针对上述属性设置,以下叙述中错误的是(  )。 [1分]
属性设置有错,存在“标题”与“名称”重名现象
运行程序,序号为“3”的菜单项不显示
运行程序,序号为“4”的菜单项不可用
运行程序,序号为“5”的菜单项前显示“√”
答案:
21、【 单选题
为了使标签具有“透明”的显示效果,需要设置的属性是(  )。 [1分]
Caption
Alignment
BackStyle
AuwSize
答案:
22、【 单选题
设窗体j.有一个通用对话框控件CD1,希望在执行下面程序时,打开如图所示的文件对话框:
   
Private Sub Command1=Click(  )
CD1.DialogTitle="打开文件"
CD1.InitDir="C:\"
CD1.Filter="所有文件|*.*| Word文档|*.doc|文本文件|*.txt" CD1.FileName=""
CD1.Acti_dj=1
If CD1.FileName=""Then
Print"未打开文件"
Else
Print"要打开文件"& CD1.FileName
End If
End Sub
但实际显示的对话框中列出了C.\下的所有文件和文件夹,“文件类型”一栏中显示的是“所有文件”。下面的修改方案中正确的是(  )。 [1分]
把CD1.Action=1改为CD1.Action=2
把“CD1.Filter=”,后面字符串中的“所有文件”改为“文本文件”
在语句CD1.Action=1的前面添加:CD1.FilterIndex=3
把CD1.FileName=""改为CD1.FileName=”文本文件”
答案:
23、【 单选题
假定已经在菜单编辑器中建立了窗体的弹出式菜单,其顶级菜单的名称为al,其“可见”属性为False。程序运行后,单击鼠标左键或右键都能弹出菜单的事件过程是(  )。 [1分]
Private Sub Form_MouseDown(Button As Integer,_Shift As Integer,X As Single,
Y As Single)
If Button=1 And Blltton=2Then
PopupMenu a1
End If
End Sub
Private Stlb Form_MouseDown(Button As Integer,_Shift As Integer,X As Single,
Y As Single)
PopupMenu a1
End Sub
Private Sub Form—MouseDown(Button As Integer,_Shift As Integer,X As Single,
Y As Single)
If Button=1 Then
PopupMenu a1
End If
End Sub
Private Sub Form MouseDown(Button As Integer,_Shift As Integer,X As Single,
Y As Single)
If Buttcn=2 Then
PopupMenu a1
End If
End Sub
答案:
24、【 单选题
下列叙述中正确的是( )。 [1分]
栈是“先进先出”的线性表
队列是“先进后出”的线性表
循环队列是非线性结构
有序线性表既可以采用顺序存储结构,也可以采用链式存储结构
答案:
25、【 单选题
在窗体上画一个图片框,再在图片框中画一个命令按钮,位置如图所示,则命令按钮的Top属性值是(  )。
    [1分]
200
300
500
700
答案:
26、【 单选题
设工程中有2个窗体:Form1、Form2、Form1为启动窗体。Form2中有菜单,其结构如表。要求在程序运行时,在Form1的文本框Text1中输人口令并按回车键(回车键的
ASCII码为13)后,隐藏Form1,显示Form2。若口令为“Teacher”,所有菜单项都可见;否则看不到“成绩录入”菜单项。为此.某人在Form1窗体文件中编写如下程序:
Private Sub Text 1 KeyPress(KeyAscii As Integer)
If KeyAscii=13 Then
If Text1.Text="Teacher"Then
Form2.input.Visible=True
Else
Form2.input.Visible False
End If
End If
Forml.Hide
Form2.Show
End Sub
菜单结构
标题 名称 级别
成绩管理 mark 1
成绩查询 query 2
成绩录入 mput 3
程序运行时发现刚输入口令时就隐藏了Form1,显示了Form2,程序需要修改。下面修改方案中正确的是(  )。 [1分]
把Form1中Text1文本框及相关程序放到Form2窗体中
把Form1.Hide、Form2.Show两行移动2个End If之间
把If KeyAscii=13 Then改为If KeyAseii="Teacher"Then
把2个Form2 input.Visible中的“Form2.”删去
答案:
27、【 单选题
在窗体上画2个命令按钮,名称分别为Command1、Command2,然后编写下列事件过程。
Const n=5.m=4
Dim a(m,n)
Private Sub+Command1 Click(  )
k=1
For i=1 To m
For j=1 To n
a(i,j)=k
k=k+1
Next j
Next i
End Sub
Private Sub Command2 Click(  )
summ=0
For i=1 To m
For j=1 To n
If i=1 Or i=m Then
summ=summ+a(i,j)
Else
If j=1 Or j=n Then
summ=summ+a(i,j)
End If
End If
Next j
Next i
Print summ
End Sub
过程Command1_Click(  )的作用是在二维数组a中存放1个m行n列的矩阵;过程Command2 Click(  )的作用是(  )。 [1分]
计算矩阵外围一圈元素的累加和
计算矩阵除外围一圈以外的所有元素的累加和
计算矩阵第1列和最后一列元素的累加和
计算矩阵第1行和最后一行元素的累加和
答案:
28、【 单选题
窗体Form1上有一个名称为Command1的命令按钮,以下对应窗体单击事件的事件过程是(  )。 [1分]
Private Sub Form1 Click(  )
End Sub•••
Private Sub Form Cliok(  )
End Sub•••
Private Sub Command1 click(  )
End Sub•••
Private Sub Command Click(  )
End Sub•••
答案:
29、【 单选题
在Visual Basic集成环境的设计模式下,用鼠标双击窗体上的某个控件打开的窗口是(  )。 [1分]
工程资源管理器窗口
属性窗口
工具箱窗口
代码窗口
答案:
30、【 单选题
有如下过程代码:
Sub var_dim(  )
static numa As Integer
Dim numb As Integer
numa=numa+2.
numb=numb+1
print numa;mub
End Sub
连续3次调剧var_dim过程,第3次调用时的输出是(  )。 [1分]
2 1
2 3
6 1
6 3
答案:
31、【 单选题
按照“后进先出”原则组织数据的数据结构是(  )。 [1分]
队列
双向链表
二叉树
答案:
32、【 单选题
以下关于KeyPress事件过程中参数KeyAscii的叙述正确的是(  )。 [1分]
KeyAscii参数是所按键的ASCII码
KeyAscii参数的数据类型为字符串
KeyAscli参数可以省略
KeyAscii参数是所按键上标注的字符
答案:
33、【 单选题
把数学表达式   表示为正确的VB表达式应该是(  )。 [1分]
(5x+3)/(2y-6)
x*5+3/2*y-6
(5*x+3)÷(2*y-6)
(x*5+3)/(y*2-6)
答案:
34、【 单选题
下列可作为Visual Basic变量名的是(  )。 [1分]
A#A
4ABC
?xy
Print.Text
答案:
35、【 单选题
同一概念在一处为实体而在另一处为属性或联系的冲突,在视图集成中称为(  )。 [1分]
命名冲突
概念冲突
域冲突
约束冲突
答案:
36、【 简答题
在名称为Form1的窗体中绘制一个名称为Label1的标签,其标题为空,BorderStyle属性为1;再添加一个名称为Timer1的计时器。请设置适当的控件属性,并编写适当的事件过程,使得运行时,标签中的数字每隔1秒钟加2。程序运行效果如图1—1所示。
   
注意:存盘时必须存放在考生文件夹下,工程文件名为Sj1.vbp,窗体文件名为Sj1.frm。 [10分]
解析:
计时器的IntErvAl属性用于设置每次触发计时器的TimEr事件的时间间隔,单位为毫秒。EnABlED 属性控制计时器是否开始启用,TruE表示启用,FAlsE表示不启用。根据题意,新建“标准EXE”工程,将一个标签和一个计时器控件添加到窗体中,标签的名称为LABEl1、CAption属性为“0”,TimEr的名称为TimEr1、IntErvAl属性为“1 000”。设置完成后双击CommAnD1进入代码窗口,编写如下代码:
   
37、【 简答题
在Form1的窗体上绘制一个命令按钮,名为Cmd1,标题为Display,按钮隐藏。编写适当的事件过程,使程序运行后,若单击窗体,则命令按钮出现;此时如果单击命令按钮,则在窗体上显示Visual Basic。程序运行情况如图3—2和图3-3所示。
   
注意:程序中不得使用任何变量;文件必须存放在考生文件夹中,工程文件名为sj2.vbp,窗体文件名为sj2.frm。 [8分]
解析:
①新建一个名为Form1的窗体。②单击工具箱中的CommAnDButton控件图标,在窗体上拖拉出一个命令按钮,在属性窗口设置该命令按钮名称为CmDl,CAption属性为DisplAy,VisiBlE属性为FAlsE。③打开代码窗口输入如下代码:
Private Sub Cmd1_(;lick()
Print"VisualBasic" '在窗体显示VisualBasic
End Sub
Private Sub Form_Click()
Cmd1.Visible=True'使命令按钮可见
End Sub
④按要求保存文件即完成本题。
38、【 简答题
在考生文件夹下有工程文件sj4.vbp及窗体文件sj4.frm,在窗体上有一个名称为HScroll1的水平滚动条(Min为400,Max为2000)和三个名称分别为Command1、Com
mand2和Command3,标题分别为“减200”、“显示”和“加200”的命令按钮。程序运行后,如果单击“减200”命令按钮,则滚动块向左滚动200单位;如果单击“显示”命令按钮,则显示当前滚动条的值;如果单击“加200”命令按钮,则滚动块向右滚动200单位。程序运行时效果如图5-4所示。
   
注意:请在有“?”的地方正确内容,然后删除“?”及代码前的所有注释符(即“”’号),但不能修改其他部分。编写程序使程序运行时满足下列的条件。存盘时不得改变文件名和文件夹。 [12分]
解析:
滚动条常用于取代数据的键盘输入,通过调整滚动条滑块的位置即可改变其VAluE属性的值。滚动条的MAx属性、Min属性限定了滚动条所能表示的最大值和最小值,即VAluE属性值的取值范围,在程序中改变VAluE属性的值,滚动条滑块会随之移动到相应位置。根据题意,将一个水平滚动条控件和3个命令按钮添加到窗体中,水平滚动条的名称为HSCroll1、Min属性为400、MAx属性为2 000,命令按钮的名称分别为CommAnD1、CommAnD2和CommAnD3,CAption属性分别为“减200”、“显示”和“加200”。双击CommAnD1进入代码窗口,编写如下代码:
   
39、【 简答题
在考生文件夹下有一个工程文件sj3.vbp,相应的窗体文件为sj3.{rm。其功能是在Text文本框中输入一个数N,单击命令按钮计算从0到N的所有素数的和,并在Text2中显示出来。运行程序如图7-3所示。
   
注意:去掉程序中的注释符“'”,把程序中的“?”改为正确的内容,使其实现上述功能,但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。 [12分]
解析:
判断一个数是否为素数的准则:就是看该数是否除了1及其本身外别无其他约数(即从2到n-1 之间没有可以将其整除的数)即可。根据题意,在窗体上添加两个Text控件和一个Command控件,Text的名称分别为Text1和Text2、Text属性均为空,Command的名称为Command1、Caption属性为“计算”。双击Command1命令按钮,编写如下代码(本书答案解析部分的代码中,若无特殊说明,加下划线的代码则表明是需要考生补充的代码):
   
40、【 简答题
在考生文件夹下有工程文件si5.vbp及窗体文件sj5.frm,该程序是不完整的。窗体Forml中有一命令按钮与一个水平滚动条。命令按钮的名称为Command1,标题为“移动”;水平滚动条的名称为HScroll1。单击“移动”按钮后,在弹出的对话框中输人数值。输入一个整数后,单击“移动”,滚动条中的滚动块移动到指定的刻度,如果超过了滚动条的最大刻度,则不再移动,并且在窗体上显示“输入的数值太大”,如果超过了滚动条的最小刻度,则不再移动,并且在窗体上显示“输入的数值太小”,如图1—5所示。
   
注意:请在有“?”的地方填入正确内容,然后删除“?”及代码前的所有注释符(即“¨’号),但不能修改其他部分。存盘时不得改变文件名和文件夹。 [18分]
解析:
本题主要考查滚动条的属性和IF语句的使用。滚动条常用于取代数据的键盘输入,通过调整滚动条滑块的位置即可改变其Value属性的值。滚动条的Max属性、Min属性限定了滚动条所能表示的最大值和最小值,即Value属性值的取值范围,在程序中改变Value属性的值,滚动条滑块会随之移动到相应位置。 InputBox()函数用于显示一个输入框,提示用户输入一个数据,该函数返回值默认为字符串类型。在代码窗口编写如下代码:
   
1
1页,共40个题库
1页,共40个题库
轻速云给您提供更好的在线考试系统服务!
推荐
推荐题库
众多企事业单位的信赖之选
36万+企事业单位的共同选择
查看更多合作案例
众多企事业单位的信赖之选
开始使用轻速云组织培训考试
四步组织一场考试答题,一键搭建企业培训平台
免费使用 免费使用 预约演示
咨询热线
400-886-8169
周一到周日 8:00-22:00
©2023 轻速云 苏ICP备16049646号-1 轻速云科技提供专业的在线考试系统、在线培训系统
联系我们
客服热线客服热线:400-886-8169 | 周一至周日 8:00-22:00
©2023 轻速云 苏ICP备16049646号-1
轻速云科技提供专业的在线考试系统、在线培训系统
在线咨询 400-886-8169