南京工程学院vb题库2套.docx
《南京工程学院vb题库2套.docx》由会员分享，可在线阅读，更多相关《南京工程学院vb题库2套.docx（14页珍藏版）》请在冰点文库上搜索。
南京工程学院vb题库2套
南京工程学院vb题库。
。
。
。
试卷编号：
8948
所属语言：
VisualBasic
试卷方案：
09-10-2《程序设计基础—VB》模拟
试卷总分：
100分
共有题型：
6种
一、判断共5题（共计10分）
第1题（2.0分）
在窗体模块的声明部分中用Private声明的变量的有效范围是其
所在的工程.
答案：
N
第2题（2.0分）
清除combo1对象的内容是combo1.clear.
答案：
Y
第3题（2.0分）
移动框架内的控件时框架内的控件也跟随移动,所以框架内各控
件的Left和Top属性值也将分别随之改变.
答案：
N
第4题（2.0分）
在标准模块的声明部分中用Publice声明的变量的有效范围是
其所在的工程.
答案：
Y
第5题（2.0分）
VB通过窗体管理构成应用程序的各类文件的集合.
答案：
N
二、单项选择共20题（共计40分）
第1题（2.0分）
以下______不能作为VB中的变量名.
A:
Abx45
B:
P1234
C:
89TasFF
D:
xy
答案：
C
第2题（2.0分）
InputBox函数的返回值的类型为______.
A:
数值
B:
字符串
C:
逻辑值
D:
日期值
答案：
B
第3题（2.0分）
指令"Circle（1000,1000）,500,8,-6,-3"将绘制
A:
画圆
B:
椭圆
C:
圆弧
D:
扇形
答案：
D
第4题（2.0分）
将调试通过的工程经"文件"菜单的"生成.exe文件"编译成.exe后,将该可执行文件转到其他机器上不能运行的主要原因是（）.
A:
运行的机器上无VB系统所需的动态连接库
B:
缺少.frm窗体文件
C:
该可执行文件有病毒
D:
以上原因都不对
答案：
A
第5题（2.0分）
数学关系3≤x<10表示成正确的VB表达式为
A:
3<=x<10
B:
3<=xANDx<10
C:
x>=3ORx<10
D:
3<=xAND<10
答案：
B
第6题（2.0分）
下列不能打开菜单编辑器的操作是______.
A:
按Ctrl+E
B:
单击工具栏中的"菜单编辑器"按钮
C:
执行"工具"菜单中的"菜单编辑器"命令
D:
按Shift+Alt+M
答案：
D
第7题（2.0分）
在下面关于窗体的叙述中,错误的是（）.
A:
在窗体的整个生命周期中,Initialize事件只触发一次
B:
在用Show显示窗体时,不一定发生Load事件
C:
每当窗体需要重画时,肯定会触发Paint事件
D:
Resize事件是在窗体的大小有所改变时被触发
答案：
C
第8题（2.0分）
在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:
PrivateSubCommand1_Click（）
StaticxAsInteger
Cls
y=y+2
x=x+2
Printx,y
EndSub
程序运行后,连续四次单击Command1按钮后,窗体上显示的是
A:
88
B:
82
C:
28
D:
22
答案：
B
第9题（2.0分）
将CommandDialog1通用对话框以打开对话框打开,可选以下（）方法.
A:
showopen
B:
showcolor
C:
showsave
D:
showfont
答案：
A
第10题（2.0分）
Cls方法可以清除窗体或图片框中的（）内容.
A:
在设计阶段使用Picture设置的背景位图
B:
在设计阶段放置的控件
C:
在运行阶段产生的图形和文字
D:
以上全部内容
答案：
C
第11题（2.0分）
以下语句正确的是
A:
CommonDialogl.Filter=AllFiles
|*.*|Pictures（*.Bmp）|*.Bmp
B:
CommonDialogl.Filter="AllFiles"
|"*.*"|"Pictures（*.Bmp）"|"*.Bmp"
C:
CommonDialogl.Filter="AllFiles|
*.*|Pictures（*.Bmp）|*.Bmp"
D:
CommonDialogl.Filter={AllFiles|
*.*|Pictures（*.Bmp）|*.Bmp|
答案：
C
第12题（2.0分）
在VisualBasic中,最简单的数据类型包括______.
A:
整型、实型、布尔型、字符型
B:
整型、实型、字符型
C:
整型、实型、逻辑型
D:
实型、逻辑型、字符型
答案：
A
第13题（2.0分）
以下属于合法的数组元素是（）.
A:
x8
B:
x[A]
C:
x（3）
D:
x{6}
答案：
C
第14题（2.0分）
为了使列表框中的项目按字母顺序排列,应设置哪个属性?
A:
List
B:
Sorted
C:
Style
D:
Text
答案：
B
第15题（2.0分）
以下叙述中错误的是
A:
在KeyPress事件过程中能识别键盘的按下与释放
B:
在KeyPress事件过程中可以通过KeyAscii值来识别回车键
C:
在KeyDown和KeyUp事件过程中,将键盘输入的"A"和"a"视作相同的字母
D:
在KeyPress事件过程中,将键盘输入的"A"和"a"视作不同的字母
答案：
A
第16题（2.0分）
下面关于随机文件的描述不正确的是
A:
每条记录的长度必须相同
B:
一个文件中记录号不必惟一
C:
可通过编程对文件中的某条记
录方便地修改
D:
文件的组织结构比顺序文件
复杂
答案：
B
第17题（2.0分）
窗体的Caption属性的作用是（）.
A:
确定窗体的名称
B:
确定窗体的标题
C:
确定窗体的边界类型
D:
确定窗体的字体
答案：
B
第18题（2.0分）
下面程序段：
ForI=3To1Step-1
PrintSpc（5-i）；
Forj=1To2*I-1
Print"*"；
Nextj
Print
Nexti
的运行结果为
A:
图1
B:
图2
C:
图3
D:
图4
答案：
D
第19题（2.0分）
为了给x,y,z这3个变量赋初值3,下面正确的赋值语句是
A:
x=3:
y=3:
z=3
B:
x=3,y=3,z=3
C:
x=y=z=3
D:
xyz=3
答案：
A
第20题（2.0分）
以下（）方式打开的文件只能读不能写.
A:
Input
B:
Output
C:
Random
D:
Append
答案：
A
三、程序填空共1题（共计10分）
第1题（10.0分）
'-------------------------------------------------------
'【程序填空】
'-------------------------------------------------------
'功能：
窗体中有若干控件，单击其中的一个按扭cmdput时，
'执行如下的事件过程，该过程的功能是把数据输出到指定的文件中.
'-------------------------------------------------------
'**********SPACE**********
PrivateType【?
】
NumberAsString
NameAsString
EndType
PrivateSubcmdput_click（）
DimTitleAsString
DimStr1AsString
Dimstr2AsString
DimstuAsStudent
DimiAsInteger
OpenApp.Path&"\student.dat"ForRandomAs#1Len=Len（stu）
Title="写记录到随机文件"
Str1$="请输入学生号"
str2$="请输入学生名"
Fori=1To5
'**********SPACE**********
【?
】.Number=InputBox（Str1$,Title$）
stu.Name=InputBox$（str2$,Title$）
Put#1,i,stu
Nexti
'**********SPACE**********
Close【?
】
EndSub
答案：
=======（答案1）=======
Student
=======（答案2）=======
stu
=======（答案3）=======
#1
四、程序改错共1题（共计10分）
第1题（10.0分）
'------------------------------------------------
'【程序改错】
'------------------------------------------------
'题目:
编程求一个m*n矩阵中最大元素及其所在的行列号。
'------------------------------------------------
OptionExplicit
PrivateSubForm_Click（）
DimA（）AsInteger,maxAsInteger
DimMAsInteger,NAsInteger
DimiAsInteger,jAsInteger
DimcolAsInteger,rowAsInteger
M=InputBox（"输入矩阵的行数：
"）
N=InputBox（"输入矩阵的列数：
"）
ReDimA（1ToM,1ToN）AsInteger
Fori=1ToM
Forj=1ToN
A（M,N）=InputBox（"输入数组元素:
"）
Nextj
Nexti
'**********FOUND**********
max=A（0,0）
Fori=1ToM
Forj=1ToN
Ifmaxmax=A（i,j）
'**********FOUND**********
row=j
EndIf
'**********FOUND**********
col=i
Nextj
Nexti
Print
Print"该矩阵元素的最大值:
";max
Print"最大值所在的行:
";row;"所在的列:
";col
EndSub
答案：
=======（答案1）=======
max=A（1,1）
=======（答案2）=======
col=j
=======（答案3）=======
row=i
五、程序设计共1题（共计20分）
第1题（20.0分）
'-------------------------------------------------
'【程序设计】
'-------------------------------------------------
'题目：
（事件）单击窗体。
'（响应）编写程序求10×11×12+11×12×13+…+15×16×17的结果，
'并将结果输出到窗体上。
'将结果存入变量M中
'-------------------------------------------------
答案：
----------------------
Dimi,jAsInteger
DimsAsLong
Fori=10To15
s=1
Forj=iToi+2
s=s*j
Next
m=m+s
Next
Print（CStr（m））
----------------------
六、VB窗体设计共1题（共计10分）
第1题（10.0分）
------------------------------------------------
【窗体设计】
------------------------------------------------
题目：
如图所示，启动VB后，新建工程，界面上放三个命
令按钮，大小位置体调整好。
程序运行后，单击“窗
体变大”按钮，窗体随之变大，单击“窗体变小”按钮，
窗体即随之变小，单击“关闭窗体”按钮，窗体被关闭，
请编写程序。
（窗口变大变小幅度用户自定）
各控件属性设置如下表：
对象名称Name属性Caption属性
窗体默认默认
命令按钮Command1窗体变大
Command2窗体变小
Command3关闭窗体
------------------------------------------------
升级会员 