试卷编号：8066
一、填空共10题（共计10分）
第1题（1.0分）题号:227
表达式 1 and 0的值【1】.
答案：1). False
第2题（1.0分）题号:222
把整数0赋给一个逻辑型变量,则逻辑变量的值为【1】. 答案：1). False
第3题（1.0分）题号:60
a 和
b 中有仅只有一个为1,相应的V isual Basic逻辑表达式为【1】.答案：1). a=1 xor b=1
第4题（1.0分）题号:251
Print "x=" & (2=4) 的结果为【1】.答案：1). x=False 第5题（1.0分）题号:244设x为一个两位数,将x 个位数和十位数交换后所得两位数VB的表达式是【1】.答案：1). (x mod 10) * 10 + int(x/10)
第6题（1.0分）题号:318
由For k=35 to 0 step 3:next k循环语句控制的循环次数是【1】.答案：1). 0
第7题（1.0分）题号:226
表达式32\7 MOD 3^2 的值是【1】.答案：1). 4 第8题（1.0分）题号:288
文件按照存取方式及其组成结构可以分为顺序文件和【1】.答案：1). 随机文件或随机
第9题（1.0分）题号:319 Option Base 1的作用是确定数组的下界为【1】.答案1). 1
第10题（1.0分）题号:297
写出清除图片框的文字或图形信息的语句【1】.
答案：1). Picture1.cls 或cls
二、判断共10题（共计10分）
第1题（1.0分）题号:236
所有的VB 的变量,都有隐含说明字符和强调声明两种方法来定义. 答案：N 第2题（1.0分）题号:246
ActiveX控件是扩展名为*.ocx的独立文件,使用时需用
"工程"/"部件"载入或移去. 答案：Y
第3题（1.0分）题号:289
框架控件和形状控件都不能响应用户的鼠标的单击事
件. 答案：Y
第4题（1.0分）题号:350
在窗体模块的声明部分中用Private声明的变量的有效
范围是其所在的工程. 答案：N
第5题（1.0分）题号:354在框架控件上放置的控
件可以移动到框架控件的外面.答案：N
第6题（1.0分）题号:231可以用"&","+"合并字符
串,但是用在变异变量时,"+"可能会将两个数值加起来.
答案：Y
第7题（1.0分）题号:261
VB允许设计和使用用户自己设计的控件. 答案：Y
第8题（1.0分）题号:247
Circle方法绘制扇形或圆弧图形时,图形的形状不仅与
起始角、终止角的大小相关,而且与起始角、终止角的
正或负相关. 答案：Y
第9题（1.0分）题号:330 有一个程序在属性窗口
中设置了它的窗体字体大小为10号,而程序代码若设
置了它的窗体字体大小为20号那么当程序运行后实际
的窗体字体大小为20号.答案：Y
第10题1.0分题号:225 V isual Basic程序的运行可以
从Main()过程启动,也可以从某个窗体启动. 答案：Y
三、单项选择共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:.00013579C:-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="abc" 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 = V al(InputBox("请输入一个整数(m)："))
n = V al(InputBox("请输入一个整数(n)："))
'**********FOUND**********
C = fac(n) / fac(n - m) * fac(m)
Print "C="; C
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("PLEASE INPUT THE FIRST
NUMBER")
y = InputBox("PLEASE INPUT THE SECOND
NUMBER")
z = InputBox("PLESSE 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属性值取反。
----------此为题目要求的最后一行，以下空白
---------------------------------------
试卷编号：8066
一、填空共10题（共计10分）
第1题（1.0分）题号:227表达式1 and 0的值【1】.
答案：1). False
第2题（1.0分）题号:222
把整数0赋给一个逻辑型变量,则逻辑变量的值为【1】.
答案：1). False
第3题 a 和b 中有仅只有一个为1,相应的Visual
Basic逻辑表达式为【1】.答案：1). a=1 xor b=1
第4题（1.0分）题号:251Print "x=" & (2=4) 的结
果为【1】.答案：1). x=False
第5题（1.0分）题号:244 设x为一个两位数,
将x个位数和十位数交换后所得两位数VB的表达式是
【1】.答案：1). (x mod 10) * 10 + int(x/10)
第6题（1.0分）题号:318 由For k=35 to 0 step
3:next k循环语句控制的循环次数是【1】.答案：1). 0
第7题（1.0分）题号:226 表达式32\7 MOD
3^2 的值是【1】. 答案：1). 4
第8题（1.0分）题号:288
文件按照存取方式及其组成结构可以分为顺序文件和
【1】.答案：1). 随机文件或随机
第9题（1.0分）题号:319Option Base 1的作用是确
定数组的下界为【1】.答案:1). 1
第10题（1.0分）题号:297
写出清除图片框的文字或图形信息的语句【1】.
答案1). Picture1.cls 或cls
二、判断共10题（共计10分）
第1题（1.0分）题号:236
所有的VB 的变量,都有隐含说明字符和强调声明两种
方法来定义答案：N
第2题（1.0分）题号:246
ActiveX控件是扩展名为*.ocx的独立文件,使用时需用
"工程"/"部件"载入或移去. 答案：Y
第3题（1.0分）题号:289
框架控件和形状控件都不能响应用户的鼠标的单击事
件. 答案：Y
第4题（1.0分）题号:350
在窗体模块的声明部分中用Private声明的变量的有效
范围是其所在的工程. 答案：N
第5题（1.0分）题号:354
在框架控件上放置的控件可以移动到框架控件的外面.
答案：N
第6题（1.0分）题号:231
可以用"&","+"合并字符串,但是用在变异变量时,"+"可
能会将两个数值加起来. 答案：Y
第7题（1.0分）题号:261
VB允许设计和使用用户自己设计的控件.答案：Y
第8题（1.0分）题号:247
Circle方法绘制扇形或圆弧图形时,图形的形状不仅与
起始角、终止角的大小相关,而且与起始角、终止角的
正或负相关. 答案：Y
第9题（1.0分）题号:330 有一个程序在属性窗口
中设置了它的窗体字体大小为10号,而程序代码若设
置了它的窗体字体大小为20号,那么当程序运行后实
际的窗体字体大小为20号.答案：Y
第10题（1.0分）题号:225
Visual Basic程序的运行可以从Main()过程启动,也可以
从某个窗体启动.答案：Y
三、单项选择共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="abc" 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 = V al(InputBox("请输入一个整数(m)："))
n = V al(InputBox("请输入一个整数(n)："))
'**********FOUND**********
C = fac(n) / fac(n - m) * fac(m)
Print "C="; C
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("PLEASE INPUT THE FIRST
NUMBER")
y = InputBox("PLEASE INPUT THE SECOND
NUMBER")
z = InputBox("PLESSE 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
B:A+C>B And B+C>A And C>0
C:(A+C)>=C And A-C <=C) And C>0
D:A+B>C And A-B>C And C>0
答案：B
四、多项选择共5题（共计10分）
第1题（2.0分）题号:284
设A="abcdefghijklm"，下列（）的函数值为"jklm"。A:Mid(A,10,4) B:Left(A,4) C:Right(A,4)
D:Mid(A,10,14) 答案：ACD 第2题（2.0分）题号:276
下列语句哪些是错误的语句（）？
A:Const Imax As Integer=&o155
B:Const _Ga As String="abc"
C:Dim aa,bb As Integer,cc As String
D:yy=8,uu=9 答案：BD 第3题（2.0分）题号:275
下列说法中哪些是正确的（）？
A:逻辑型数据占1个字节
B:长整型数据占4个字节
C:单精度型数据占4个字节
D:一个汉字在Visual Basic中占1个字节答案：BCD 第4题（2.0分）题号:281
窗体也是一个对象，它具有（）的特征。
A:属性B:过程C:事件D:方法答案：ACD 第5题（2.0分）题号:285
在VB中，需要用数据访问对象对数据库进行访问，下列哪些属于VB的数据访问对象（）。
A:DAO B:ADO C:OAD D:RDO 答案：ABD 五、程序填空共1题（共计10分）
第1题（10.0分）题号:504
'-------------------------------------------------------
'【程序填空】
'-------------------------------------------------------
'功能：写出程序运行后，单击窗体，Form1上显示的内容' sum 函数的功能为累加求和
' isum = 1
' isum = 3
' isum = 6
' isum = 10
' isum = 15
'-------------------------------------------------------
Private Sub Form_Click()
Dim I As Integer, isum As Integer
'**********SPACE**********
For I = 1 To 【?】
isum = sum(I)
'**********SPACE**********
Form1.Print "isum ＝" 【?】
Next I
End Sub
Private Function sum(n As Integer)
Static j As Integer
'**********SPACE**********
【?】j + n
sum = j
End Function
答案：
1). 5
2). + isum 或& isum
3). j =
六、程序改错共2题（共计20分）
第1题（10.0分）题号:458
'------------------------------------------------
'【程序改错】
'------------------------------------------------
'题目：已知自然对数的底数e的级数表示如下:
' e=1+1/1!+1/2!+1/3!+......+1/n!+.....
' 本程序利用函数过程fact()求e，其中绝对值小于
' 1E-8的项被忽略。
'------------------------------------------------
Option Explicit
Private Function fact(m As Integer) As Single
Dim x As Single, i As Integer
x = 1
For i = 1 To m
'**********FOUND**********
x = i
Next i
fact = x
End Function
Private Sub Form_Click()
Dim e As Single, item As Single
Dim n As Integer
e = 1
'**********FOUND**********
n = -1
Do
n = n + 1
item = 1 / fact(n)
e = e + item
'**********FOUND**********
Loop While item >= 0.01
Form1.Print "e="; e
End Sub
答案：
1). x = x * i或x = i * x
2). n = 0
3). Loop While item >= 0.00000001 或Loop While
0.00000001 <= item
第2题（10.0分）题号:117
'------------------------------------------------
'【程序改错】
'------------------------------------------------
'题目：下面的程序段用于实现以下功能：建立一顺序文
'件，存放10名同学的学号和三门功课成绩，显示
'该文件内所有记录，并同时显示其总分和平均分
'------------------------------------------------
Option Explicit
Private Sub Form_Click()
Dim no%, c1%, c2%, c3%, i As Integer
'**********FOUND**********
Open "c:\2.txt" For Input As #1
For i = 1 To 10
no = InputBox("请输入学号")
c1 = InputBox("请输入数学成绩")
c2 = InputBox("请输入语文成绩")
c3 = InputBox("请输入外语")
Write #1, no, c1, c2, c2
Next i
Close #1
'**********FOUND**********
Open "c:\2.txt" For Output As #1
For i = 1 To 10
'**********FOUND**********
Print #1, no, c1, c2, c3
Print no, c1, c2, c3, c1 + c2 + c3, (c1 + c2 + c3) / 3 Next i
Close #1
End Sub
答案：
1). Open "c:\2.txt" For Output As #1
2). Open "c:\2.txt" For Input As #1
3). Input #1, n0, c1, c2, c3
━━━━━━━━━━━━━━━━
七、程序设计共1题（共计10分）━━━━━━━━━━━━━━━━
第1题（10.0分）题号:142
'-------------------------------------------------
'【程序设计】
'-------------------------------------------------
'题目：(事件)单击窗体。
' (响应)编写程序求10×11×12+11×12×13+…
+15×16×17的结果，
' 并将结果输出到窗体上。
' 将结果存入变量M中
'-------------------------------------------------
答案：----------------------
Dim i, j As Integer
Dim s As Long
For i = 10 To 15
s = 1
For j = i To i + 2
s = s * j
Next
m = m + s
Next
Print (CStr(m))
----------------------
━━━━━━━━━━━━━━━━━━
八、VB窗体设计共2题（共计20分）
━━━━━━━━━━━━━━━━━━
第1题（10.0分）题号:18
------------------------------------------------
【窗体设计】
------------------------------------------------
题目：请按照题目要求设计指定的窗体。
建立如(图1)所示界面。
------------------------------------------------
1、在窗体内添加2个菜单(menu_File，menu_Set)。
然后在菜单(menu_Set)下添加2个菜单
(menu_Set_Font，
menu_Set_Color)。接着再在菜单(menu_Set_Font)
下添加
3个菜单(menu_Set_Font_Bold，
menu_Set_Font_Underline，
menu_Set_Font_Italic)，添加1个文本框(Text1)。
2、窗体设置：
设置窗体名称(Name)为“Form18”。
设置窗体标题(Caption)为“文本编辑”。
3、菜单设置：
设置菜单(menu_File)的标题(Caption)为“文件
(&F)”。
设置菜单(menu_Set)的标题(Caption)为“设置
(&S)”。
设置菜单(menu_Set)下的菜单(menu_Set_Font)的标
题(Caption)为“字体风格”。
设置菜单(menu_Set)下的菜单(menu_Set_Color)的
标题(Caption)为“颜色”。
设置菜单(menu_Set_Font)下的菜单
(menu_Set_Font_Bold)的标题(Caption)为“粗体”。
设置菜单(menu_Set_Font)下的菜单
(menu_Set_Font_Underline)的标题(Caption)为“下划
线”。
设置菜单(menu_Set_Font)下的菜单
(menu_Set_Font_Italic)的标题(Caption)为“斜体”。
4、文本框设置：
在文本框(Text1)中输入文本(Text)“中华人民共和
国”。
文本框滚动条样式的设置如图。
第2题（10.0分）题号:53
---------------------------------------------------------------------
【窗体设计】
---------------------------------------------------------------------
题目：请按照题目要求设计指定的窗体。（本题有6个
项目要完成）
建立如图008所示界面：
注意：保存时不得修改窗体和工程文件的名称及路径，否则后果自负。
--------------------------------------------------------------------- 1、窗体设置
1）标题为“单选演示”
2、在窗体上方添加一个标签控件
1）名称为“显示文本”
2）能自动调整大小
3）标题为“计算机基础教学研究室”
3、在窗体中间依次添加左右两个框架控件
1）左边的框架名称为“框架一”，标题为“字体”
2）右边的框架名称为“框架二”，标题为“字号”
4、在框架一中添加上下两个单选按钮
1）上方单选按钮标题为“黑体”
2）在上方单选按钮的单击事件过程中添加代码，使显示文本的字体为“黑体”
3）下方单选按钮标题为“宋体”
4）在下方单选按钮的单击事件过程中添加代码，使显示文本的字体为“宋体”
5、在框架二中添加上下两个单选按钮
1）上方单选按钮标题为“20”
2）在上方单选按钮的单击事件过程中添加代码，使显示文本的字体大小为“20”
3）下方单选按钮标题为“28”
4）在下方单选按钮的单击事件过程中添加代码，使显示文本的字体大小为“28”
6、在窗体右下角添加一个命令按钮
1）名称为“按钮”
2）标题为“改变”
3）Left设置为4680
4）在单击事件过程中添加代码，使显示文本的内容改为“计算机工程学院”
----------此为题目要求的最后一行，以下空白--------------------------------------- 试卷编号：8069
一、填空共10题（共计10分）
第1题（1.0分）题号:222
把整数0赋给一个逻辑型变量,则逻辑变量的值为【1】.
答案：1). False
第2题（1.0分）题号:317
由For k=35 to 0 step 3:next k循环语句控制的循环次
数是【1】.答案：1). 0
第3题（1.0分）题号:230
表达式(-3) Mod 8的值为【1】.答案：1). –3
第4题（1.0分）题号:277
如果在模块的声明段中有Option Base 1语句,则在该模
块中使用Dim a(3 To 5,6)声明的数组有【1】个元素.
答案：1). 18
第5题（1.0分）题号:63
sst="ABC12DE",则V al(sst)=【1】.答案：1). 0
第6题（1.0分）题号:278
若要在字符串asdgewl中取dge,则使用函数【1】实现.
答案：1). Mid$(asdgewl$,2,3) 或Mid(asdgewl,2,3)
第7题（1.0分）题号:320
VB中,变量的声明可分为两种方法:【1】数组和动态数
组.答案：1). 静态
第8题（1.0分）题号:288
文件按照存取方式及其组成结构可以分为顺序文件和
【1】.答案：1). 随机文件或随机
第9题（1.0分）题号:57
在控件之中,【1】不能从工具箱中被删除.
答案：1). 内部控件或标准控件
第10题（1.0分）题号:297
写出清除图片框的文字或图形信息的语句【1】.
答案1). Picture1.cls 或cls
二、判断共10题（共计10分）
第1题（1.0分）题号:268
从几十个项目中任选其中一项或多项时可选用列表框
或组合框控件实现. 答案：N
第2题（1.0分）题号:221
VB是一种面向对象的程序设计语言. 答案：Y
第3题（1.0分）题号:253
Listl.clear是清除Listl的全部列表项,所以Clear是对象
的方法答案：Y
第4题（1.0分）题号:271
当定时器控件的interval属性值设置为0时,会连续不断
地激发Timer事件. 答案：N
第5题（1.0分）题号:259
VB规定窗体文件的扩展名是.vbp. 答案：N
第6题（1.0分）题号:294
面向对象程序设计是一种以对象为基础,由事件驱动对
象执行的设计方法. 答案：Y
第7题（1.0分）题号:341
在VB中,可通过函数Now返回计算机系统的日期和
时间. 答案：N
第8题（1.0分）题号:234
如果某子程序add用public static sub add()定义,则该子
序的程变量都是局部变量. 答案：N
第9题（1.0分）题号:256
TextBox与Label有许多共同特点,它们都能显示和输入
文本. 答案：N
第10题（1.0分）题号:262
VB允许用户使用Type语句在窗体模块的通用声明中
自己定义数据类型. 答案Y
三、单项选择共10题（共计10分）
第1题（1.0分）题号:332
如果在图片框上使用绘图方法绘制一个实心圆,则图片
框的()属性决定了该圆的颜色.
A:BackColor B:ForeColor C:FillColor D:DrawStyle
答案：C
第2题（1.0分）题号:851
在文件列表框的实现文件的多重选择,应修改该控件的
()属性.
A:filename B:pattem C:path D:multiselect 答案：D
第3题（1.0分）题号:825
以下不属于VisualBasic系统的文件类型是().
A:.frm B:.bat C:.vbg D:.vbp 答案：B
第4题（1.0分）题号:311
可视化编程的最大优点是().
A:具有标准工具箱
B:一个工程文件由若干个窗体文件组成
C:不需要编写大量代码来描述图形对象
D:所见即所得答案：C
第5题（1.0分）题号:321
清除列表框的所有选项应选择下列哪种方法().
A:Clear B:Cls C:ClearItem D:RemoveItem答案：A 第6题（1.0分）题号:226
INT(100*RND(1))产生的随机整数的闭区间是().
A:[0,99] B:[1,100] C:[0,100] D:[1,99] 答案：A
第7题（1.0分）题号:257
产生[10,37]之间的随机整数的VisualBasic表达式是().
A:In t(Rnd(1)*27)+10 B:Int(Rnd(1)*28)+10
C:Int(Rnd(1)*27)+11 D:Int(Rnd(1)*28)+11 答案：B
第8题（1.0分）题号:352
为了在运行时能显示窗体左上角的控制框(系统菜单),必须().
A:把窗体的Contro1Box属性设置为Fale,其他属性任意B:把窗体的ControlBox属性设置为True,并且把BoderStyle属性设置为1-5
C:把窗体的ControlBox属性设置为False,同时把
BoderStyle属性调协为非0值
D:把窗体的ControlBox属性设置为True,同时把BoderStyle属性设置为0值答案：B 第9题（1.0分）题号:795
选中复选框控件时,value属性的值,可以是().
A:True B:false C:0 D:1 答案：D
第10题（1.0分）题号:340
设组合框Combo1中有3个项目,则以下能删除最后一项的语句是().
A:Combo1.RemoveItemText
B:Combo1.RemoveItem2
C:Combo1.RemoveItem3
D:Combo1.RemoveItemCombo1.Listcount
答案：B
四、多项选择共5题（共计10分）
第1题（2.0分）题号:276
下列语句哪些是错误的语句（）？
A:Const Imax As Integer=&o155
B:Const _Ga As String="abc"
C:Dim aa,bb As Integer,cc As String
D:yy=8,uu=9 答案：BD
第2题（2.0分）题号:285
在VB中，需要用数据访问对象对数据库进行访问，下
列哪些属于VB的数据访问对象（）。
A:DAO
B:ADO
C:OAD
D:RDO 答案：ABD
第3题（2.0分）题号:284
设A="abcdefghijklm"，下列（）的函数值为"jklm"。
A:Mid(A,10,4)
B:Left(A,4)
C:Right(A,4)
D:Mid(A,10,14) 答案：ACD
第4题（2.0分）题号:283
要选择列表框List1的第6项，可以使用语句（）。
A:List1.Selected(6)=True
B:List1.Selected(5)=True
C:List1.ListIndex=5
D:List1.Selected=5
答案：BC
第5题（2.0分）题号:275
下列说法中哪些是正确的（）？
A:逻辑型数据占1个字节
B:长整型数据占4个字节
C:单精度型数据占4个字节
D:一个汉字在Visual Basic中占1个字节答案：BCD
五、程序填空共1题（共计10分）
第1题（10.0分）题号:523
'-------------------------------------------------------
'【程序填空】
'-------------------------------------------------------
'功能：下面的程序用于求三个数中最大数
'-------------------------------------------------------
Private Sub Command1_Click()
Dim a, b, c, max, min As Integer
a = V al(InputBox("请输入第一个数："))
b = V al(InputBox(" 请输入第二个数："))
c = V al(InputBox("请输入第三个数："))
'**********SPACE**********
【?】= a
min = a
'**********SPACE**********
If b > max Then 【?】
If b < min Then min = b
'**********SPACE**********
If 【?】Then max = c
If c < min Then min = c
Print "最大数为："; max
Print "最小数为："; min
End Sub
答案：
1). max
2). max = b
3). c > max 或max < c
━━━━━━━━━━━━━━━━
六、程序改错共2题（共计20分）
━━━━━━━━━━━━━━━━
第1题（10.0分）题号:493
'------------------------------------------------
'【程序改错】
'------------------------------------------------
'题目:给定年号与月份，判断该年是否闰年,并根据给出的
' 月份来判断是什么季节和该月有多少天？
' （闰年的条件是：年号能被4整除但不能被100整除，
' 或者能被400整除。）
'------------------------------------------------
Option Explicit
Private Sub Form_Click()
Dim Y ear As Integer, Month As Integer, flag As Integer
Y ear = InputBox("输入年号：")
Month = InputBox("输入月份：")
'**********FOUND**********
If Y ear Mod 4 = 0 And Y ear Mod 100 <> 0 And Y ear Mod 400 <> 0 Then
'**********FOUND**********
flag = 0
MsgBox "闰年"
Else
flag = 0
MsgBox "非闰年"
End If
'**********FOUND**********
Select Case flag
Case 1
MsgBox "该月有31天，春季"
Case 2
If flag = 1 Then MsgBox "该月有29天，春季" Else MsgBox "该月有28天，春季"
Case 3
MsgBox "该月有31天，春季"
Case 4
MsgBox "该月有30天，夏季"
Case 5
MsgBox "该月有31天，夏季"
Case 6
MsgBox "该月有30天，夏季"
Case 7
MsgBox "该月有31天，秋季"
Case 8
MsgBox "该月有31天，秋季"
Case 9
MsgBox "该月有30天，秋季"
Case 10
MsgBox "该月有31天，冬季"
Case 11
MsgBox "该月有30天，冬季"
Case 12
MsgBox "该月有31天，冬季"
End Select
End Sub
答案：
1). If Y ear Mod 4 = 0 And Y ear Mod 100 <> 0 Or Y ear
Mod 400 = 0 Then 或If Y ear Mod 400 = 0 Or Y ear Mod
4 = 0 And Y ear Mod 100 <> 0 Then
2). Flag = 1
3). Select Case Month
第2题（10.0分）题号:121
'------------------------------------------------
'【程序改错】
'------------------------------------------------
'题目：一个两位的正整数，如果将它的个位数与十位
数
' 对调，则产生另一个正整数，我们把后者叫做
前
' 者的对调数，现给定一个两位的正数，请找到
另
' 一个两位的正整数，使得这两个两位正整数之
和
' 等于它们各自的对调数之和。
' 例如：12+32=23+21。下面程序把具有这种特征
的
' 两位正整数都找出来。
'------------------------------------------------
Option Explicit
Private Sub Form_Click()
Dim k As Integer, g As Integer, h As Integer, m As Integer
Dim n As Integer, i As Integer, t As Integer, s As Integer, j
As Integer
k = InputBox("请输入一个两位数")
k = V al(k)
g = Int(k / 10)
'**********FOUND**********
h = k - g * 10 m = h * 10 + g
Print "输入的两位数是"; k
'**********FOUND**********
For n = 1 To 99
i = Int(n / 10)
j = n - i * 10
t = i * 10 + j
s = j * 10 + i
If k + n = m + s Then
Print " "; k; "+("; t; ")=("; s; ")+"; m
'**********FOUND**********
End
Next n
End Sub
答案：
1). h = k - g * 10 : m = h * 10 + g 或h = k - 10 * g : m = h * 10 + g 或h = - g * 10 + k : m = h * 10 + g 或h = - 10 * g + k : m =
h * 10 + g
2). For n = 11 To 99 或For n = 10 To 99
3). End If
━━━━━━━━━━━━━━━━
七、程序设计共1题（共计10分）
━━━━━━━━━━━━━━━━
第1题（10.0分）题号:151
'-------------------------------------------------
'【程序设计】
'-------------------------------------------------
'题目：(事件)单击窗体。
' (响应)求1+2+3+……+100的值，并把结果输出在窗体上。
' 结果存入变量SUM中。
'-------------------------------------------------
答案：----------------------
Dim i As Integer
For i = 1 To 100
sum = sum + i
Next
Print sum
----------------------
━━━━━━━━━━━━━━━━━━
八、VB窗体设计共2题（共计20分）
━━━━━━━━━━━━━━━━━━
第1题（10.0分）题号:50
--------------------------------------------------------------------- 【窗体设计】
--------------------------------------------------------------------- 题目：请按照题目要求设计指定的窗体。（本题有6个
项目要完成）
建立如图005所示界面：
注意：保存时不得修改窗体和工程文件的名称及路径，
否则后果自负。
---------------------------------------------------------------------
1、窗体设置
1）名称为“个人介绍”
2）标题为“我的个人信息”
2、在窗体上方添加一个文本框控件
1）文本内容为“个人简历”
2）设置文本被锁定
3）文本允许多行
4）该文本框设置为不可见
3、在文本框下添加一个标签控件
1）内容右对齐
2）标题内容为“所获奖励”
3）该标签不可见
4、在标签下添加一个组合框控件
1）名称为“组合框”
2）列表项目依次为“小学”、“初中”、“高中”、“大
学”
3）列表项目排序属性设置为True
5、添加两个一级菜单，均无子菜单
1）第一个一级菜单，名称为Menu1，标题为“个
人简历”
2）第二个一级菜单，名称为Menu2，标题为“所
获奖励”
3）在Menu1的单击事件里添加代码，使文本框可
见
4）在Menu2的单击事件里添加代码，使标签可见
6、在窗体右下角添加一个命令按钮
1）标题为“清除”
2）在单击事件里添加代码，清除组合框里的所有
项目
----------此为题目要求的最后一行，以下空白
---------------------------------------
第2题（10.0分）题号:49
---------------------------------------------------------------------
【窗体设计】
---------------------------------------------------------------------
题目：请按照题目要求设计指定的窗体。（本题有5个
项目要完成）
建立如图004所示界面：
注意：保存时不得修改窗体和工程文件的名称及路径，
否则后果自负。
---------------------------------------------------------------------
1、窗体设置
1）名称设置为“Nanjing”
2）标题为“圣火南京路线”
3）窗体背景图片设置为当前程序目录下的“南
京.jpg”
4）窗体起始位置为“所有者中心”
2、在窗体上方添加一个标签控件
1）名称为“标签”
2）文字对齐方式为居中对齐
3）背景为透明
4）字体名称为黑体，字体大小为36
5）高度为975，宽度为3495
6）内容为“喜迎奥运”
3、在标签下方添加一个水平滚动条
1）最大变化为100
2）最大值为1000
3）最小值为100
4、在滚动条下方添加一个文件列表框
1）名称为“文件列表”
2）只显示后缀名为jpg的文件
5、在窗体右下角添加一个命令按钮
1）名称为“Clear”
2）标题为“清除”
3）在单击事件里添加代码，去除掉窗体的背景图片
----------此为题目要求的最后一行，以下空白---------------------------------------
试卷编号：8070
一、填空共10题（共计10分）
第1题（1.0分）题号:55
在VB中,若要使一个文本框(Text)中的内容在超过文本框的宽度时能够自动换行显示,应当将这个文本框的【1】属性的值设置为True 答案1). MultiLine
第2题（1.0分）题号:321
VB中,变量的声明可分为两种方法:隐式声明和【1】. 答案：1). 显式声明
第3题（1.0分）题号:39
要使同一类型控件组成一个控件数组,必须要求【1】. 答案：1). Name 相同或名称相同
第4题（1.0分）题号:296
写出清除标签Label1的显示信息的语句为【1】.
答案1). Label1.caption="" 或Label1="" 或Label1.Caption=""
第5题（1.0分）题号:224
变量min&表示【1】类型的变量. 答案：1). 长整型第6题（1.0分）题号:301
已知文本框的内容为"ABCDE",若文本框Selstart=4,Sellength=2,则SelText为【1】.
答案：1). DE
第7题（1.0分）题号:242
设x为大于零的实数,则大于x的最小偶数的Visual Basic表达式是【1】.
答案：1). iif(int(x) mod 2=0,int(x)+2,int(x)+1)
第8题（1.0分）题号:237
如果:I=11:J=3:I=int(-8.6)+I\J+13/3 MOD 5,则I值是【1】. 答案：1). -2
第9题（1.0分）题号:48 由Dim a (10) As single定义的数组占用【1】字节的内
存空间. 答案1). 44
第10题（1.0分）题号:298
写出用随机函数产生一个200至300之间整数的VB
表达式【1】.
答案1). 200 + Int( Rnd*100 ) 或200 + Int( 100*Rnd )
二、判断共10题（共计10分）
第1题（1.0分）题号:263
标签控件可以用来让用户输入数据. 答案：N
第2题（1.0分）题号:235
设A=3,B=4,C=5,D=6,则表达式A>B And C<=D Or 2*
A>C 的值是False. 答案：Y
第3题（1.0分）题号:358
在图片框中放置的控件既可以在该图片框内移动,也可
以移出该图片框外. 答案：N
第4题（1.0分）题号:249
Function函数有参数传递,并且一定有返回值. 答案：N
第5题（1.0分）题号:280
方法是VB 对象可以响应的用户操作. 答案：N
第6题（1.0分）题号:229
Single 和Double型用于保存浮点数,在VB中定义单精
度浮点8位,双浮点16位. 答案：N
第7题（1.0分）题号:228
Dim i, j as integer 表明i和j都是整型变量. 答案：N
第8题（1.0分）题号:341
在VB中,可通过函数Now返回计算机系统的日期和
时间. 答案：N
第9题（1.0分）题号:340
在VB中,计时器(Timer)定期激活Timer事件,使Timer
中的代码执行一次. 答案：Y
第10题（1.0分）题号:272
当需要在同一窗体中建立几组相互独立的单选钮时,就
要用框架将每一组单选钮框起来. 答案：Y
三、单项选择共10题（共计10分）
第1题（1.0分）题号:345
图像框(Image)的何项属性设置为true时,可使图形自动
调整大小,填满整个图像框().
A:Width
B:Picture
C:Name
D:Stretch 答案：D
第2题（1.0分）题号:811
要使一个标签透明且不具有边框,则应().
A:将其BackStyle属性设置为0,BorderStyle属性设置为
B:将其BackStyle属性设置为0,BorderStyle属性设置为
1
C:将其BackStyle属性设置为1,BorderStyle属性设置为
D:将其BackStyle属性设置为1,BorderStyle属性设置
为1 答案：B
第3题（1.0分）题号:290
当用户改变滚动条的value 属性时将激发滚动条的()
事件.
A:change
B:scroll
C:change 和scroll
D:gotfocus 答案：A
第4题（1.0分）题号:790
下面()控件不具有Caption属性.
A:标签框
B:单选钮
C:命令按钮
D:文本框答案：D
第5题（1.0分）题号:284
常用控件的Style属性值是().
A:字符常量
B:逻辑常量
C:数值常量
D:日期常量答案：C
第6题（1.0分）题号:807
要使得窗体在出现之前就完成相关的程序设置可在()事件中进行
编程.
A:linkopen
B:KeyPress
C:load
D:click 答案：C
第7题（1.0分）题号:236
VisualBasic集成环境的大部分窗口都可以从主菜单项()的下拉菜
单中找到相应的打开命令.
A:编辑
B:视图
C:格式
D:调试答案：B
第8题（1.0分）题号:296
工具栏中的"启动"按钮的作用是().
A:运行一个应用程序
B:运行一个窗体
C:工程管理窗口
D:打开被选中对象的代码窗口答案：A
第9题（1.0分）题号:238
变量未赋值时,数值型变量的值为().
A:0
B:空
C:1
D:无任何值答案：A
第10题（1.0分）题号:225
"对象"是计算机系统运行的().
A:程序单位
B:逻辑单位
C:物理实体
D:基本实体答案：D
四、多项选择共5题（共计10分）第1题（2.0分）题号:284
设A="abcdefghijklm"，下列（）的函数值为"jklm"。
A:Mid(A,10,4)
B:Left(A,4)
C:Right(A,4)
D:Mid(A,10,14) 答案：ACD
第2题（2.0分）题号:277
下列说法哪些是正确的（）？
A:不能对符号常量重新赋值
B:Label控件用来在窗体中显示文本，其中的文本用户
不能直接修改
C:TAB()函数用于在输出表达式前将输出点定位在第
N-1个字符位置
D:格式输出函数Format()可以使数值、日期或字符串按
用户指定的格式输出答案：ABD
第3题（2.0分）题号:276
下列语句哪些是错误的语句（）？
A:Const Imax As Integer=&o155
B:Const _Ga As String="abc"
C:Dim aa,bb As Integer,cc As String
D:yy=8,uu=9 答案：BD
第4题（2.0分）题号:281
窗体也是一个对象，它具有（）的特征。
A:属性
B:过程
C:事件
D:方法答案：ACD
第5题（2.0分）题号:279
下面有关数组的说法那些是错误的（）？
A:数组存放的是具有相同数据类型的多个数据
B:数组的下标允许是常数、表达式或变量
C:DIM语句声明的数组把数组中的全部数组都初始化
为逻辑型
D:多维数组中每一维的大小为上界-下界；数组的大小
为每一维大小的乘积
E:动态数组是指在声明时没有给出数组的大小，当要使
用数组时，再决定数组的大小答案：BCD
五、程序填空共1题（共计10分）
第1题（10.0分）题号:507
Option Explicit
'-------------------------------------------------------
'【程序填空】
'-------------------------------------------------------
'功能：本程序实现功能：将顺序文本文件
“MYFILE.TXT”的
' 内容一个字符一个字符地读入文本框
txtTest中
'-------------------------------------------------------
Private Sub Form_Click()
Dim InputData As String * 1
txtTest.Text = ""
'**********SPACE**********
Open App.Path & "\MYFILE.TXT" For 【?】
As #1
'**********SPACE**********
Do While 【?】EOF(1)
Input #1, InputData
'**********SPACE**********
txtTest.Text = txtTest.Text + 【?】
Loop
Close #1
End Sub
答案：
1). Input
2). Not
3). InputData
━━━━━━━━━━━━━━━━
六、程序改错共2题（共计20分）
━━━━━━━━━━━━━━━━
第1题（10.0分）题号:474
'------------------------------------------------
'【程序改错】
'------------------------------------------------
'题目:程序功能为求解一元二次方程的实根，请修正程序中错误。
'------------------------------------------------
Option Explicit
Private Sub Form_Load()
Dim a!, b!, c!, root1#, root2#, work As Double
a = V al(InputBox(" 请输入系数a的值"))
b = V al(InputBox(" 请输入系数b的值"))
c = V al(InputBox(" 请输入系数c的值"))
'**********FOUND**********
work = b * 2 - 4 * a * c
If work >= 0 And a <> 0 Then
'**********FOUND**********
root1 = (Sqr(work)) / (2 * a)
'**********FOUND**********
root2 = (Sqr(work)) / (2 * a)
Debug.Print "有二个实根" + Str$(root1) + "," + Str$(root2)
Else
Debug.Print "无实根!"
End If
End Sub
答案：
1). work = b ^ 2 - 4 * a * c 或work = b *b - 4 * a * c
2). root1 = (-b + Sqr(work)) / (2 * a) 或root1 = ( Sqr(work) -b ) / (2 * a) 或root1 = (-b + Sqr(work)) / ( a*2) 或root1 = ( Sqr(work) -b ) / ( a*2)
3). root2 = (-b - Sqr(work)) / (2 * a) 或root2 = (- Sqr(work) - b) / (2 * a) 或root2 = (-b - Sqr(work)) / ( a*2) 或root2 = (- Sqr(work) - b) / (a*2)
第2题（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 = V al(InputBox("请输入一个整数(m)："))
n = V al(InputBox("请输入一个整数(n)："))
'**********FOUND**********
C = fac(n) / fac(n - m) * fac(m)
Print "C="; C
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) )
━━━━━━━━━━━━━━━━
七、程序设计共1题（共计10分）
━━━━━━━━━━━━━━━━
第1题（10.0分）题号:483
'-------------------------------------------------
'【程序设计】
'-------------------------------------------------
'题目：编写函数fun，函数的功能是：求1到m
' 之间的偶数之积。
'-------------------------------------------------
答案：----------------------
Dim y As Double
y = 1
Dim i As Integer
For i = 1 To m
If i Mod 2 = 0 Then
y = y * i
End If
Next
fun = y
----------------------
━━━━━━━━━━━━━━━━━━
八、VB窗体设计共2题（共计20分）
━━━━━━━━━━━━━━━━━━
第1题（10.0分）题号:6
------------------------------------------------
【窗体设计】
------------------------------------------------
题目：请按照题目要求设计指定的窗体。
建立如(图1)所示界面。
------------------------------------------------
1、添加控件
在窗体内添加3个文本框(Text1，Text2，Text3)，
3个标签(Label1，Label2，Label3)，
2个水平滚动条(HScroll1，HScroll2)。
2、窗体设置：
设置窗体名称(Name)为“Form6”。
设置窗体标题(Caption)为“VB上机试卷”。
3、文本框设置：
在第1个文本框(Text1)中输入文本(Text)“颜色调节”，
设置文本的对齐方式为“居右对齐”。
设置第2个文本框(Text2)的内容为空。
设置第3个文本框(Text3)的内容为空。
所有文本框的字体、字号可任选。
4、标签设置：
设置第1个标签(Label1)标题(Caption)为“文本框的前景色”。
设置第2个标签(Label2)标题(Caption)为“文本框的背景色”。
设置第3个标签(Label3)标题(Caption)为“当前值”。
5、滚动条设置：
适当调整水平滚动条的大小和位置。
第2题（10.0分）题号:8
------------------------------------------------
【窗体设计】
------------------------------------------------
题目：请按照题目要求设计指定的窗体。
建立如(图1)所示界面。
------------------------------------------------
1、添加控件：
在窗体内添加1个文本框(Text1)，
1个标签(Label1)，
2个按钮(Command1，Command2)，
3个菜单(名称分别为menu_File，menu_Edit，menu_Help)。
2、窗体设置：
设置窗体名称(Name)为“Form8”。
设置窗体标题(Caption)为“Form8”。3、标签设置：
设置标签(Label1)的标题(Caption)为“输入密码:”，
AutoSize属性为真。
4、文本框设置：
设置文本框“密码字符”为“*”，
在文本框(Text1)中输入文本“Text1”。
5、菜单设置：
设置菜单(menu_File)的标题(Caption)为“文件
(&F)”，
并将菜单项设为“无效”。
设置菜单(menu_Edit)的标题(Caption)为“编辑
(&E)”。
并将菜单项设为“无效”。
设置菜单(menu_Help)的标题(Caption)为“帮助
(&H)”。
并将菜单项设为“无效”。
6、按钮设置：
设置按钮(Command1)的标题(Caption)为“确定”。
设置按钮(Command2)的标题(Caption)为“下一步”，
按钮设置无效。
试卷编号：8071
一、填空共10题（共计10分）
第1题（1.0分）题号:247
声明定长为10个字符变量Sstr的语句为【1】.
答案：1). Dim Sstr as String*10 或Sstr as String*10
第2题（1.0分）题号:251
Print "x=" & (2=4) 的结果为【1】. 答案：1). x=False
第3题（1.0分）题号:279
设置计时器对象触发事件的时间间隔用【1】属性.
答案：1). interval
第4题（1.0分）题号:59
在利用Visual Basic设计应用程序时,一般会遇到三类
错误:语法错误、执行错误和【1】.答案1). 逻辑错误
第5题（1.0分）题号:295
想拥有"快捷键"这项功能,必须在"菜单编辑器"中增加
一些特殊的设置,也就是在字母之前加上【1】.
答案：1). &
第6题（1.0分）题号:230
表达式(-3) Mod 8的值为【1】.答案：1). –3
第7题（1.0分）题号:273
如果要使用命令按钮表面显示文字"退出(X)"(在字符X
之下加下划线),则其Caption属性设置为【1】.
答案：1). 退出(&X)
第8题（1.0分）题号:221
把条件1<=X<12写成VB关系表达式为【1】.
答案：1). x>=1 and x<12 或x<12 and x>
第9题（1.0分）题号:237
如果:I=11:J=3:I=int(-8.6)+I\J+13/3 MOD 5,则I值是【1】.
答案：1). -2
第10题（1.0分）题号:287
文本框中所显示的内容是它的【1】属性的值. 1). Text
二、判断共10题（共计10分）
第1题（1.0分）题号:368
如果在过程调用时使用按地址传递参数,则在被调过程
中不可以改变实参的值. 答案：N
第2题（1.0分）题号:337
在VB6.0中命令按钮不仅响应Click事件,而且响应
DbClick事件. 答案：N
第3题（1.0分）题号:279
对于文件系统控件,当驱动器控件Drive1中的驱动器符
改变时,文件夹列表控件Dir1中显示的文件夹也作相应
改变,可以在Drive1中的Change事件中使用如下命
令:Dir1.Path=Drive1.Drive. 答案：Y
第4题（1.0分）题号:265
菜单每一菜单项都是控件,可以通过点击菜单项或通过
光标选择并按回车键,以触发Click事件. 答案：Y
第5题（1.0分）题号:267
窗体的Enabled属性值为False时,该窗体上的按钮、文
本框等控件就不会对用户的操作做出反应. 答案：Y
第6题（1.0分）题号:261
VB允许设计和使用用户自己设计的控件. 答案：Y 第7题（1.0分）题号:278
对象是基本的运行实体,它既包括了数据(属性).也包括作用于对象的操作(方法)和对象的响应动作(事件).
答案：Y
第8题（1.0分）题号:233
全局变量用global或public关键字声明,且仅在通用声明处可以定义. 答案：N 第9题（1.0分）题号:362
属性是用来描述和反映对象特征的参数,不同的对象具有各自不同的属性,对象的所有属性都可以在属性窗口中设置. 答案：N 第10题（1.0分）题号:235
设A=3,B=4,C=5,D=6,则表达式A>B And C<=D Or 2* A>C 的值是False. 答案：Y ━━━━━━━━━━━━━━━━━
三、单项选择共10题（共计10分）
━━━━━━━━━━━━━━━━━
第1题（1.0分）题号:795
选中复选框控件时,value属性的值,可以是().
A:True
B:false
C:0
D:1 答案：D
第2题（1.0分）题号:269
系统符号常量的定义通过()获得.
A:对象浏览器B:代码窗口C:属性窗口D:工具箱
答案：A
第3题（1.0分）题号:855
在逐行运行程序的语句时,可用调试窗口监视表达式和变量的值,其中()窗口是用来显示代码中正在调试的语句所产生的信息,或显示直接在该窗口中键入的命令所请求的信息.
A:立即B:监视C:本地D:中断答案：A
第4题（1.0分）题号:277
MSGBOX函数中有4个参数,其中必须写明的参数是().
A:指定对话框中显示按钮的数目
B:设置对话框标题
C:提示信息
D:所有参数都是可选的
答案：C
第5题（1.0分）题号:295
工程资源管理器窗口中包含的文件类型有()种.
A:2 B:3 C:4 D:5 答案：C
第6题（1.0分）题号:309
将通用对话框类型,设置为字体对话框,可修改该控件
的()属性.
A:font B:filename C:filter D:action 答案：D
第7题（1.0分）题号:266
如果X是一个正的实数,将千分位四舍五入,保留两位
小数的表达式是().
A:0.01*int(x+0.05)
B:0.01*int(100*(x+0.005))
C:0.01*int(100*(x+0.05))
D:0.01*int(x+0.005)
答案：B
第8题（1.0分）题号:793
下面哪些控件不会影响到界面设计效果().
A:Label B:Text C:CommonDialog D:Frame
答案：C
第9题（1.0分）题号:278
要在图片框P1中打印字符串"HowAreY ou",应使用语
句().
A:Picture1.Print="HowAreY ou"
B:P1.Picture=LoadPicture("HowAreY ou")
C:P1.Print"HowAreY ou"
D:Print"HowAreY ou"
答案：C
第10题（1.0分）题号:831
以下叙述中错误的是().
A:双击鼠标可以触发DblClick事件
B:窗体或控件的事件的名称可以由编程人员确定
C:移动鼠标时,会触发MouseMove事件
D:控件的名称可以由编程人员设定
答案：B
━━━━━━━━━━━━━━━━
四、多项选择共5题（共计10分）
━━━━━━━━━━━━━━━━
第1题（2.0分）题号:280
请把下面说法中正确的选出来（）。
A:在函数调用过程中数值型函数的默认返回值为0，可
变型函数的默认返回值为空串
B:在调用Sub过程中使用Call语句时，参数必须在括
号内
C:过程本身使用的参数列表称为“形参”，而主程序传
递给过程的真正参数称为“实参”
D:DIM语句声明的数组把数值数组中的全部数组元素
都初始化为0，把字符串数组中的全部元素都初始化为
空字符串
答案：BCD
第2题（2.0分）题号:278
下列哪些标识符不符合变量的命名规则（）？
A:hyu B:$abc C:4w D:y.u E:ty% F:_n8
答案：BCDEF
第3题（2.0分）题号:276
下列语句哪些是错误的语句（）？
A:Const Imax As Integer=&o155
B:Const _Ga As String="abc"
C:Dim aa,bb As Integer,cc As String
D:yy=8,uu=9
答案：BD
第4题（2.0分）题号:283
要选择列表框List1的第6项，可以使用语句（）。
A:List1.Selected(6)=True
B:List1.Selected(5)=True
C:List1.ListIndex=5
D:List1.Selected=5
答案：BC
第5题（2.0分）题号:279
下面有关数组的说法那些是错误的（）？
A:数组存放的是具有相同数据类型的多个数据
B:数组的下标允许是常数、表达式或变量
C:DIM语句声明的数组把数组中的全部数组都初始化为逻辑型
D:多维数组中每一维的大小为上界-下界；数组的大小为每一维大小的乘积
E:动态数组是指在声明时没有给出数组的大小，当要使用数组时，再决定数组的大小
答案：BCD
━━━━━━━━━━━━━━━━
五、程序填空共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分）题号:459
'------------------------------------------------
'【程序改错】
'------------------------------------------------
'题目：随机产生n个两位正整数（n由输入对话框输
入，且n>0），
' 求出其中的偶数之和，并在标签框Label1上显
示。
'------------------------------------------------
Option Explicit
Private Sub Command1_Click()
Dim n As Integer
Dim i As Integer, sum As Long
Dim rnddat As Integer
n = V al(InputBox("Please input a integer", "Input N
value"))
'**********FOUND**********
sum = n
If n > 0 Then
For i = 1 To n
'**********FOUND**********
rnddat = (Int(90 * Rnd))
Me.Print rnddat;
'**********FOUND**********
If rnddat / 2 = 0 Then
sum = sum + rnddat
End If
Next i
Label1.Caption = sum
End If
End Sub
答案：
1). sum=0
2). rnddat = (10 + Int(90 * Rnd)) 或rnddat = ( 10 +
Int(90 * Rnd))
3). If rnddat Mod 2 = 0 Then 或If rnddat / 2 =
int(rnddat/2) Then 或If rnddat / 2 = cint(rnddat/2)
Then
第2题（10.0分）题号:476
'------------------------------------------------
'【程序改错】
'------------------------------------------------
'题目:由输入对话框输入n（设n为大于零且小于30的
自然数），
' 计算如图1所示的表达式，并在标签框Label1
上显示。
'------------------------------------------------
Option Explicit
Private Sub Form_Click()
Dim n As Integer, sum As Double, k As Integer
n = V al(InputBox("n=", "请输入自然数n(n>0 且
n<30)"))
'**********FOUND**********
Do While n > 0 Or n < 30
n = V al(InputBox("n=", "请重输入"))
Loop
sum = 0
k = 0
Do
'**********FOUND**********
二、选择题 1、菜单控件只包括一个事件，即 C ，当用鼠标单击或键盘选中后按“回车”键时触发该事件，除分隔条以外的所有菜单控件都能识别该事件。 A、GotFocus B、Load C、Click D、KeyDown 2、滚动条控件(如图所示)的Max属性所设置的是 A 。 A、滚动框处于最右位置时，一个滚动条位置的Value属性最大设置值 B、单击滚动条和滚动箭头之间的区域时，滚动条中滚动块的最大移动量 C、单击滚动条的箭头区域时，滚动条中滚动块的最大移动量 D、滚动条控件无该属性 3、SQL 语句 Select * Form student 中的 *表示 B 。 A、所有记录 B、所有字段 C、所有表 D、都不对 4、以下选项中，不属于标签的属性是 C 。 A、Enabled B、Caption C、Default D、Font 5、要求改命令按钮显示的文本，应当在属性窗口中改变的属性是 A 。 A、Caption B、Name C、Text D、Label 6、设置一个单选按钮(OptionButton)所代表选项的选中状态，应当在属性窗口中改变的属性是 D 。 A、Caption B、Name C、Text D、Value
7、允许在菜单项的左边设置打勾标记，下面哪种论述是正确的 D 。 A、在标题项中输入&，然后打勾 B、在索引项中打勾 C、在有效项中打勾 D、在复选项中打勾 8、当执行以下过程时，在窗体上将显示 A 。 Private Sub Command1_Click( ) Print "VB"; Print "Hello! "; Print "VB" End Sub A、 VBHello!VB B、 VB Hello!VB C、 VB D、 VB Hello! VB Hello! VB 9、语句Print "The answer is:";20/4-2的结果为 B 。 A、The answer is 20/4-2 B、The answer is 3 C、The answer is "20/4-2" D、非法语句 10、下列哪个控件是容器控件 B 。 A、Image B、Picture C、ComboBox D、FileListBox 11、若要将窗体从内存中卸载出去，其实现的方法是 D 。 12、以下选项中，不是 Visual Basic控件的是 A 。 A.窗体 B.定时器 C.单选框 D.命令按钮 13、双击窗体中的对象后，Visual Basic将显示的窗口是 A 。 A.代码窗口 B．工具箱 C．项目（工程）窗口 D．属性窗口 14、可决定窗体的左上角是否有控制菜单的属性是 A 。 15、设有如下语句： Strl＝InputBox（"输人"，""，"练习"） 从键盘上输人字符“示例”后，Strl的值是 D 。 A．“输入” B．“” C．“练习” D．“示例” 16、窗体Form1的Name属性是Frm1,它的单击事件过程名是 C 。 A. Form1_Click C. Frm1_Click D. Me_Click 17、窗体的hide属性的含义是 A 。 A.隐藏 B.展现 C.装入 D.卸载 18、若要设置定时器控件的定时时间，需设置的属性是 C 。 A．Enabled B．Value C．Interval D．Text 19、能够改变复选框中背景颜色的属性是 C 。
大学VB考试题库 一、单项选择题 1、与传统的程序设计语言相比,Visual Basic最突出的特点是（）。 A、结构化程序设计 B、程序开发环境 C、事件驱动编程机制 D、程序调试技术 2、赋值语句：a=123& MID("123456",3,2)执行后，a变量中的值是（）。 A、"12334" B、123 C、12334 D、157 3、保存一个工程至少应保存两个文件，这两个文件分别是（B）。 A、文本文件和工程文件 B、窗体文件和工程文件 C、窗体文件和标准模块文件 D、类模块文件和工程文件 4、以下能在窗体Form1的标题栏中显示"VisualBasic窗体"的语句是（C）。 A、https://www.doczj.com/doc/5b1545868.html,="VisualBasic窗体" B、Form1.Title="VisualBasic窗体" C、Form1.Caption="VisualBasic窗体" D、Form1.Text="VisualBasic窗体" 5、为了装入一个VisualBasic应用程序，应当（D） A、只装入窗体文件（.frm） B、只装入工程文件（.vbp） C、分别装入工程文件和标准模块文件（.bas） D、分别装入工程文件、窗体文件和标准模块文件 6、赋给一个数组的数据类型一定要（A）。 A、相同 B、不相同 C、两可 D、都不对 7、下面正确的赋值语句是（C）。 A、x+y=30 B、y=π*r*r C、y=x+30 D、3y=x 8、VisualBasic 6.0集成环境的主窗口中不包括（C）。
A、标题栏 B、菜单栏 C、状态栏 D、工具栏 9、以下叙述中错误的是(C)。 A、Visual Basic 是事件驱动型可视化编程工具 B、Visual Basic应用程序不具有明显的开始和结束语句 C、Visual Basic工具箱中的所有控件都具有宽度（Width）和高度（Height）属性(计时器) D、Visual Basic中控件的某些属性只能在运行时设置 10、要使Print方法在Form_Load事件中起作用，要对窗体的(C)属性进行设置。 A、Backcolor B、ForeColor C、AutoRedraw D、BackStyle 11、若要使命令按钮不可操作，要对(A)属性进行设制。 A、Enabled B、Visible C、BackColor D、Caption 12、以下叙述中错误的是(B)。 A、一个工程中可以包含多个窗体文件 B、在一个窗体文件中用Private定义的通用过程能被其他窗体调用 C、在设计VB程序时，窗体、标准模块、类模块等需要分别保存为不同类型的磁盘文件。 D、一个工程默认的启动对象是Form1 13、Cls方法可以清除窗体或图片框中的(C)内容。 A、在设计阶段使用Picture设置的背景位图 B、在设计阶段放置的控件 C、在运行阶段产生的图形和文字 D、以上均可 14、设x=3,y=5,则以下表达式值为真的是 (C) A、(-3+5>x) And (y>0) B、(x<0) Eqv (y>0) C、(x>y) Or (y>0) D、x>=y And y>10 15、为了防止用户随意将光标置于控件之上，应将进行(D)设置。 A、将控件的TabIndex属性设置为0
第1题（1.0分）题号:227 表达式1 and 0的值【1】.答案：1). False 第2题（1.0分）题号:222 把整数0赋给一个逻辑型变量,则逻辑变量的值为【1】. 答案：1). False 第3题（1.0分）题号:60 a 和b 中有仅只有一个为1,相应的Visual Basic逻辑表达式为【1】. 答案：1). a=1 xor b=1 第5题（1.0分）题号:244 设x为一个两位数,将x个位数和十位数交换后所得两位数VB的表达式是【1】. 答案：1). (x mod 10) * 10 + int(x/10) 第7题（1.0分）题号:226 表达式32\7 MOD 3^2 的值是【1】. 答案：1). 4 第8题（1.0分）题号:288 文件按照存取方式及其组成结构可以分为顺序文件和【1】. 答案1). 随机文件或随机 第9题（1.0分）题号:319 Option Base 1的作用是确定数组的下界为【1】. 答案：1). 1 第1题（1.0分）题号:236 所有的VB 的变量,都有隐含说明字符和强调声明两种方法来定义. 答案：N 第2题（1.0分）题号:246 ActiveX控件是扩展名为*.ocx的独立文件,使用时需用 "工程"/"部件"载入或移去. 答案：Y 第3题（1.0分）题号:289 框架控件和形状控件都不能响应用户的鼠标的单击事件. 答案：Y 第4题（1.0分）题号:350 在窗体模块的声明部分中用Private声明的变量的有效范围是其 所在的工程. 答案：N 第5题（1.0分）题号:354 在框架控件上放置的控件可以移动到框架控件的外面. 答案：N 第6题（1.0分）题号:231 可以用"&","+"合并字符串,但是用在变异变量时,"+"可能会将两个数值加起来.答案：Y 第8题（1.0分）题号:247 Circle方法绘制扇形或圆弧图形时,图形的形状不仅与起始角、终止角的大小相关,而且与起始角、终止角的正或负相关.答案：Y 第9题（1.0分）题号:330 有一个程序在属性窗口中设置了它的窗体字体大小为10号,而程序代码若设置了它的窗体字体大小为20号,那么当程序运行后实际的窗体字体大小为20号.答案：Y 第10题（1.0分）题号:225 Visual Basic程序的运行可以从Main()过程启动,也可以从某 个窗体启动. 答案：Y 第1题（1.0分）题号:319 能够改变窗体边框线类型的属性是(). A:FontStyleB:BorderStyleC:BackStyleD:Bord er 答案：B 第2题（1.0分）题号:822 以下()对象不具有Clear方法. A:列表框B:组合框C:剪贴板D:图片框 答案：D 第3题（1.0分）题号:258 常量-0.00013579的科学计数法是(). A:-1,3579E+0.4B:.00013579C:-13.579E-5D:-1.3579E-0.4 答案：C 第4题（1.0分）题号:230 vb 应用程序是分层管理的,其最高的层次为(). A:工程B:模块C:窗体D:过程 答案：A 第5题（1.0分）题号:837 用户可以通过设置菜单项的()属性值为FALSE来使该菜单项不可见. A:HideB:CheckedC:VisibleD:Enabled答案：C 第6题（1.0分）题号:334 若要使标签控件显示时,不覆盖其背景内容,
九江学院期末考试复习题（政法A1111）第一套 一、判断题 1、Visual Basic程序开发的特点是面向对象的事件驱动。（√） 2、Print_Text 是一个不合法的变量名。（×） 3、窗体的AutoRedraw属性实现了屏幕图像的重建。（√） 4、设置字体大小应使用Font属性（×） 5、Sub过程可以实现嵌套调用（√） 6、IIF函数中的三个参数都不能省略。（√） 7、块结构条件语句以End If结束，而单行结构条件语句没有End IF。（√） 8、当终值小于初值时，步长为负数。（√） 9、执行While-Wend循环时，如果一开始条件就不成立，则语句块一次也不会执行。（√） 10、关于数组的引用,在程序中,凡是简单变量可以出现的地方都可以出现数组元素的引用(√) 二、单项选择题 1．Print Format（123，”####”）执行之后的结果为 A）＃123B）123C）123＃D）＃＃＃＃ 【答案】B 2．下面可以表示注释语句开头的为 A）Re B）R C）Rem D）dim 【答案】C 3．下列选项中窗体载入事件为
A）Load事件B）Click事件C）DblClick事件D）Unload事件 【答案】A 4．Timer控件可以使用下列哪种事件 A）Click事件B）Timer事件C）Dblclick事件D）Change事件 【答案】B 5．在InputBox函数中哪一个参数是必须的 A）Prompt B）Buttons C）Title D）Context 【答案】A 6．以下叙述中错误的是： A）如果过程被定义为Static类型，则该过程中的局部变量都是Static类型B）Sub过程中不能嵌套定义Sub过程 C）Sub过程可以嵌套调用Sub过程 D）事件过程可以像通用过程一样由用户定义过程名 【答案】C 7．要填加一个标准模块，可使用“_____”菜单中的“添加模块”命令。 A）文件B）视图C）工程D）工具 【答案】C 8．在块结构条件语句If-Then / Endif中 (A)必须至少有一个Elseif语句 (B )可以有任意多个ElseIf-Then语句 (C)如果没有Else语句，运行时将出现错误
VB期末考试试题A卷 一、填空题 1、VB程序设计的主要特点是（1）和（2）。 2、在VB中，最主要的两种对象是（3）和（4）。 3、工程是构成应用程序文件的（5）。 4、方法是VB提供的一种（6），用来完成一定的操作。 5、浮点类型数据包括单精度型和___（7）__数据。 6、事件是窗体或控件对象识别的___（8）____。 7、可用窗体的___（9）_ 方法在窗体中显示文字。 8、复选框控件Value属性指示复选框处于____（10）___或禁止状态(暗淡的)中的某一种。 9、在VB中，修改窗体的（11）和（12）属性值，可改变窗体的大小。 10、双击工具箱中的控件图标，可在窗体的（13）出现一个尺寸为缺省值的控件。 11、在MsgBox函数中，如果缺省title参数，则使用（14）作为消息框的标题。 12、设x＝34.58，语句Print Format(x,“000.0”)的输出结果是（15）。 13、在VB 中，数值型变量的初值为（16），Varant型变量的初值为（17），布尔型变量的初值为（18）。 14、设置窗体的（19）属性，可在窗体上显示图片。 15、程序运行工程中，清除MP图片框中的图片应使用语句（20）。 二、选择题 1、菜单控件只包括一个事件，即（1），当用鼠标单击或键盘选中后按“回车”键时触发该事件，除分隔条以外的所有菜单控件都能识别该事件。 A、GotFocus B、Load C、Click D、KeyDown 2、滚动条控件(如图所示)的Max属性所设置的是（2）。 A、滚动框处于最右位置时，一个滚动条位置的Value属性最大设置值 B、单击滚动条和滚动箭头之间的区域时，滚动条中滚动块的最大移动量 C、单击滚动条的箭头区域时，滚动条中滚动块的最大移动量 D、滚动条控件无该属性 3、SQL 语句 Select * Form student 中的 *表示（3）。 A、所有记录 B、所有字段 C、所有表 D、都不对 4、以下选项中，不属于标签的属性是（4）。 A、Enabled B、Caption C、Default D、Font 5、要求改命令按钮显示的文本，应当在属性窗口中改变的属性是（5）
2011-2012学年第一学期算法与程序设计期末考试题 班级：姓名：分数： 一、单项选择题（每题4分） 1.算法是解决问题的( ) A.程序代码 B.方法与步骤 C.计算公式 D.最终结果 2.以下不能作为vb常量的的是( ) A.“Good Luck” B. PI C. 1.5E-3 D. 16.34 3.以下各表达式中, 计算结果为0的是( ) A. INT(12.4)+INT(-12.6) B. CINT(12.4)+CINT(-12.6) C. FIX(13.6)+FIX(-12.6) D. FIX(12.4)+FIX(-12.6) 4.设a=″Visual Basic″，下面使b=″Basic″的语句是( ) A.b=Left(a，8，12) B.b=Mid(a，8，5) C.b=Right(a，5，5) D.b=Left(a，8,5) 5.inputbox() 函数返回值类型为( ) A.数值 B.字符串 C.数值和字符串 D.变体 6.下列关于For…Next语句的说法正确的是( ) A. 循环变量、初值、终值和步长都必须为数值型 B.Step后的步长只能为正数 C. 初值必须小于终值 D.初值必须大于终值 7.下列符号中，只有( )是合法的VB变量名。 A．xy23 B．23xy C．Sub D．xy8[1] 8.数学表达式Sin30°写成VB表达式是( ) A．Sin30 B．Sin(30) C．Sin(30°) D．Sin(30*3.14/180) 9.在VB的运算中，级别最高的是( ) A．= B．And C．Or D．Not 10.判断任意3条线段a、b、c能否构成三角形的表达式为( ) A．a+b>=c Or a+c>=b Or b+c>=a B．Not(a+b
第一部分：客观题 一、单项选择题 1、在窗体模块的通用段中声明变量时，不能使用的关键字是（） A、 Dim B、 Public C、Private D、 Static 2、在设计阶段，当双击窗体上的某个控件时，所打开的窗口是（） A、工程资源管理器窗口 B、工具箱窗口 C、属性窗口 D、代码窗口 3、若要使某可见控件获得焦点，可使用（）方法来实现。 Ａ、RefreshＢ、SetfocusＣ、GotfocusＤ、Value 4、下列不可作为VB变量名的是（） A、ABT1 B、Alpha C、ABC D、4*Delta 5、表达式 5 Mod 3+3\5*2的值是（） A、 0 B、 6 C、4 D、 2 6、下列语句中，正确的赋值语句是（） A、 i + j = 10 B、 2i = j C、 j = i + j D、 i * j = 0 7、执行下列程序段后，x的值是（）。
n = 4: x = 1: i = 1 Do x = x * i i = i + 1 Loop While i < n A、 2 B、 6 C、 10 D、 14 8、当用户在窗体上单击鼠标时，不会触发的事件是（） Ａ、ClickＢ、MouseDownＣ、MouseUpＤ、DblClick 9、下列为整型变量的是（） A、 x! B、 x# C、x$ D、 x% 10、要从For循环中直接退出循环，可使用的语句( )。 A、Exit Do B、Exit Loop C、Exit For D、Stop 11、下列逻辑表达式中，能正确表示条件“x，y都是奇数”的是（） A、x Mod 2 =1 Or y Mod 2 =1 B、x Mod 2 =0 Or y Mod 2=0 C、x Mod 2 =0 And y Mod 2=0 D、x Mod 2 =1 And y Mod 2 =1 12、在通用声明中给出Option Base 1语句，则数组a包含（）个数组元素。 Dim a(3, -2 To 1, 5) As Integer A、60 B、75 C、120 D、13
第一部分：客观题 1、 单项选择题 1、在窗体模块的通用段中声明变量时，不能使用的关键字是（ ） A、 Dim B、 Public C、Private D、 Static 2、在设计阶段，当双击窗体上的某个控件时，所打开的窗口是 （ ） A、工程资源管理器窗口 B、工具箱窗口 C、 属性窗口 D、代码窗口 3、若要使某可见控件获得焦点，可使用（ ）方法来实现。 Ａ、Refresh Ｂ、Setfocus Ｃ、Gotfocus Ｄ、Value 4、下列不可作为VB变量名的是（ ） A、ABT1 B、Alpha C、ABC D、4*Delta 5、表达式 5 Mod 3+3\5*2的值是 （ ） A、 0 B、 6 C、4 D、 2 6、下列语句中，正确的赋值语句是（ ） A、 i + j = 10 B、 2i = j C、 j = i + j D、 i * j = 0 7、执行下列程序段后，x的值是（ ）。 n = 4: x = 1: i = 1 Do x = x * i i = i + 1 Loop While i < n A、 2 B、 6 C、 10 D、 14 8、当用户在窗体上单击鼠标时，不会触发的事件是（ ） Ａ、Click Ｂ、MouseDown Ｃ、MouseUp Ｄ、DblClick 9、下列为整型变量的是（ ） A、 x! B、 x# C、x$ D、 x% 10、要从For循环中直接退出循环，可使用的语句( )。 A、Exit Do B、Exit Loop C、Exit For D、Stop 11、下列逻辑表达式中，能正确表示条件“x，y都是奇数”的是 （ ） A、x Mod 2 =1 Or y Mod 2 =1 B、x Mod 2 =0 Or y Mod 2=0
VB 期末考试试题A 卷 一、填空题 1、VB 程序设计的主要特点是可视化设计和事件编程。 2、在VB 中，最主要的两种对象是窗体（form ）和控件。 3、工程是构成应用程序文件的集合。 4、方法是VB 提供的一种特殊子程序，用来完成一定的操作。 5、浮点类型数据包括单精度型和___双精度__数据。 6、事件是窗体或控件对象识别的__动作___ 。 7、可用窗体的__print_ 方法在窗体中显示文字。 8、复选框控件Value 属性指示复选框处于 _____ 选中___或禁止状态（暗淡的）中的某一种。 9、在VB中，修改窗体的高度（height）和宽度（width ）属性值，可改变窗体的大小。 10、双击工具箱中的控件图标，可在窗体的中央出现一个尺寸为缺省值的控件。 11、在MsgBox 函数中，如果缺省title 参数，则使用工程1 作为消息框的标题。 12、设x = 34.58，语句Print Format（x, “ 000.0”）的输出结果是34.6。 13、在VB 中，数值型变量的初值为0 ，Varant 型变量的初值为空，布尔型变量的初值为FALSE 。 14、设置窗体的picture 属性，可在窗体上显示图片。 15、程序运行工程中，清除MP 图片框中的图片应使用语句cls 。 二、选择题 1 、菜单控件只包括一个事件，即C ，当用鼠标单击或键盘选中后按“回车”键时触发该事件，除分隔条以外的所有菜单控件都能识别该事件。 A、GotFocus B 、Load C 、Click D 、KeyDown 2、滚动条控件（如图所示）的Max 属性所设置的是A 。 A 、滚动框处于最右位置时，一个滚动条位置的Value 属性最大设置值 B 、单击滚动条和滚动箭头之间的区域时，滚动条中滚动块的最大移动量 C、单击滚动条的箭头区域时，滚动条中滚动块的最大移动量 D、滚动条控件无该属性 3、SQL 语句Select * Form student 中的*表示 B 。 A、所有记录 B、所有字段 C、所有表 D、都不对 4、以下选项中，不属于标签的属性是 C 。 A、Enabled B、Caption C、Default D 、Font 5、要求改命令按钮显示的文本，应当在属性窗口中改变的属性是 A 。 A、Caption B 、Name C、Text D、Label 6、设置一个单选按钮（OptionButton）所代表选项的选中状态，应当在属性窗口中改变的属性是 D 。 A、Caption B 、Name C、Text D、Value 7、允许在菜单项的左边设置打勾标记，下面哪种论述是正确的？ D 。 A、在标题项中输入&,然后打勾 B、在索引项中打勾 C、在有效项中打勾 D、在复选项中打勾 8、当执行以下过程时，在窗体上将显示 A 。 Private Sub Command1_Click（） Print "VB"; Print "Hello! "; Print "VB"
大一VB期末考试试卷及答案 1．在代码中引用一个控件时，应使用控件的（ b ）属性。 A．Caption B．Name C．Text D．Index 2．设变量x = 4，y = -1，a = 7，b = -8,下面表达式（ a ）的值为“假”。 A．x+a <= b-y B． x > 0 AND y < 0 C．a = b OR x>y D． x+y > a+b AND NOT (y < b) 3．表达式Int(Rnd*71)+10产生的随机整数范围是（ c ）。 A．（10，80） B．（10，81） C．[10，80] D．[10，81] 4．函数Sgn(3.1416)的返回值是（ c ）。 A．-1 B．0 C．1 D．以上都不对 5．67890属于（ d ）类型数据。 A．整型 B．单精度浮点数 C．货币型 D．长整型 6．下列变量名中正确的是（ d ）。 A．3S B．Print C．Select My Name D．Select_1 7．下列赋值语句（ a ）是有效的。 A．sum = sum -sum B．x+2 = x + 2 C．x + y = sum D．last = y / 0 8．以下的控件或方法具有输入和输出双重功能的为（ b ）。 A．Print B．Textbox C．Optionbutton D．Checkbox 9．若要获得列表框中被选中的列表项的内容，可以通过访问（ d ）属性来实现。 A．Name B．ListIndex C．ListCount D．Text 10．下列代码的运行结果为（ b ）。 Private Sub command1_click() Dim m(10)
大学 VB 考试题库 一、单项选择题 1、与传统的程序设计语言相比,Visual Basic最突出的特点是（C）。 A、结构化程序设计 B 、程序开发环境 C、事件驱动编程机制 D 、程序调试技术 2、赋值语句：a=123& MID("123456",3,2)执行后，a变量中的值是（C）。 A、 "12334" B 、 123 C、 12334 D 、 157 3、保存一个工程至少应保存两个文件，这两个文件分别是（B）。 A、文本文件和工程文件 B 、窗体文件和工程文件 C、窗体文件和标准模块文件 D 、类模块文件和工程文件 4、以下能在窗体Form1的标题栏中显示"VisualBasic窗体"的语句是（C）。 A、 ="VisualBasic窗体" B、 ="VisualBasic窗体" C、 ="VisualBasic窗体" D、 ="VisualBasic窗体" 5、为了装入一个VisualBasic应用程序，应当（D） A、只装入窗体文件（.frm ） B、只装入工程文件（.vbp ）
C、分别装入工程文件和标准模块文件（.bas ） D、分别装入工程文件、窗体文件和标准模块文件 6、赋给一个数组的数据类型一定要（A）。 A、相同 B 、不相同C、两可 D 、都不对 7、下面正确的赋值语句是（C）。 A、 x+y=30 B 、y=π*r*r C 、y=x+30 D、 3y=x 8、 VisualBasic集成环境的主窗口中不包括（C）。 A、标题栏 B 、菜单栏 C 、状态栏 D 、工具栏 9、以下叙述中错误的是(C) 。 A、 Visual Basic是事件驱动型可视化编程工具 B、 Visual Basic应用程序不具有明显的开始和结束语句 C、Visual Basic 工具箱中的所有控件都具有宽度（Width ）和高度（ Height ）属性 ( 计时器 ) D、 Visual Basic中控件的某些属性只能在运行时设置 10、要使 Print方法在Form_Load事件中起作用，要对窗体的(C) 属性进行设置。 A、 Backcolor B、ForeColor C、 AutoRedraw D、 BackStyle 11、若要使命令按钮不可操作，要对(A) 属性进行设制。 A、 Enabled B、 Visible C、 BackColor D 、 Caption
高级语言程序设计（VB）试卷（A卷） 注意事项：1、本试卷共页，满分为100 分，考试时间为110 分钟。 2、标准答题卡使用2B铅笔涂写；文字题答题时请使用蓝、黑钢笔或圆珠笔， 不得使用红颜色墨水笔。 一、单项选择题（每空1分，共30分） （请将答案按照题干上【】内的序号涂写“标准答题卡”，否则不得分） 1．在VB 6.0中，扩展名为.vbp的文件称为【1】。 A) 工程文件B) 窗体文件C) 类模块文件D) 标准模块文件 2．在VB 6.0集成开发环境的设计模式下，用鼠标双击窗体上的某个对象后，打开的窗口是【2】。 A) 代码窗口B) 窗体设计窗口 C) 属性窗口D) 工程资源管理器窗口 3．设有变量定义语句Dim a%，则变量a的数据类型是【3】。 A) 整型B) 单精度类型C) 双精度类型D) 字符串类型4．下列表达式中，值为False的是【4】。 A) "AB"<"abc"B) "ABC" = UCase("abc") C) "ABCD"<"abc"D) Mid("ABCD",3,1)=Left("ABCD",3) 5．函数InStr("ABCDEF", "CD")的值是【5】。 A) 2B) 3C) True D) CDEF 6．下列程序运行后，单击窗体，输出结果是【6】。 Private Sub Form_Click() Dim a As Integer, b As Integer
a = 3 b = 5 Print a + b; a & b End Sub A) 8 8 B) 35 35 C) 8 35 D) 35 8 7．下列程序运行后，单击窗体，输出结果是 【7】 。 Private Sub Form_Click() a = 3: b = 7 a = a + b : b = a – b : a = a - b Print a; b End Sub A) 4 3 B) 7 3 C) 3 7 D) 10 7 8．下面程序段所表示的数学关系式是 【8】 。 If (a < b) Then If d = c Then x = 1 Else x = 2 End If A) ? ??≠≥=<=)(2) c (1 d c b a d b a x 且且 B) ? ??≠<=<=)(2) c (1 d c b a d b a x 且且 C) ?? ?≥=<=)(2) c (1b a d b a x 且 D) ?? ?≠=<=) (2) c (1 d c d b a x 且 9．下列程序运行后，单击窗体，输出结果是 【9】 。 Private Sub Form_Click() s = 0: k = 1 Do s = s + k: k = k + 1 Loop Until k <= 5 Print s End Sub A) 15 B) 10 C) 1 D) 0 10．下列程序段的输出结果是 【10】 。 For k = 4 To 2 Step -2 m = k
大学vb课程题库全集 vb单选、操作部分 一、单项选择题 1、与传统的程序设计语言相比,Visual Basic最突出的特点是（C）。 A、结构化程序设计 B、程序开发环境 C、事件驱动编程机制 D、程序调试技术 2、赋值语句：a=123 & MID(\执行后，a变量中的值是（C）。 A、\ B、123 C、12334 D、157 3、保存一个工程至少应保存两个文件，这两个文件分别是（B）。 A、文本文件和工程文件 B、窗体文件和工程文件 C、窗体文件和标准模块文件 D、类模块文件和工程文件 4、以下能在窗体Form1的标题栏中显示\窗体\的语句是（C）。 A、https://www.doczj.com/doc/5b1545868.html,=\窗体\B、Form1.Title=\窗体\C、Form1.Caption=\窗体\D、Form1.Text=\窗体\ 5、为了装入一个Visual Basic应用程序，应当（D） A、只装入窗体文件（.frm） B、只装入工程文件（.vbp） C、分别装入工程文件和标准模块文件（.bas） D、分别装入工程文件、窗体文件和标准模块文件 6、赋给一个数组的数据类型一定要（A）。 A、相同 B、不相同 C、两可 D、都不对 7、下面正确的赋值语句是（C）。 A、x+y=30
B、y=π*r*r C、y=x+30 D、3y=x 8、Visual Basic 6.0集成环境的主窗口中不包括（C）。 A、标题栏 B、菜单栏 C、状态栏D、工具栏 9、以下叙述中错误的是(C)。 A、Visual Basic 是事件驱动型可视化编程工具 B、Visual Basic应用程序不具有明显的开始和结束语句 C、Visual Basic工具箱中的所有控件都具有宽度（Width）和高度（Height）属性 D、Visual Basic中控件的某些属性只能在运行时设置 10、要使Print方法在Form_Load事件中起作用，要对窗体的(C)属性进行设置。 A、Backcolor B、ForeColor C、AutoRedraw D、BackStyle 11、若要使命令按钮不可操作，要对(A)属性进行设制。 A、Enabled B、Visible C、BackColor D、Caption 12、以下叙述中错误的是(B)。 A、一个工程中可以包含多个窗体文件 B、在一个窗体文件中用Private定义的通用过程能被其他窗体调用 C、在设计VB程序时，窗体、标准模块、类模块等需要分别保存为不同类型的磁盘文件。 D、一个工程默认的启动对象是Form1 13、Cls方法可以清除窗体或图片框中的(C)内容。 A、在设计阶段使用Picture设置的背景位图 B、在设计阶段放置的控件
试卷方案：201105 Visual Basic 期末考试方案 一、单项选择_共50题（选：20题*1’=20分） 第1题 以下有关对象属性的说法中，错误的是___________. A. 工具箱中的控件并不是VB 中所有的控件 B. 若将Frame 的Enabled 属性设置为False ，则不能使用放置在Frame 里面的控件 C. 对象的Name 属性在运行时不能改变 D. 对象的所有属性都可以在属性窗口中设置 第2题 数学表达式 ||27sin 3 y x e x +++ 的VB 算术表达式为_______ . A. Sin(27)+Sqr(x+Exp3)/(x+y) B. Sin(27*3.14159/180)+Sqr(x+Exp(3))/Abs(x+y) C. Sin(27*3.14159/180)+Sqr(x+e^3)/Abs(x+y) D. Sin(27*pi/180)+Sqr(x+Exp(3)/Abs(x+y) 第3题 下列有关对象的叙述中,正确的是______ A. 对象由属性，事件和方法构成 B. 对象的所有属性既可以在属性窗口设置，又可以在程序运行时用赋值语句设置 C. 对象的事件一定就是由VB 预先设置好的人工干预的动作 D. 对象的方法是对象响应某个事件后执行的一段程序代码 第4题 表达式CInt(4.5)+Cint(-4.51)+Int(4.9)+Int(-4.1)+Fix(-1.9)+0 Mod 2的运算结果是___. A. 1 B. -1 C. –2 D. –3 第5题 下列关于菜单的说法中,错误的是__________. A. 每一个菜单项就是一个对象，并且可设置自己的属性和事件 B. 菜单项不可以响应DblClick 事件 C. VB6.0允许创建超过四级的子菜单 D. 程序执行时，如果要求菜单项是灰色，不能被用户选择，则应设置菜单项的Enabled 属性为False 第6题 以下关于数组的说法中,错误的是__________. A. 使用了Preserve 子句的Redim 语句，只允许改变数组最后一维的上界 B. 对于动态数组, Redim 语句可以改变其维界但不可以改变其数据类型 C. Erase 语句的功能只是对固定大小的数组进行初始化 D. Lbound 函数返回值是指定数组某一维的下界 第7题 设a=3,b=2,c=1,运行print a>b>c 的结果是____________. A. True B. False C. 1 D. 出错 第8题
实验三 第1题四则运算题 设计如下窗体,为五个命令按钮编写5段代码完成四则运算及退出程序,其中在计算除法时,如果第二个数就是零,在消息框中显示信息“除数为零”。 Public Class Form1 Private Sub Button1_Click(ByVal sender As System、Object, ByVal e As System、EventArgs) Handles Button1、Click Dim a, b As Single a = TextBox1、Text b = TextBox2、Text TextBox3、Text = a + b End Sub Private Sub Button2_Click(ByVal sender As System、Object, ByVal e As System、EventArgs) Handles Button2、Click Dim a, b As Single a = TextBox1、Text b = TextBox2、Text TextBox3、Text = a - b End Sub Private Sub Button3_Click(ByVal sender As System、Object, ByVal e As System、EventArgs) Handles Button3、Click Dim a, b As Single a = TextBox1、Text b = TextBox2、Text TextBox3、Text = a * b End Sub Private Sub Button4_Click(ByVal sender As System、Object, ByVal e As System、EventArgs) Handles Button4、Click Dim a, b As Single a = TextBox1、Text b = TextBox2、Text
客观题_0001 试卷总分：100 测试时间：240 单项选择题判断题 一、单项选择题（共20 道试题，共80 分。） 1. 用户在组合框中输入或选择的数据可以通过一个属性获得，这个属性是（）。 A. List B. Listindex C. Text D. Listcount 2. 在设计菜单时，如果要在菜单中加入一个菜单分隔条，则菜单分隔条的标题必须设置 为（）。 A. 加号（+） B. 减号（-） C. 星号（*） D. 感叹号（!） 3. 保存新建的工程时，默认的文件夹是（）。 A. My Document B. VB98 C. "\ " D. Windows 4. 要清除列表框的所有内容，可用（）方法来实现。 A. RemoveTtem B. Cls C. Clear D. 以上均不可以 5. 用标准工具栏中的工具按钮不能执行的操作是（）。 A. 添加工程
B. 打印源程序 C. 运行程序 D. 打开工程 6. 改变驱动器列表框的Drive属性值，将激活（）事件。 A. Change B. Scoll C. KeyDown D. KeyUp 7. 下列语句语法正确的是（）。 A. a=1 b=2 c=3 B. a=l：b=2：c=3 C. a=1，b=2，c=3 D. a=1；b=2；c=3 8. 要在窗体Form1内显示“myfrm”，使用的语句是（）。 A. Form. print "myfrm" B. Form.caption="myfrm" C. Form1.print "myfrm" D. Form1.caption="myfrm" 9. 图象框Image没有的属性是（）。 A. Picture B. Appearance C. AutoRedraw D. 以上属性都没有 10. 可获得字符的ASCII码的函数是（）。 A. Val
期期末末考考试试题题 一、单项选择题（共10分） 1．在代码中引用一个控件时，应使用控件的（ ）属性。 A ．Caption B ．Name C ．Text D ．Index 2．设变量x = 4，y = -1，a = 7，b = -8,下面表达式（ ）的值为“假”。 A ．x+a <= b-y B ． x > 0 AND y < 0 C ．a = b OR x>y D ． x+y > a+b AND NOT (y < b) 3．表达式Int(Rnd*71)+10产生的随机整数范围是（ ）。 A ．（10，80） B ．（10，81） C ．[10，80] D ．[10，81] 4．函数Sgn(3.1416)的返回值是（ ）。 A ．-1 B ．0 C ．1 D ．以上都不对 5．67890属于（ ）类型数据。 A ．整型 B ．单精度浮点数 C ．货币型 D ．长整型 6．下列变量名中正确的是（ ）。 A ．3S B ．Print C ．Select My Name D ．Select_1 7．下列赋值语句（ ）是有效的。 A ．sum = sum -sum B ．x+2 = x + 2 C ．x + y = sum D ．last = y / 0 8．以下的控件或方法具有输入和输出双重功能的为（ ）。 A ．Print B ．Textbox C ．Optionbutton D ．Checkbox 9．若要获得列表框中被选中的列表项的内容，可以通过访问（ ）属性来实现。 A ．Name B ．ListIndex C ．ListCount D ．Text 10．下列代码的运行结果为（ ）。 Private Sub command1_click() Dim m(10) For k = 1 To 10 m(k) = 11 – k next k
大学V B考试题库 一、单项选择题 1、与传统的程序设计语言相比,Visual Basic最突出的特点是（）。 A、结构化程序设计 B、程序开发环境 C、事件驱动编程机制 D、程序调试技术 2、赋值语句：a=123& MID("123456",3,2)执行后，a变量中的值是（）。 A、"12334" B、123 C、12334 D、157 3、保存一个工程至少应保存两个文件，这两个文件分别是（B）。 A、文本文件和工程文件 B、窗体文件和工程文件 C、窗体文件和标准模块文件 D、类模块文件和工程文件 4、以下能在窗体Form1的标题栏中显示"VisualBasic窗体"的语句是（C）。 A、https://www.doczj.com/doc/5b1545868.html,="VisualBasic窗体" B、Form1.Title="VisualBasic窗体" C、Form1.Caption="VisualBasic窗体" D、Form1.Text="VisualBasic窗体" 5、为了装入一个VisualBasic应用程序，应当（D） A、只装入窗体文件（.frm） B、只装入工程文件（.vbp） C、分别装入工程文件和标准模块文件（.bas） D、分别装入工程文件、窗体文件和标准模块文件 6、赋给一个数组的数据类型一定要（A）。 A、相同 B、不相同 C、两可 D、都不对 7、下面正确的赋值语句是（C）。 A、x+y=30 B、y=π*r*r C、y=x+30 D、3y=x 8、VisualBasic 6.0集成环境的主窗口中不包括（C）。 A、标题栏 B、菜单栏 C、状态栏 D、工具栏
9、以下叙述中错误的是(C)。 A、Visual Basic 是事件驱动型可视化编程工具 B、Visual Basic应用程序不具有明显的开始和结束语句 C、Visual Basic工具箱中的所有控件都具有宽度（Width）和高度（Height）属性(计时器) D、Visual Basic中控件的某些属性只能在运行时设置 10、要使Print方法在Form_Load事件中起作用，要对窗体的(C)属性进行设置。 A、Backcolor B、ForeColor C、AutoRedraw D、BackStyle 11、若要使命令按钮不可操作，要对(A)属性进行设制。 A、Enabled B、Visible C、BackColor D、Caption 12、以下叙述中错误的是(B)。 A、一个工程中可以包含多个窗体文件 B、在一个窗体文件中用Private定义的通用过程能被其他窗体调用 C、在设计VB程序时，窗体、标准模块、类模块等需要分别保存为不同类型的磁盘文件。 D、一个工程默认的启动对象是Form1 13、Cls方法可以清除窗体或图片框中的(C)内容。 A、在设计阶段使用Picture设置的背景位图 B、在设计阶段放置的控件 C、在运行阶段产生的图形和文字 D、以上均可 14、设x=3,y=5,则以下表达式值为真的是 (C) A、(-3+5>x) And (y>0) B、(x<0) Eqv (y>0) C、(x>y) Or (y>0) D、x>=y And y>10 15、为了防止用户随意将光标置于控件之上，应将进行(D)设置。 A、将控件的TabIndex属性设置为0 B、将控件的TabStop属性设置为True