郑州大学vb考试题加答案Word文档下载推荐.docx
《郑州大学vb考试题加答案Word文档下载推荐.docx》由会员分享，可在线阅读，更多相关《郑州大学vb考试题加答案Word文档下载推荐.docx（13页珍藏版）》请在冰豆网上搜索。
A、运行一个应用程序B、运行一个窗体
C、翻开被选中对象的属性窗口D翻开被选中对象的代码窗口
10、当程序中断修改后再运行时，VB进入〔B〕模式。
A、设计B、运行
C、中断D编程
11、在VB程序中，逐语句调试的操作键是〔A〕。
A、F8键B、F9键
C、F2键D、F1键
12、在VisualBasic的设计模式下，如果按下功能键F5,那么〔A〕。
A、开始运行正在设计的程序B、执行一句代码
C、编译当前正在设计的程序D退出VisualBasic
13、在设计阶段，双击窗体上的某个控件，可以翻开〔A〕。
A、代码窗口B、属性窗口
C、工具箱窗口D工程资源管理器窗口
14、翻开VisualBasic集成环境后，默认显示的工具栏是〔B〕。
A、编辑工具栏B、标准工具栏
C、调试工具栏D窗体工具栏
15、在设计阶段，当双击窗体上的某个控件时，所翻开的窗口是〔C〕。
〔1
分〕
A、工程资源管理器窗口B、工具箱窗口
C、代码窗口D属性窗口
16、下面的过程定义语句中，不合法的是（A）。
（1分）
A、SubPara（ByValn（））B、SubPara（n）
C、FunctionPara（ByValn）D、FunctionPara（proc1）
不能脱离控件对象〔包括客体〕而独立存在的过程是〔A〕。
A、事件过程B、通用过程
C、Sub过程D函数过程
18、Sub过程与Function过程最根本的区别是〔D〕。
A、Sub过程可以使用Call语句或直接使用过程名调用，而Function过程不可以
B、Function过程可以有参数，Sub过程不可以
C、两种过程参数的传递方式不同D、Sub过程的过程名不能返回值，而Function
过程能够通过其过程名返回值
19、参数传递有按值传递和按地址传递，〔A〕关键字表示按值传递。
A、ByValB、ByRef
C、ValueD、Refrence
20、窗体上有两个文本框〔Text1、Text2〕和一个命令按钮〔Command〕1，阅读如
下程序：
PrivateSubfunc（TAsTextBox,aAsInteger）:
T.Text=
"
1234"
:
a=a*a:
EndSub:
PrivateSubForm_Load（）:
ABCD"
Text2.Text=10:
PrivateSubCommand1_Click（）:
DimtempAsInteger:
temp=Val（Text2.Text）:
Callfunc（Text1,temp）:
Text2.Text=temp:
EndSub，运行后，单击按钮，Text1和Text2将分别显示（A）。
（1分）
AABC併口10B、1234和100
C、ABC併口100D1234和1021、在定义过程时，假设将参数传递方式指定为传值方式，应该用关键字〔C〕〔1分〕
A、DimB、Var
C、ByValD、Byadr
22、以下说法中，不正确的说法是〔B〕。
A、可以在窗体的某个子程序中定义窗体级变量B、声明窗体级变量的位置是在窗体所有过程的最前面
C、窗体级变量声明后，窗体内的各个过程都能使用它并能改变其值D、程序运行
时，先执行窗体级变量声明语句，再去执行窗体上的过程
23、由〔C〕关键字声明的局部变量在整个程序运行时一直存在。
A、DimB、Public
C、StaticD、Private
24、定义过程的局部变量时，用关键字〔C〕表示被定义的变量在调用离开过程后仍保存其值。
A、DimB、ByVal
C、StaticD、Public
25、以下四个用于变量声明的关键字中，不能在模块通用声明段中使用的是
〔A〕。
A、StaticB、Public
C、PrivateD、Dim
26、VB中有三种类型的模块，分别是类模块、〔A〕。
A、窗体模块和标准模块B、过程模块和窗体模块
C、函数模块和标准模块D全局模块和标准模块
27、在窗体的通用段声明变量时，不能使用〔D〕关键字。
〔1分〕A、DimB、Public
C、PrivateD、Static
28、以下说法中，不正确的说法是〔A〕。
A、不能用Private定义模块级变量B、不能在“通用声明〞段中为变量赋值
C、不能在窗体的某个子程序中定义窗体级变量D、声明窗体级变量的位置是在窗体所有过程的最前面
29、能够被本模块的其它过程引用的是〔B〕。
〔1分〕
A、局部变量B、模块级变量
C、静态变量D、以上都是30、在声明一个过程中必须有的是〔B〕。
APrivate关键字B、SUB关键字
C、返回值类型说明D、参数
31、以〔A〕保存字开始的为子过程。
A、SubB、Event
C、FunctionD、Property
32、Sub子过程用的退出语句是〔B〕。
A、EndSubB、ExitSub
C、EndFunctionD、ExitFunction
33、以下关于函数过程的表达中，正确的选项是〔B〕。
A、函数过程形参的类型与函数返回值的类型没有关系B、在函数过程中，可以通过函数名返回一个值
C、当数组作为函数过程的参数时，只能以传值方式传递，不能以传址方式传递
D如果不指明函数过程参数的类型，那么该参数没有数据类型
34、以〔C〕保存字开始的为函数过程。
35、一个工程含有多个窗体及标准模块，以下表达错误的选项是〔A〕。
A、如果工程含Forml窗体，程序首先执行该窗体的事件过程B、任何时刻最多只有一个窗体是活动窗体
C、标准模块不能设置为启动模块D、Hide方法只是隐藏而不从内存中去除窗体
36、如果要在应用程序中建立另一个窗体，正确的操作方法是〔B〕。
A、在“文件〞下拉菜单中选择“添加窗体〞命令B在“工程〞下拉菜单中
选择“添加窗体〞命令
C、在“编辑〞下拉菜单中选择“添加窗体〞命令D在“工具〞下拉菜单中
37、在VB中，建立新窗体的方法是〔B〕。
A、利用标准工具箱中的窗体控件B、利用"
工程"
下拉菜单中的命令C、由系统自动生成D、利用VB命令生成
38、如果一个工程含有多个窗体及标准模块，那么以下表达中，错误的选项是〔A〕。
A、不能把标准模块设置为启动模块B、任何时刻最多只有一个窗体是活动窗
体
C、用Hide方法将把窗体隐藏起来D如果工程中含SubMain过程，那么程序
可能首先执行该过程
39、如果一个工程含有多个窗体及标准模块，那么以下表达中，错误的选项是〔A〕。
A、如果工程中含有SubMain过程，那么程序一定首先执行该工程B不能把标
准模块设置为启动模块
C、用Hide方法只是隐藏一个窗体，不能从内存中去除该窗体D任何时刻
最多只有一个窗体是活动窗体
40、如果Forml是启动窗体，并且Forml的Load事件过程中有Form2.Show那么程
序启动后〔B〕。
A、Form2是最后的活动窗体B、Form1是最后的活动窗体
C、编译错误D、运行出错
41、如果Form2是启动窗体，并且Form2的Load事件过程中有Form1.Show,那么程序启动后〔D〕。
A、发生一个运行时错误B、发生一个编译时错误
C、在所有的初始化代码运行后Form1是活动窗体D在所有的初始化代码运
行后Form2是活动窗体
42、程序运行时，不是由系统触发的事件是〔B〕。
A、InitializeB、Click
C、LoadD、Activate
43、顺序文件是因为〔D〕。
A、文件按每条记录的记录号从小到大排序B、文件按记录长度从小到大排序
D记录按进入的先后顺序存放
C、文件中按记录的某项关键字从大到小排序
的，读出也是按照原写入的顺序进行的
44、以下关于顺序文件的表达正确的选项是〔A〕。
A、所有记录的长度必须相同B、可以使用文本编辑软件编辑
C、可以随机读取文件中的记录D文件中记录按关键字顺序存放45、关于VisualBasic6.0文件的命名原那么，以下说法正确的选项是〔D〕。
A、可以在文件名中使用*和？
B、支持文件名为任意长度
C、与Windows命名方式不一致D支持传统的命名方式：
8位主文件名，3位扩
展名
46、在VisualBasic中，按文件的数据性质的不同，可将文件分为〔A〕。
A、数据文件和程序文件B、文本文件和数据文件
C、顺序文件和随机文件DACSII文件和二进制文件47、以下表达中，错误的表达是〔A〕。
A、文件号的使用范围是1~256B、顺序文件的数据或者只能读,或者只能写C、文件的翻开必须使用Open语句D文件的关闭必须使用Close语句
48、要以读方式翻开D盘根目录上的一个顺序文件Test.txt，应使用的语句是
（B）。
A、Open"
Test.txt"
ForOutputAs#1B、Open
D:
\Test.txt"
ForInputAs#1
C、Open"
ForOutputAs#1D、Open
49、要从顺序文件中读出一个数据项，可以用（A）函数。
A、InputB、Write
C、InputBoxD、InputString
50、如果要向Stu.dat文件追加数据，正确翻开该文件的语句是（B）。
（1
分）
Stu.dat"
ForOutputAs#1B、Open"
ForAppendAs#1
C、OpenStu.datForOutputAs#1D、OpenStu.datForAppendAs#1
、填空题〔7道小题，共30分〕
1、*将一维数组a中的数值反序放置。
*程序代码如下：
PrivateSubCommand1_Click（）
Dima（10）AsInteger,iAsInteger,tAsIntegerFori=1To10
a（i）=Int（90*Rnd）10
Printa（i）;
Nexti:
Print
Fori=1To5t=a（i）a（i）=a（11-i）a（11-i）=t
Nexti
Fori=1To10
PrintEndSub
4分〕
2、*输出九九乘法表的左下角程序代码如下：
DimseAsString
PrintTab（35）;
"
九九乘法表"
For=1To9
Forj=1toi-1
se=i&
x"
&
j&
="
i*j
PrintTab（（j-1）*91）;
se;
Nextj
Print
EndSub
4分〕3、*用随机函数产生n个10〜99之间的随机整数存入一维数组A,通过键盘输入X,然后在数组中查找。
如果找到了，就把这个数从数组中删去；
如果没有找到，那么给出“无可删除的元素〞信息。
PrivateSubForm_Click（）
DimnAsInteger,a（100）AsInteger
DimxAsInteger,iAsInteger
DimkAsInteger,flagAsBoolean
n=InputBox（"
N="
）
Fori=1To99
a（i）=Int（90*Rnd10）
Nexti：
x=InputBox（"
X="
）:
Print"
;
x
flag=False
Fori=1Ton
Ifa（i）=xThen
flag=True
k=i
ExitFor
EndIf
IfNotflagThen
Print"
无可删除的元素"
Else
Fori=kTon-1
a（i）=a（i1）
n=n-1
4、*使用冒泡排序法，将一维数组A按从大到小排序（降序）PrivateSubCommand启动_Click（）
Dima（10）AsInteger
DimiAsInteger,jAsInteger,tAsInteger
a（i）=Int（90*Rnd）10
Fori=10To2Step-1
Forj=1Toi-1
Ifa（j）<
a（j1）Then
t=a（j）:
a（j）=a（j1）:
a（j1）=t
5、
杨辉
三角形如下列图：
1
2
3
4
6
41
5
10
1051
15
201561
程序代码如下：
Dima（1To10,1To10）AsInteger,i%,j%
a（i,1）=1
a（i,i）=1
Forj=2To-1
a（i,j）=a（i-1,j-1）a（i-1,j）
PrintTab（5*（j-1）1）;
a（i,j）;
NextiEndSub
6、*利用阶乘函数过程fac（n）=n!
Publicjc（ByValnAsInteger）AsLong
Dimi%,jcAsLong
jc=1
jc=jc*i
fac=jc
EndFunction
DimS&
k%
S=0
Fork=1to10
S=Sfac（k）
Nextk
PrintS
7、*设计一前景背景色互换程序,如图{<
1-1.jpg>
}
*单击命令按钮“换〞，互换窗体中标签的前景色和背景色'
1-1.jpg
PrivateSubForm_Load（）
Label1=“大象无形大音希声〞
DimtAsVariant
DimiAsInteger
i=MsgBox（"
确定换吗？
vbOkCancel）
Ifi=1Then
t=Label1.caption
Label1.ForeColor=Label1.BackColor
Label1.caption=t
6分〕
三、编程题（3道小题，选作2道，每道15分，共30分）
7的数的和是多
1、*编写程序，计算从100到2000中，所有首位和末尾加起来为少？
例如，106，205即为这样的数。
Dimx%,y%,sum
Fori=100To2000
x=Left（i,1）
y=Right（i,1）
Ifxy=7Thensum=sumi
Next
Printsum
2、*下载数据文件data0002.txt到自己的机器中，编程求出该数据文件里的前10000个数中，末位是1的素数的个数。
（【下载文件“data0002.txt〞】；
）下载方法：
在链接上右击翻开弹出菜单，选择“目标另存为〞。
（10分）
Dims,x
Open"
d:
/data0002.txt"
ForInputAs1
Fori=1To1000
Input#1,x
s=Right（x,1）
Ifs=1Then
Forj=2Tox
IfxModj=0ThenExitFor
Ifj>
x-1Thenn=n1
Close
（1）
Printn
升级会员 