运行程序时发现圆立即移动到了右边的直线处，与题目要求的移动方式不符。为得到与题目要求相符的结果，下面修改方案中正确的是（　　）。
A．把计时器的Interval属性设置为1
B．把For k=line1．X1 To Line2．X1 Step 100和Next k两行删除
C．把For k=Line1．X1 To Line2．X1Step 100改为For k=Line2．X1 To Line1．X1 Step 100
D．把If Shape1．Left+Shepe1．Width
5、 以下关予菜单设计的叙述中错误的是（　　）。
A．各菜单项可以构成控件数组
B．每个菜单项可以看成是一个控件
C．设计菜单时，菜单项的“有效”选，即有效，表示该菜单项不显示
D．菜单项只响应单击事件

6、 在学生管理的关系数据库中，存取一个学生信息的数据单位是（　　）。
A．文件
B．数据库
C．字段
D．记录

7、 以下程序段的输出结果是（　　）。
x=1
y=4
Do Until y>4
  x= x * y
  y=y+1
Loop
Print X
A．1
B．4
C．8
D．20

8、 列表框中的项目保存在一个数组中，这个数组的名字是（　　）。
A．Column
B．Style
C．List
D．MultiSelect

9、 支持子程序调用的数据结构是（　）。
A．栈
B．树
C．队列
D．二叉树

10、 以下叙述中错误的是（　　）。
A．一个工程中可以包含多个窗体文件
B．在一个窗体文件中用Private定义的通用过程能被其他窗体调用
C．在设计Visual Basic程序时，窗体、标准模块、类模块等需要分别保存为不同类型的磁盘文件
D．全局变量必须在标准模块中定义

11、 有三个关系R、S和T如下：

则由关系R和S得到关系T的操作是（　　）。
A．自然连接
B．差
C．交
D．并

12、窗体上有一个名称为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，输出结果为（　　）。
A．0
B．-l
C．-2
D．-_3

13、 在窗体上画一个名为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
运行程序，单击命令按钮，输出结果是（　　）。
A．18
B．12
C．8
D．6

14、 在VB集成环境中要结束一个正在运行的工程，可单击工具栏上的一个按钮，这个按钮是（　　）。
A．
B．
C．
D．

15、窗体上有一个名为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
程序运行时，单击命令按钮，则输出结果是（　　）。
A．3 3 2
B．3 8 2
C．8 8 12
D．3 8 12

16、 在设计阶段．当按Ctrl+R键时，所打开的窗口是（　　）。
A．代码窗口
B．工具箱窗口
C．工程资源管理器窗口
D．属性窗口

17、 已知a=5．b=／，c=12，下列表达式的值为True的是（　　）。
A．a>b And cB．a>b Or cC．a>b Xor cD．a>a Eqv c
18、 下列选项中不属于结构化程序设计原则的是（　　）。
A．可封装
B．自顶向下
C．模块化
D．逐步求精

19、 下列操作不能向工程中添加窗体的是（　　）。
A．执行“工程”菜单中的“添加窗体”命令
B．单击工具栏中的“添加窗体”按钮 ．
C．右击窗体。在弹出的菜单中选择“添加窗体”命令
D．右击T程资源管理器，在弹出的菜单中选择“添加”命令，然后在下一级菜单中选择：“添加窗体”命令

20、 索引属于（　　）。
A．模式
B．内模式
C．外模式
D．概念模式

21、 以下叙述中错误的是（　　）。
A．在KeyPress事件过程中不能识别键盘的按下与释放
B．在KeyPress事件过程中不能识别回车键
C．在KeyDown和KeyUp事件过程中，将键盘输入的“A”和“a”视作相同的字母
D．在KeyDown和KeyUp事件过程中，从大键盘上输出的“1”和从右侧小键盘上输入的“1”被视作不同的字符

22、 设有如下程序：
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
程序运行后，单击窗体，输出结果是（　　）。
A．32
B．33
C．34
D．35

23、 以下关于函数过程的叙述中错误的是（　）。
A．函数过程一定有返回值
B．函数过程一定有参数
C．函数过程可以在窗体模块和标准模块中定义
D．函数过程参数的类型与返回值的类型无关

24、 设菜单编辑器中各菜单项的属性设置如下表所示：

针对上述属性设置，以下叙述中错误的是（　　）。
A．属性设置有错，存在“标题”与“名称”重名现象
B．运行程序，序号为“3”的菜单项不显示
C．运行程序，序号为“4”的菜单项不可用
D．运行程序，序号为“5”的菜单项前显示“√”

25、 为了使标签具有“透明”的显示效果，需要设置的属性是（　　）。
A．Caption
B．Alignment
C．BackStyle
D．AuwSize

26、 设窗体j．有一个通用对话框控件CD1，希望在执行下面程序时，打开如图所示的文件对话框：

Private Sub Command1=Click（　　）
CD1．DialogTitle="打开文件"
CD1．InitDir="C：＼"
CD1．Filter="所有文件|*．*| Word文档|*．doc|文本文件|*．txt" CD1．FileName=""
CD1．Action=1
If CD1．FileName=""Then
Print"未打开文件"
Else
Print"要打开文件"& CD1．FileName
End If
End Sub
但实际显示的对话框中列出了C．＼下的所有文件和文件夹，“文件类型”一栏中显示的是“所有文件”。下面的修改方案中正确的是（　　）。
A．把CD1．Action=1改为CD1．Action=2
B．把“CD1．Filter=”，后面字符串中的“所有文件”改为“文本文件”
C．在语句CD1．Action=1的前面添加：CD1．FilterIndex=3
D．把CD1．FileName=""改为CD1．FileName=”文本文件”

27、 假定已经在菜单编辑器中建立了窗体的弹出式菜单，其顶级菜单的名称为al，其“可见”属性为False。程序运行后，单击鼠标左键或右键都能弹出菜单的事件过程是（　　）。
A．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
B．Private Stlb Form_MouseDown(Button As Integer，_Shift As Integer，X As Single，
    Y As Single)
      PopupMenu a1
    End Sub
C．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
D．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

28、下列叙述中正确的是（　）。
A．栈是“先进先出”的线性表
B．队列是“先进后出”的线性表
C．循环队列是非线性结构
D．有序线性表既可以采用顺序存储结构，也可以采用链式存储结构

29、 在窗体上画一个图片框，再在图片框中画一个命令按钮，位置如图所示，则命令按钮的Top属性值是（　　）。

A．200
B．300
C．500
D．700

30、 设工程中有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
菜单结构

程序运行时发现刚输入口令时就隐藏了Form1，显示了Form2，程序需要修改。下面修改方案中正确的是（　　）。
A．把Form1中Text1文本框及相关程序放到Form2窗体中
B．把Form1．Hide、Form2．Show两行移动2个End If之间
C．把If KeyAscii=13 Then改为If KeyAseii="Teacher"Then
D．把2个Form2 input．Visible中的“Form2．”删去

31、 在窗体上画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（　　）的作用是（　　）。
A．计算矩阵外围一圈元素的累加和
B．计算矩阵除外围一圈以外的所有元素的累加和
C．计算矩阵第1列和最后一列元素的累加和
D．计算矩阵第1行和最后一行元素的累加和

32、 窗体Form1上有一个名称为Command1的命令按钮，以下对应窗体单击事件的事件过程是（　　）。
A．Private Sub Form1 Click（　　）
End Sub···
B．Private Sub Form Cliok（　　）
End Sub···
C．Private Sub Command1 click（　　）
End Sub···
D．Private Sub Command Click（　　）
End Sub···

33、 在Visual Basic集成环境的设计模式下，用鼠标双击窗体上的某个控件打开的窗口是（　　）。
A．工程资源管理器窗口
B．属性窗口
C．工具箱窗口
D．代码窗口

34、 有如下过程代码：
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次调用时的输出是（　　）。
A．2 1
B．2 3
C．6 1
D．6 3

35、 按照“后进先出”原则组织数据的数据结构是（　　）。
A．队列
B．栈
C．双向链表
D．二叉树

36、 以下关于KeyPress事件过程中参数KeyAscii的叙述正确的是（　　）。
A．KeyAscii参数是所按键的ASCII码
B．KeyAscii参数的数据类型为字符串
C．KeyAscli参数可以省略
D．KeyAscii参数是所按键上标注的字符

37、 把数学表达式表示为正确的VB表达式应该是（　　）。
A．(5x+3)／(2y-6)
B．x*5+3／2*y-6
C．(5*x+3)÷(2*y-6)
D．(x*5+3)／(y*2-6)

38、 下列可作为Visual Basic变量名的是（　　）。
A．A#A
B．4ABC
C．?xy
D．Print．Text

39、 阅读程序：
Private Sub Form Click（　）
a=0
For j=1 To 15
a=a+j Mod 3
Next j
Print a
End Sub
程序运行后，单击窗体，输出结果是（　）。
A．105
B．1
C．120
D．15

40、同一概念在一处为实体而在另一处为属性或联系的冲突，在视图集成中称为（　　）。
A．命名冲突
B．概念冲突
C．域冲突
D．约束冲突

二、基本操作题（共18分）
41、在名称为Form1的窗体中绘制一个名称为Label1的标签，其标题为空，BorderStyle属性为1；再添加一个名称为Timer1的计时器。请设置适当的控件属性，并编写适当的事件过程，使得运行时，标签中的数字每隔1秒钟加2。程序运行效果如图1—1所示。
注意：存盘时必须存放在考生文件夹下，工程文件名为Sj1．vbp，窗体文件名为Sj1．frm。


42、 在Form1的窗体上绘制一个命令按钮，名为Cmd1，标题为Display，按钮隐藏。编写适当的事件过程，使程序运行后，若单击窗体，则命令按钮出现；此时如果单击命令按钮，则在窗体上显示Visual Basic。程序运行情况如图3—2和图3-3所示。

注意：程序中不得使用任何变量；文件必须存放在考生文件夹中，工程文件名为sj2．vbp，窗体文件名为sj2．frm。

44、 在考生文件夹下有一个工程文件sj3．vbp，相应的窗体文件为sj3．{rm。其功能是在Text文本框中输入一个数N，单击命令按钮计算从0到N的所有素数的和，并在Text2中显示出来。运行程序如图7-3所示。

注意：去掉程序中的注释符“'”，把程序中的“?”改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。

四、综合应用题（共18分）
45、在考生文件夹下有工程文件si5．vbp及窗体文件sj5．frm，该程序是不完整的。窗体Forml中有一命令按钮与一个水平滚动条。命令按钮的名称为Command1，标题为“移动”；水平滚动条的名称为HScroll1。单击“移动”按钮后，在弹出的对话框中输人数值。输入一个整数后，单击“移动”，滚动条中的滚动块移动到指定的刻度，如果超过了滚动条的最大刻度，则不再移动，并且在窗体上显示“输入的数值太大”，如果超过了滚动条的最小刻度，则不再移动，并且在窗体上显示“输入的数值太小”，如图1—5所示。

注意：请在有“?”的地方填入正确内容，然后删除“?”及代码前的所有注释符(即“¨’号)，但不能修改其他部分。存盘时不得改变文件名和文件夹。

只看不练，假把式······

进入233题库【模拟考场】，在线做题测试，在线查看成绩及详细答案解析！

马上进入

题库优势

更好的做题体验

233计算机二级题库有四种做题模式，可选择自己的喜欢和当前适合的做题模式进行训练。

更多的习题、真题

233计算机二级题库题量储备百万道，包含历年真题，模拟试题等题型，题题结合考试大纲贴近考试 考点。

更专业的试题解析

233计算机二级题库结合考试大纲，将各试题划分了详细的章节知识，更全面的详细的展示答案解析。

进入计算机二级模拟考场>>