郑州大学2013年vb考试题加答案

1、下列叙述中正确的是( c )。（1分）
A、只有窗体才是Visual Basic中的对象
B、只有控件才是Visual Basic中的对象 C、窗体和控件都是Visual Basic中的对象
D、窗体和控件都不是Visual Basic中的对象
2、下列叙述中，正确的是( a )。（1分）
A、事件可以由用户触发，也可以由系统触发
B、Visual Basic应用程序只能以解释方式执行 C、保存Visual Basic程序时，只需保存窗体文件即可
D、所有控件都有DblClick事件
3、下列叙述中，错误的是( a )。（1分）
A、一条语句可以分为多行书写，但要在上行末加上VBCrLf
B、在同一行上书写多条语句，应在两两语句中加上:号 C、可以用Rem或'注释单行语句
D、VB程序代码不区分字母的大小写
4、有程序代码如下：Text1.Text = "郑州大学"，则Text1、Text 、"郑州大学"分别代表( c )。（1分）
A、对象、值、属性
B、对象、方法、属性 C、对象、属性、值
D、属性、对象、值
5、下列关于VB编码规则的叙述中，错误的是( b )。（1分）
A、一条语句可以分为多行书写
B、多条语句可以书写在同一行上，每条语句之间用逗号隔开 C、可以用Rem<注释内容>给语句或程序段加上注释，以提高可读性
D、不区分程序代码中变量名的字母的大小写
6、Visual Basic程序中分隔各语句的字符是( )。（1分）
A、'
B、: C、\
D、_
7、以下关于事件的叙述中，错误的是( )。（1分）
A、事件是系统定义的能被对象识别的动作
B、事件可分为用户事件与系统事件 C、VB为每个对象设置好各种事件，并定义好事件过程的过程名
D、VB中对象的事件就是对象的方法
8、如果Visual Basic环境中缺少某个窗口，一般应该从主菜单的( )下拉菜单中寻找并打开。（1分）
A、编辑
B、文件 C、调试
D、视图
9、在设计阶段，当双击窗体上的某个控件时，所打开的窗口是( )。（1分）
A、工程资源管理器窗口
B、工具箱窗口 C、代码窗口
D、属性窗口
10、刚建立一个新的标准EXE工程后，没有出现在工具箱中的控件是( )。（1分）
A、单选按纽
B、图片框 C、通用对话框
D、文本框
11、在Visual Basic的中断模式下，按下功能键F8，则( )。（1分）
A、执行中断时的下一个语句
B、执行中断时的下一个模块 C、退出Visual Basic
D、结束当前的运行
12、下列不能打开属性窗口的操作是( )。（1分）
A、执行“视图”菜单中的“属性窗口”命令
B、按F4键 C、按Ctrl+T
D、单击工具栏上的“属性窗口”图标
13、在设计窗体时，如果窗体上没有显示网格会感到不方便，( )可以使网格出现。（1分）
A、使用“编辑”菜单上的相

关命令
B、使用“格式”菜单上的相关命令 C、使用“工具”菜单上的相关命令
D、使用“工程”菜单上的相关命令显示网络操作是:Tools -> Options -> General-> Show Grid(打上勾即可)

14、在VB的工程资源管理器窗口中不可能存在的文件类型是( )。（1分）
A、*.frm
B、*.vbp C、*.gif
D、*.bas
15、工程资源管理器窗口上有三个按钮，( )不在其中。（1分）
A、“查看代码”按钮
B、“查看对象”按钮 C、“切换文件夹”按钮
D、“启动”按钮
16、存储一个VB工程时，可能产生多个文件，扩展名.bas表明是( )文件 。（1分）
A、窗体
B、标准模块 C、类模块
D、资源
17、启动VB应用程序后，就意味着可以建立一个新( )。（1分）
A、文件
B、窗体 C、程序
D、工程
18、工程文件的扩展名是( )。（1分）
A、.vbp
B、.frm C、.bas
D、.frx
19、窗体文件中的信息是( )和其他信息。（1分）
A、窗体的形状及其特征
B、窗体中控件的形状及其特性 C、窗体及其控件的属性
D、运行窗体的代码
20、下列叙述中，错误的是( )。（1分）
A、VB 6.0是事件驱动可视化编程工具
B、VB 6.0的应用程序没有明显的开始和结束语句 C、VB 6.0中控件的所有属性均可在属性窗口中设置
D、VB 6.0通过工具菜单的选项实现显示代码的字体大小
21、Visual Basic有完备的Help联机帮助功能，可以通过按下功能键( )得到帮助。（1分）
A、F9
B、F8 C、F1
D、F5
22、下列叙述中，错误的是( )。（1分）
A、函数过程的函数名有返回值
B、窗体可以作为过程的参数 C、数组作为过程的参数时，使用“传地址”方式
D、只有函数过程能够将过程中处理的数据传回到主调程序中
23、数组A在子过程或函数中定义为形参，正确的语句是( )。（1分）
A、Private Sub sele(ByVal A( ) As integer)
B、Private Function sale(A() As Integer) As String C、Private Sub sale(A() As Integer) As Integer
D、Private Sub sale(A(i) As Integer)
24、在VB中，用数组作为参数时，形参与实参结合的方式( )。（1分）
A、只能采用传地址的方式
B、只能采用传值的方式 C、既可以采用传地址的方式，也可以采用传值的方式
D、既不能采用传地址的方式，也不能采用传值的方式
25、可以在窗体模块的声明段中进行( )的声明。（1分）
A、全局数组
B、全局常量 C、全局变量
D、全局自定义数据类型
26、可以在窗体模块的通用声明段中声明( )。（1分）
A、全局变量
B、全局常量 C、全局数组
D、全局用户自定义类型
27、窗体上有命令按钮Command1和Command2，请阅读下列程序： Dim a As Integer: Private Sub Command1_Click() : a = a + 3 : Pr

int a: End Sub: Private Sub Command2_Click() : a = a + 2 : Print a: End Sub，运行时，分别单击Command1和Command2按钮，输出的结果为( )。（1分）
A、3 5
B、3 2 C、2 5
D、2 3
28、在过程内定义的变量（不在语句块中）为( )。（1分）
A、全局变量
B、模块变量 C、局部变量
D、静态变量
29、定义一个窗体级变量主要是因为( )多个程序都需要用到同一个相关数据。（1分）
A、模块内
B、模块外 C、窗体内
D、窗体外
30、由( )关键字声明的局部变量在整个程序运行时一直存在。（1分）
A、Dim
B、Public C、Static
D、Private
31、定义过程的局部变量时，用关键字( )表示被定义的变量在调用离开过程后仍保留其值。（1分）
A、Dim
B、ByVal C、Static(静态变量在每次调用后保留原来的值)
D、Public
32、下列说法中，不正确的说法是( )。（1分）
A、一般用Dim声明窗体级变量
B、声明窗体级变量的位置可以任意 C、不能在“通用声明”段中为变量赋值
D、不能在窗体的某个子程序中定义窗体级变量
33、定义通用过程Sub f(x As Integer, y As Integer, z As Integer)，再设a、b、c为整型变量，则调用该过程使用的语句为( )。（1分）
A、Call f
B、Call f(a,b) C、f(a,b,c)
D、f a,b,c
34、下列说法中，正确的说法是( )。（1分）
A、在定义子过程时，应至少有一个形式参量
B、若形参名字的前面没有ByVal，则默认传值 C、只要使用了子过程，就一定会返回多个结果值
D、在函数过程体中，函数过程名至少被赋值一次
35、下面有关过程定义的语句中，正确的语句是( )。（1分）
A、Function f1(f1) 参数不能与函数名相同，否则会提示"当前范围内的声明重复"
B、Sub f1(ByVal a())数组参数必须为ByRef C、Function f1(ByVal x)
D、Sub f1(n) As Integer把 As Integer 去掉
36、Function函数过程用的退出语句是( )。（1分）
A、End Sub
B、Exit Sub C、End Function
D、Exit Function
37、有过程定义如下：Private Sub fun(ByVal x As Integer, ByVal y As Integer, ByVal z As Integer), 则下列调用语句不正确的是( )。（1分）
A、Call Fun(a,b,c)
B、Call Fun(3,4,c) C、Fun a,,5
D、Fun 3,4,c
38、以下叙述中，错误的是( )。（1分）
A、一个工程中只能有一个Sub Main过程
B、窗体的Show方法的作用是将指定的窗体装入内存并显示该窗体 C、窗体的Hide方法和Unload方法的作用完全相同
D、若工程文件中有多个窗体，可以根据需要指定一个窗体为启动窗体
39、以下可以实现卸载窗体Form1的语句是( )。（1分）
A、End
B、Form1.Cls (清除文字,图形) C、Form1.Hide(隐藏)
D、Unload Form1
40、多窗体程序由多个窗体组成。在

默认情况下，Visual Basic在应用程序执行时，总是把( )指定为启动窗体。（1分）
A、包含控件最多的
B、包含控件最少的 C、设计时的第一个窗体
D、命名为Form1的
41、假定一个工程有三个窗体，下列说法中，正确的说法是( )。（1分）
A、该工程包含三个窗体文件
B、该工程包含一个窗体文件 C、该工程的窗体文件必须和工程文件在同一文件夹中
D、该工程的窗体文件不能小于3k
42、窗体的显示和隐藏方法是( )。（1分）
A、print，hide
B、move，hide C、show，hide
D、show，Print
43、以下叙述中，错误的叙述是( )。（1分）
A、打开一个工程时，系统自动装入与该工程有关的窗体、标准模块等文件
B、保存Visual Basic程序时，应分别保存窗体文件及工程文件 C、Visual Basic应用程序只能以解释方式执行
D、事件可以由用户引发，也可以由系统引发
44、程序运行时，不是由系统触发的事件是( )。（1分）
A、Initialize
B、Click C、Load
D、Activate
45、把一个窗体装入内存的语句是( )。（1分）
A、Show
B、Load C、Input
D、Activate
46、在Visual Basic中，按文件的编码方式的不同，可将文件分为( )。（1分）
A、数据文件和程序文件
B、文本文件和数据文件 C、顺序文件和随机文件
D、ACSII文件和二进制文件
47、下列关于顺序文件的描述，错误的是( )。（1分）
A、顺序文件一般用顺序方式进行读写
B、顺序文件不能用二进制方式进行读写 C、顺序文件可以用字符型变量进行读写
D、顺序文件可以用数字型变量进行读写
48、下列关于Close的说法中，错误的是( )。（1分）
A、Close用来关闭文件
B、Close可以释放与文件相关联的文件号 C、当读写操作结束后，必须将文件关闭
D、Close中的“文件号”是必选的
49、设有语句Open "c:\Datafile.txt" For Input As #2，以下叙述中，错误的是( )。（1分）
A、该语句以文件号2打开文件
B、该语句可以在"c:\"下创建一个名为Datafile.txt的文件 C、执行该语句后可以从文件Datafile.txt中读取数据
D、如果"c:\Datafile.txt"文件不存在，系统显示出错信息
50、要打开在C盘根目录下一个名为StuData.dat的顺序文件用于追加写入，应使用语句( )。（1分）
A、Open "C:\StuData.dat" For Input As #2
B、Open "C:\StuData.dat" For Output As #2 C、Open "C:\StuData.dat" For Append As #2
D、Open "StuData.dat" For Output Access Write As #2


二、填空题（7道小题，共30分）
1、* 判断输入的正整数n是否为素数。
* 程序代码如下：
Private Sub Command1_Click（）
Dim k%,n%
= inputbox(“请输入正整数n”)
For =2 to n-1
If n mod k=0 then exit for
Next k
If k

Print n;”不是素数”
Else
Print n;”是素数”
End if
End sub





（4分）

________________________________________
2、* 使用双循环实现正三角形输出
*
$$$
*****
$$$$$$$
*********
程序代码如下：
Private Sub Command1_Click()
For = 1 To 5
Print Tab(25 - i )
For j = 1 To 2 * i - 1
If i Mod 2 = 0 Then Print "$"; Else Print "*";
Next j
Print
Next i
End Sub



（4分）

________________________________________
3、* 用随机函数产生n个10～99之间的随机整数存入一维数组A，通过键盘输入X，然后在数组中查找。如果找到了，就把这个数从数组中删去；如果没有找到，则给出“无可删除的元素”信息。
Private Sub Form_Click()
Dim n As Integer, a(100) As Integer
Dim x As Integer, i As Integer
Dim k As Integer, flag As Boolean
n = InputBox("N=")
For i = 1 To
a(i) = Int(90 * Rnd + 10)
Print a(i);
Next i：Print
x = InputBox("X=") : Print "X="; x
flag = False
For i = 1 To n
If a(i) = x Then
= True
k = i
Exit For
End If
Next i
If Not flag Then
Print "无可删除的元素"
Else
For i = k To n - 1
a(i) = a(i + 1)
Next i: n = n - 1
For i = 1 To n
Print a(i);
Next i
End If
End Sub


（4分）

________________________________________
4、* 使用冒泡排序法，将一维数组A按从大到小排序（降序）。
Private Sub Command启动_Click()
Dim a(10) As Integer
Dim i As Integer, j As Integer, t As Integer
For i = 1 To 10
a(i) = Int(90 * ) + 10
Print a(i);
Next i: Print
For i = 10 To 2 Step
For j = 1 To i - 1
If a(j) < a(j + 1) Then
t = a(j): a(j) = a(j + 1): a(j + 1) = t
End If
Next j
Next i
For i = 1 To 10
Print a(i);
Next i: Print
End Sub



（4分）

________________________________________
5、* 随机生成一个4行4列元素为三位整数的是下三角方阵，计算所有元素之和。
程序代码如下：
Private Sub Command1_Click()
Dim R(1 To 4, 1 To 4) As Integer
Dim i%, j%, Sum%
Sum = 0
For i = 1 To 4
For j = 5 - i To 4
R(i, j) = Int(900 * Rnd + 100)
Print Tab((j - 1) * 6); R(i, j);
= + R(i, j)
Next j
Print
Next i
Print Sum
End Sub




（4分）

________________________________________
6、* 设计一个子过程显示杨辉三角形的前n（2* 1
*

1 1
* 1 2 1
* 1 3 3 1
* 1 4 6 4 1
* 1 5 10 10 5 1
* 程序代码如下：
Private Sub (ByVal n%)
Dim s(20,20) As Long
Dim i%,j%
For i= 1 To n
s(i,1)=1
s(i,i)=1
Next i
For i= 3 To n
For j= 2 To i-1
s(i,j)=s(i-1,j-1)+ s(i-1,j)
Next j
Next i
For i= 1 To n
For j= 1 To
Print s(i,j);
Next j
Print
Next i
End Sub




（4分）

________________________________________
7、* 设计一字号、字体变化程序,如图{<3-1.jpg>}
* 点击窗体中命令按钮“字号变大”，标签1中显示文字变大，并且命令按钮变成“字体变化”；当点击命令按钮“字体变化”，标签1中显示文字字体变成斜体的“楷体GB_2312”, 同时命令按钮上文字变成“ok了”。
'3-1.jpg
Private Sub Form_Load()
Label1 = "大象无形 大音希声"
Command1. = "字号变大"
End Sub

Private Sub Command1_Click()
If Command1.Caption = "字号变大" Then
Label1.FontSize= Label1.FontSize*1.2
Command1.Caption = "字体变化"
Else
Label1.FontName= "楷体_GB2312"
Label1.FontItalic =
.Caption = "ok了"
End If
End Sub



（6分）

________________________________________