若要按图2所示的规律继续输出数据，则接在上述程序段后面的程序段应该是（　　）。
A．For i=1 To 5
For j=1 To 3
Print a(j，i)；
Next
Print
Next
B．For i=1 T0 3
For j=1 To 5
Print a(j，i)；
Next
Print  Next
C．For j=l To 5
For i=1 To 3
Print a(j，i)；
Next
Print
Next
D．For i=1 To 5
For=1 To 3
Print a(i，j)：
Next
Print
Next

17、 计算的近似值的一个公式是π／4=1-(1／3)+(1／5)-(1／7)+…+(-1)n-1(1／2n -1)。
某人编写下面的程序用此公式计算并输出的近似值：
Private Sub Cornmand1 Click（　　）
P1=1
Sign=1
n=20000
For k=3 To r
Sign=-Sign
PI=PI+SiRn／k
Next k
Print PI*4
End Sub
运行后发现结果勾3．22751，显然，程序需要修改。下面修改方案中正确的是（　　）。
A．把For k=3 To n改为For k=1 To n
B．把n=20000改为n=20000000
C．把For k=3 To n改为For k=3 To n Step 2
D．把PI=1改为P1=0

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

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

19、 在Visual Basic集成环境中，可以列出工程中所有模块名称的窗口是（　　）。
A．工程资源管理器窗口
B．窗体设计窗口
C．属性窗口
D．代码窗口

20、设在工程文件中有一个标准模块，其中定义了下列记录类型：
Type Books
Name As String*10
TelNum As String*20
End，Type
在窗体上画一个名为Command1的命令按钮，要求当执行事件过程Command1 Click 时，在顺序文件Person．txt中写入一条Books类型的记录。下列能够完成该操作的事件过程是（　）。
A．Private Sub Command1 Click（　）
Dim B AS Books
Open"Person txt"For Output As#1
Name=InputBox(”输入姓名”)
relNum=lnputBox(”输入电话号码”)
Wlite#1 B Name，B TelNum
Ch,se#1
End Sub
B．Private Sub Command1 Click（　）
Dim B AS Books
Open"Person txt"For Input As#1
>Name=InputBox("输入姓名")
TelNum=InputBox("输入电话号码")
Print#1，B．Name，B．TelNam
Close#1
End Sub
C．Private Sub Command1 Click（　）
Dim BAS Books
Open"Person txt"For Output As#1
Name=InputBox("输入姓名")
TelNum=InputBox("输入电话号码")
Write#1，B
Close#1
End Sub
D．Private Sub Commandl Click（　）
Open"Person txt"For Input As#1
Name=lnputBox("输入姓名")
TelNum=lnputBox("输入电话号码")
Prim#1 Name TelNum
Close#1
End Sub

21、 使用驱动器列表框Drive1、目录列表框Dir1、文件列表框File1时，需要设置控件的同步，以下能够正确设置两个控件同步的命令是（　　）。
A．Dir1．Path=Drive1．Path
B．File1．Path=Dri1．Path
C．File1．Path=Drive1．Path
D．Drive1．Drive=Dri1．Path

22、 在窗体上画一个命令按钮(名称为Command1)，并编写下列代码：
Function Fun1(ByVa1 a As Integer，b As Integer)As Integer
Dim t As Integer
t=a-b
b=t+a
Fun1=t+b
End Function
Private Sub Command1Click（　）
Dim X As Integer
x=10
Print Fun1(Vun1(X，(Fun1(x，x-1)))，x-1)
End Sub
程序运行后，单击命令按钮，输出结果是（　）。
A．10
B．0
C．11
D．21

23、 若看到程序中确以下事件过程，则可以肯定的是，当程序运行时（　　）。
Private Sub Click—MouseDown(Button As Integer，Shift As Integer，X As Single，Y
As Single)
Print"VB Program"
End Sub
A．用鼠标左键单击名称为“Command1”的命令按钮时，执行此过程
B．用鼠标左键单击名称为“MouseDown”的命令按钮时，执行此过程
C．用鼠标右键单击名称为“MouseDown”的命令按钮时，执行此过程
D．用鼠标左键或右键单击名称为“Click”的命令按钮时，执行此过程

24、 用来设置文字字体是否斜体的属性是（　　）。
A．FontUnderline
B．FontBold
C．FontSlope
D．FontItalic

25、在窗体上有一个文本框Text1，Text属性值为空，然后编写下列事件过程：
Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim str As String，n As Integer
str=UCase(Chr(KeyAscii))
n=Len(str)。
Text1．Text=String(n，str)
End Sub
程序运行后，若在文本框中输入单字母“p”，则在文本框Text1中显示的内容为（　　）。
A．A.pp
B.pP
C.ｐｐ
D.Pp
B．

26、 设窗体的名称为Form1，标题为Win，则窗体的MouseDown事件过程的过程名是（　　）。
A．Form1 MouseDown
B．Win MouseDown
C．Form MouseDown
D．MouseDown_Form1

27、 对于循环队列，下列叙述中正确的是（　　）。
A．队头指针是固定不变的
B．队头指针一定大于队尾指针
C．队头指针一定小于队尾指针
D．队头指针可以大于队尾指针，也可以小于队尾指针

28、 下列叙述中错误的是（　）。
A．软件测试的目的是发现错误并改正错误
B．对被调试的程序进行“错误定位”是程序调试的必要步骤
C．程序调试通常也称为Debug
D．软件测试应严格执行测试计划，排除测试的随意性

29、 在窗体上画一个命令按钮，名称为Command1，然后编写下列代码：
Option Base 0
Private Sub Command1 Click（　）
Dim A1(4)As Integer，A2(4)As Integer
For k=0 To 2
A1(k+1)=InputBox(”请输入一个整数”)
A2(3-k)=A1(k+1)
Next k
Print A2(k)
End Sub
程序运行后，单击命令按钮，在输入对话框中依次输入2、4、6，则输出结果为（　）。
A．0
B．1
C．2
D．3

30、 下列各控件不包含滚动条的控件是（　　）。
A．Lis tBox
B．ComboBox
C．TextBox
D．Label

31、 软件按功能可以分为：应用软件、系统软件和支撑软件(或工具软件)。下列属于应用软件的是（　）。
A．编译程序
B．操作系统
C．教务管理系统
D．汇编程序

32、 窗体上有名称为Option1的单选按钮，且程序中有语句：
If（　　）ption1．Value—True Then
下面语句中与该语句不等价的是（　　）。
A．If Option1．Value Then
B．If Option1一True Then
C．If Value=True Then
D．If Option1 Then

33、 窗体上有一个名称为CommonDialog1的通用对话框，一个名称为Command1的命令按钮，并有如下事件过程：
Private Sub Command1_Click（　　）
  CommonDialog．DefaultExt="doc"
  CommonDialog．FileName="VB．txt"
  CommonDialog．Filter="All(*．*)|*．*|Word|．Doc|"
  CommonDialog．FilterIndex=1
  CommonDialog．ShowSave
End Sub
运行上述程序，如下叙述中正确的是（　　）。
A．打开的对话框中文件“保存类型”框中显示All(*．*)
B．实现保存文件的操作，文件名是VB．txt
C．DefaultEx1属性与FileName属性所指明的文件类型不一致，程序出错
D．对话框的Fiber属性没有指出txt类型，程序运行出错

34、 树是结点的集合，它的根结点的数目是（　　）。
A．有且只有1个
B．1或多于1
C．0或1
D．至少有2个

35、 在窗体上建立通用对话框需要添加的控件是（　　）。
A．Data控件
B．Form控件
C．CommonDialog控件
D．VBComboBox控件

36、 下述关于数据库系统的叙述中，正确的是（　　）。
A．数据库系统减少了数据冗余
B．数据库系统避免了一切冗余
C．数据库系统中数据的一致性是指数据类型一致
D．数据库系统比文件系统能管理更多的数据

37、 对长度为n的线性表进行顺序查找，在最坏情况下需要比较的次数为（　　）。
A．125
B．n／2
C．n
D．n+1

38、 窗体上有一-个Text1文本框，一个Command1命令按钮，并有以下程序：

Private Sub Command1 Click（　　）
Dim n
If Text1．Text<>"123456"Then
n=n+1
Print"口令输入错误”＆n＆”次"
End If
End Sub

希望程序运行时得到左图所示的效果，即：输入口令，单击“确定口令’’命令按钮，若输入的口令不是“123456”，则在窗体上显示输入错误口令的次数。但上面的程序实际显示的是右图所示的效果，程序需要修改。下面修改方案中正确的是（　　）。
A．在Dim n语句的下面添加一句：n=0
B．把Print“口令输入错误”＆n＆“次”改为Print“口令输入错误”+n+“次”
C．把Print“口令输入错误”＆n＆“次”改为Print“口令输入错误”＆Str(n)＆“次”
D．把Dim n改为Static n

39、 设a=5，b=6，c=7，d=8，执行语句x=IIf((a>b)And(c>d)，10，20)后，X的值是（　　）。
A．10
B．20
C．30
D．200

40、 有弹出式菜单的结构如右表，程序运行时，单击窗体则弹出如下图所示的菜单。下面的事件过程中能正确实现这一功能的是（　　）。
A．Private Sub Vorm Click（　　）
PopupMenu cut
End Sub
B．Private Sub Command1 Click（　　）
PopupMenu edit
End Sub
C．Private Sub Form Click（　　）
PopupMenu edit
End Sub
D．Private Sub Form Click（　　）
PopupMenu cut
PopupMenu paste
End Sub

二、基本操作题（共18分）
41、

在窗体上建立一个二级菜单，该菜单含有“文件”和“编辑”(名称分别为vbFile和vbEdit)两个主菜单项，其中“文件”菜单包括“打开”、“保存”和“关闭”三个子菜单项(名称分别为vbOpen、vbSave和vbClose)，如图8-1所示。只建立菜单，不必定义其事件过程。

注意：保存时必须存放在考生文件夹下，窗体文件名为Sj1．frm，工程文件名为Sj1．vbp。

42、

在名称为Form1的窗体上创建两个名称分别为Option1和Option2，标签分别为“教授”和“研究员”的单选按钮，再建立一个名称为Label1的标签，实现如下功能：
当选中“教授”时，标签上显示“博士学位以上”，如果选中“研究员”，则标签上显示“硕士学位以上”，结果如图7-1所示。
注意：存盘时必须存放在考生文件夹下，工程文件名为Sj1．vbp，窗体文件名为Sj1．frm。


三、简单应用题（共24分）
43、 在考生文件夹下有一个工程文件sj4．vbp与窗体文件sj4．frm，在Form1的窗体中有一个标签、两个命令按钮和一个计时器。要求程序运行时实现以下功能：单击“开始”按钮，就开始倒计数，每隔1秒，文本框中的数减1；单击“停止”按钮，则停止计数，初始计数为60，当计数到0时，则重新从60开始倒计数。如图2—4所示。

注意：修改适当的控件的属性，并去掉程序中的注释符“'”，把程序中的“?”改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。考生完成程序编写后，将-工程文件与窗体文件保存到考生文件夹下，文件名分别为sj4．vbp与sj4．frm。

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

四、综合应用题（共18分）
45、 在考生文件夹中有工程文件sj5．vbp及其窗体文件Sj5．frm，该程序是不完整的，请将程序补充完整。在名称为Form1的窗体上有两个命令按钮，其名称分别为Command1和Com mand2，标题分别为“计算”和“保存”；两个单选按钮，名称分别为Option1和Option2，标题分别为“50～150的素数”和“200～350的素数”；一个文本框，名称为Text1，程序运行界面如图8-5 所示。如果选中一个单选按钮并单击“计算”按钮，则计算出该单选按钮标题所指明的所有素数之和，并在文本框中显示出来。如果单击“保存”按钮，则把计算结果存人out5．txt文件中，该文件必须放在考生文件夹中。(在考生文件夹中有标准模块mode．bas，其中的isPrimeNum 函数可以判断整数x是否为素数，如果是素数，则函数返回True，否则返回False，而writeData 过程可以把结果存入指定的文件，考生可以将该模块文件添加到自己的工程中。)

注意：存盘时不得改变文件名和文件夹。必须把其中一种素数之和存入考生文件夹下的out5．txt文件中，否则没有成绩。保存程序时必须存放在考生文件夹下，窗体文件名为sj5．frm，工程文件名为sj5．vbp。

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

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

马上进入

题库优势

更好的做题体验

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

更多的习题、真题

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

更专业的试题解析

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

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