三、单项选择 共10题 （共计10分） 第1题 （1.0分） 题号:319
能够改变窗体边框线类型的属性是().
A:FontStyle B:BorderStyle C:BackStyle D:Border 答案：B
第2题 （1.0分） 题号:822
以下()对象不具有Clear方法 A:列表框 B:组合框 C:剪贴板 D:图片框 答案：D 第3题 （1.0分） 题号:258
常量-0.00013579的科学计数法是().
A:-1,3579E+0.4 B:.00013579
C:-13.579E-5 D:-1.3579E-0.4 答案：C 第4题 （1.0分） 题号:230
vb 应用程序是分层管理的,其最高的层次为(). A:工程 B:模块 C:窗体 D:过程 答案：A 第5题 （1.0分） 题号:837
用户可以通过设置菜单项的()属性值为FALSE来使该菜单项不可见. A:Hide B:Checked C:Visible D:Enabled 答案：C
第6题 （1.0分） 题号:334
若要使标签控件显示时,不覆盖其背景内容,应设置标签控件的()属性. A:BACKCOLOR B:BORDERSTYLE C:FORECOLOR D:BACKSTYLE 答案：D 第7题 （1.0分） 题号:377
下列哪个变量的取法是不正确的().
A:TName B:T_Temp C:T32 D:T32# 答案：D 第8题 （1.0分） 题号:380
下列数据类型中,占用内存最小的是().
A:Boolean B:Byte C:Integer D:Single 答案：B 第9题 （1.0分） 题号:371
下列关于设置控件属性的叙述正确的是(). A:用户必须设置属性值
B:所有的属性值都可以由用户随意设定 C:属性值不必一一重新设置
D:不同控件的属性项都完全一样= 答案：C
第10题 （1.0分） 题号:801
要使标签能够显示所需要的东西,则在程序中应设置其哪一属性的值().
A:Caption B:Text C:Name D:AutoSize 答案：A 四、多项选择 共5题 （共计10分） 第1题 （2.0分） 题号:279
下面有关数组的说法那些是错误的（）？ A:数组存放的是具有相同数据类型的多个数据 B:数组的下标允许是常数、表达式或变量
C:DIM语句声明的数组把数组中的全部数组都初始化为逻辑型
D:多维数组中每一维的大小为上界-下界；数组的大小为每一维大小的乘积
E:动态数组是指在声明时没有给出数组的大小，当要使用数组时，再决定数组的大小 答案：BCD 第2题 （2.0分） 题号:277 下列说法哪些是正确的（）？ A:不能对符号常量重新赋值
B:Label控件用来在窗体中显示文本，其中的文本用户不能直接修改
C:TAB()函数用于在输出表达式前将输出点定位在第N-1个字符位置
D:格式输出函数Format()可以使数值、日期或字符串按用户指定的格式输出 答案：ABD 第3题 （2.0分） 题号:280 请把下面说法中正确的选出来（）。
A:在函数调用过程中数值型函数的默认返回值为0，可变型函数的默认返回值为空串
B:在调用Sub过程中使用Call语句时，参数必须在括号内
C:过程本身使用的参数列表称为“形参”，而主程序传递给过程的真正参数称为“实参”
D:DIM语句声明的数组把数值数组中的全部数组元素都初始化为0，把字符串数组中的全部元素都初始化空
字符串 答案：BCD
第4题 （2.0分） 题号:285 在VB中，需要用数据访问对象对数据库进行访问，下列哪些属于VB的数据访问对象（）。
A:DAO B:ADO C:OAD D:RDO 答案：ABD 第5题 （2.0分） 题号:276
下列语句哪些是错误的语句（）？
A:Const Imax As Integer=&o155 B:Const _Ga As String=\ C:Dim aa,bb As Integer,cc As String D:yy=8,uu=9 答案：BD 五、程序填空 共1题 （共计10分） 第1题 （10.0分） 题号:57
'------------------------------------------------------- '【程序填空】
'------------------------------------------------------- '功能：求 1!+2!+??+10!的值。
'------------------------------------------------------- Private Sub Form_Click()
'**********SPACE********** 【?】
s = 1
For I = 2 To 10 t = t * I
'**********SPACE********** 【?】
'**********SPACE********** 【?】 Print s End Sub 答案：
1). t = 1
2). s = s + t 3). Next I 或 Next
六、程序改错 共2题 （共计20分） 第1题 （10.0分） 题号:460
'------------------------------------------------ '【程序改错】
'------------------------------------------------ '题目：已知C的公式表示如下: ' n! ' C=------------------ ' (n-m)!*m!
'函数过程fac( )求k！函数,在Fomr_Click事件中完成运算，
'请修正程序中错误。
'------------------------------------------------ Option Explicit
Private Function fac(k As Integer) As Single Dim x As Single, j As Integer '**********FOUND********** x = 0
For j = 1 To k
'**********FOUND********** x = x ^ j Next j fac = x End Function
Private Sub Form_Click() Dim C As Single
Dim m As Integer, n As Integer m = Val(InputBox(\请输入一个整数(m)：\ n = Val(InputBox(\请输入一个整数(n)：\ '**********FOUND********** C = fac(n) / fac(n - m) * fac(m) Print \End Sub 答案：
1). x=1
2). x=x*j 或 x=j*x
3). C = fac(n) / fac(n - m) / fac(m) 或 C = fac(n) / (fac(n - m) * fac(m)) 或 C = fac(n) / ( fac(n - m) * fac(m) )
第2题 （10.0分） 题号:467
'------------------------------------------------ '【程序改错】
'------------------------------------------------
'题目：从计算机输入三个数 , 找出中间数
'------------------------------------------------ Option Explicit
Private Sub FindMidNum()
Dim x As Integer, y As Integer, z As Integer, A As Integer
x = InputBox(\INPUT THE FIRST NUMBER\
y = InputBox(\INPUT THE SECOND NUMBER\
z = InputBox(\INPUT THE THIRD NUMBER\
'**********FOUND********** If x > y Then A = x x = y y = A End If
'**********FOUND********** If y = z Then Print y
'**********FOUND********** ElseIf x = z Then Print z Else
Print x End If End Sub
Private Sub Form_Click() FindMidNum End Sub
答案：
1). If x < y Then 或 If y > x Then 2). If y >= z Then 或 If z <= y Then
3). ElseIf x >= z Then 或 ElseIf z <= x Then ━━━━━━━━━━━━━━━━ 七、程序设计 共1题 （共计10分） ━━━━━━━━━━━━━━━━ 第1题 （10.0分） 题号:479 '------------------------------------------------- '【程序设计】
'-------------------------------------------------
'题目：编写函数fun其功能是：根据整型形参m，计算
' 如下公式的值：y=1/2＋1/4＋1/6＋...＋1/2m ' 例如：若m=9，则应输出：1.41448412698413 '------------------------------------------------- 答案：----------------------
Dim y As Double Dim i As Integer For i = 1 To m
y = y + 1 / (2 * i) Next fun = y ----------------------
八、VB窗体设计 共2题 （共计20分） 第1题 （10.0分） 题号:21 ------------------------------------------------ 【窗体设计】
------------------------------------------------ 题目：请按照题目要求设计指定的窗体。
建立如(图1)所示界面：请按所给窗体的样子设 计窗体，不要求控件的尺寸一样，运行时得到所
给窗体即可，有时需要简单的事件过程。要求 “退出”选项包含在“文件”菜单中，其余选项包含
在“选项”菜单中。
------------------------------------------------
1、在窗体内添加2个菜单(名称分别为menu_File，menu_Option)，
然后在菜单(menu_File)下添加1个菜单(名称为menu_File_Exit)
在菜单(menu_Option)下添加6个菜单(名称分别为menu_Option_TestButton，
menu_Option_CheckBox，menu_Option_TextWarp，menu_Option_OptionButton，
menu_Option_TextBox，menu_Option_Image)。 在窗体内添加7个按钮(Command1，Command2，Command3，Command4，Command5， Command6，Command7)。 2、窗体设置：
设置窗体名称(Name)为“Form21”。 设置窗体标题(Caption)为“控件示例”。 3、菜单设置：
设置菜单(menu_File)的标题(Caption)为“文件(&F)”。
设置菜单(menu_Option)的标题(Caption)为“选项(&O)”。
设置菜单(menu_Option)下的菜单(menu_Option_TestButton)的标题(Caption)为“测试按钮”。
设置菜单(menu_Option)下的菜单(menu_Option_CheckBox)的标题(Caption)为“复选框”。 设置菜单(menu_Option)下的菜单(menu_Option_TextWarp)的标题(Caption)为“文本换
行”。
设置菜单(menu_Option)下的菜单(menu_Option_OptionButton)的标题(Caption)为“选项按钮”。
设置菜单(menu_Option)下的菜单(menu_Option_TextBox)的标题(Caption)为“文本框”。 设置菜单(menu_Option)下的菜单(menu_Option_Image)的标题(Caption)为“图像”。 4、按钮设置：
设置按钮(Command1)的标题(Caption)为“测试按钮(&T)”。
设置按钮(Command2)的标题(Caption)为“复选框(&C)”。
设置按钮(Command3)的标题(Caption)为“文本换行(&W)”。
设置按钮(Command4)的标题(Caption)为“选项按钮(&P)”。
设置按钮(Command5)的标题(Caption)为“文本框(&E)”。
设置按钮(Command6)的标题(Caption)为“图像(&I)”。
设置按钮(Command7)的标题(Caption)为“退出(&X)”
第2题 （10.0分） 题号:54
--------------------------------------------------------------------- 【窗体设计】
--------------------------------------------------------------------- 题目：请按照题目要求设计指定的窗体。（本题有6个项目要完成）
建立如图009所示界面：
注意：保存时不得修改窗体和工程文件的名称及路径，否则后果自负。
--------------------------------------------------------------------- 1、窗体设置
1）名称为“模板”
2）标题为“南京工程学院” 2、在窗体上方添加一个标签控件 1）对齐方式为右对齐
2）设置背景透明，边框风格为1 3）内容为“透明右对齐”
3、在前一个标签下方添加另一个标签控件 1）能自动调整大小
2）背景色为白色，值为H00FFFFFF 3）标题为“0” 4）字体大小为36
4、在窗体上添加一个时钟控件 1）时间间隔为1秒
2）在Timer事件过程中添加代码，使第二个标签的标题的值加一。
5、在窗体下方添加一个列表框控件 1）名称为“列表” 2）设置为不可用 3）排序属性设为真
4）Top为3360，Left为2280 6、在窗体右下角添加一个命令按钮 1）名称为“计时切换” 2）标题为“计时”
3）在单击事件过程中添加代码，使时钟控件的Enabled属性值取反。
----------此为题目要求的最后一行，以下空白---------------------------------------
试卷编号：8068
一、填空 共10题 （共计10分） 第1题 （1.0分） 题号:41
要使一个按钮无效,则可把它的Enable属性设为【1】. 答案：1). False
第2题 （1.0分） 题号:46
一个工程可以包括多种类型的文件,其中扩展名为.bas的文件表示【1】文件. 答案： 1). 标准模块 或 模块
第3题 （1.0分） 题号:273
如果要使用命令按钮表面显示文字\退出(X)\在字符X之下加下划线),则其Caption属性设置为【1】. 答案： 1). 退出(&X)
第4题 （1.0分） 题号:48
由Dim a (10) As single定义的数组占用【1】字节的内存空间. 答案： 1). 44 第5题 （1.0分） 题号:61
A和B同为正整数或同为负整数的VB表达式为【1】. 答案： 1). A=INT(A) AND B=INT(B) AND A*B>0 第6题 （1.0分） 题号:227
表达式 1 and 0的值【1】.答案： 1). False 第7题 （1.0分） 题号:55
在VB中,若要使一个文本框(Text)中的内容在超过文本框的宽度时能够自动换行显示,应当将这个文本框的【1】属性的值设置为True.答案：1). MultiLine 第8题 （1.0分） 题号:280
设置计时器控件只能触发【1】事件.答案：1). timer 第9题 （1.0分） 题号:317
由For k=35 to 0 step 3:next k循环语句控制的循环次数是【1】 .答案： 1). 0
第10题 （1.0分） 题号:318
由For k=35 to 0 step 3:next k循环语句控制的循环次数是【1】.答案： 1). 0
二、判断 共10题 （共计10分） 第1题 （1.0分） 题号:357
在盘驱动器列表框Drive1的Change事件过程中,代码 Dir1.Path=Drive1.Drive 的作用是:当Drive1的驱动器改变时,Dir1的目录列表随不同驱动器的作相应改变.答案：Y
第2题 （1.0分） 题号:222
VB通过窗体管理构成应用程序的各类文件的集合. 答案：N
第3题 （1.0分） 题号:289
框架控件和形状控件都不能响应用户的鼠标的单击事件.答案：Y
第4题 （1.0分） 题号:308
事件过程与Sub过程,它们相同点都是事件驱动,而不同的只是事件过程由控件属性决定,而Sub过程是由户自定义. 答案：Y
第5题 （1.0分） 题号:329
有的对象属性既可在属性窗口中设定又可在程序代码中设定.答案：Y
第6题 （1.0分） 题号:266
除了标准控件外,还可引入其它控件及第三方厂商研制的控件. 答案：Y
第7题 （1.0分） 题号:304
设计菜单中每一个菜单项分别是一个控件,每个控件都有自己的名字. 答案：Y 第8题 （1.0分） 题号:301
若要新建一个磁盘上的顺序文件,可用output,append方式打开文件. 答案：Y 第9题 （1.0分） 题号:348
在表达式中,运算符两端的数据类型要求一致. 答案：Y 第10题 （1.0分） 题号:359
在一个窗体的代码中不能使用Unload语句来卸载本窗体,即一个窗体只能由其它窗体卸载. 答案：N 三、单项选择 共10题 （共计10分） 第1题 （1.0分） 题号:873
用鼠标拖动滚动条中滚动框并释放,将触发滚动条的()事件.
A:Scroll B:Change C:DragOver D:A和B 答案：D 第2题 （1.0分） 题号:830 以下叙述中错误的是().
A:在工程资源管理器窗口中只能包含一个工程文件及属于该工程的其他文件
B:以.BAS为扩展名的文件是标准模块文件 C:窗体文件包含该窗体及其控件的属性 D:一个工程中可以含有多个标准模块文件 答案：A
第3题 （1.0分） 题号:295
工程资源管理器窗口中包含的文件类型有()种. A:2 B:3 C:4 D:5 答案：C 第4题 （1.0分） 题号:369
下列各种窗体事件中,不能由用户触发的事件是().
A:Load事件和Unload事件B:Click事件和Unload事件 C:Click事件和Dbclick事件D:Load事件和Initialize事件 答案：D 第5题 （1.0分） 题号:333
如果在图片框上使用绘图方法绘制一个圆,则图片框的()属性不会对该圆的外观产生影响.
A:BackColor B:ForeColor
C:DrawWidth D:DrawStyle 答案：B 第6题 （1.0分） 题号:256
不能正确表示条件\两个整型变量A和B之一为0,但不能同时为0\的布尔表达式().
A:A*B=0ANDA<>B B:(A=0ORB=0)ANDA<>B C:A=0ANDB<>0ORA<>0AND B=0
D:A*B=0AND(A=0ORB=0) 答案：D 第7题 （1.0分） 题号:824
以下不允许用户在程序运行时输入文字的控件是(). A:标签框 B:文本框 C:下拉式组合框 D:简单组合框 答案：A
第8题 （1.0分） 题号:837
用户可以通过设置菜单项的()属性值为FALSE来使该菜单项不可见.
A:Hide B:Checked C:Visible D:Enabled 答案：C 第9题 （1.0分） 题号:279 Clear方法适用于() 控件.
A:图片 B:窗体 C:复选框 D:组合框 答案：D 第10题 （1.0分） 题号:820
已知A?B?C中C最小,则判断A?B?C可否构成三角形三条边长的逻辑 表达式是().
A:A>=B And B>=C And C>0
