VB复习题
试卷编号：8080
所属语言：Visual Basic
试卷方案：201006
试卷总分：100分
共有题型：8种
━━━━━━━━━━━━━━━
一、填空 共10题 （共计10分）
━━━━━━━━━━━━━━━
第1题 （1.0分） 题号:230
表达式(-3) Mod 8的值为【1】.
答案：
1). –3
第2题 （1.0分） 题号:301
已知文本框的内容为"ABCDE",若文本框Selstart=4,Sellength=2,则SelText为 【1】.
答案：
1). DE
第3题 （1.0分） 题号:231
表达式81\7 MOD 2^2 的值是【1】.
答案：
1). 3
第4题 （1.0分） 题号:263
打开"工程窗口"的方法之一是按下【1】组合键.
答案：
1). CTRL+R
第5题 （1.0分） 题号:243
设x为大于零的实数,则大于x的最小奇数的Visual Basic表达式是【1】.
答案：
1). IIF(int(x) mod 2=0,int(x)+2,int(x)+1)
第6题 （1.0分） 题号:296
写出清除标签Label1的显示信息的语句为【1】.
答案：
1). Label1.caption="" 或 Label1="" 或 Label1.Caption=""
第7题 （1.0分） 题号:283
使用Move方法把图形框Picture1的左上角移动到距窗体顶部100Twip,距窗体左边框200Twip,同时图形框缩小50%,具体形式为【1】.
答案：
1). Picture1.move 200,100,picture1.width/sqr(2),picture1.height/sqr(2)
第8题 （1.0分） 题号:62
Integer类型的变量占用【1】字节空间.
答案：
1). 2
第9题 （1.0分） 题号:267
对象是既包含【1】又包含对数据进行操作的方法,并将其封装起来的一个逻辑实体.
答案：
1). 数据
第10题 （1.0分） 题号:50
在VB 6.0中,设 Single型变量 XYZ 的值为123.45,若要将其转换成字符串,应使用的类型转换函数是【1】.
答案：
1). STR 或 CSTR
━━━━━━━━━━━━━━━
二、判断 共10题 （共计10分）
━━━━━━━━━━━━━━━
第1题 （1.0分） 题号:367
如果没有使用Public、Private或者Friend,Sub过程在缺省情况
下是公用的、
答案：N
第2题 （1.0分） 题号:355
在利用通用对话框件显示字体对话框之前必须设置Flags属性,
否则将发生不存在字体的错误.
答案：Y
第3题 （1.0分） 题号:240
MsgBox()函数建立的消息框能显示信息也能输入信息.
答案：N
第4题 （1.0分） 题号:289
框架控件和形状控件都不能响应用户的鼠标的单击事件.
答案：Y
第5题 （1.0分） 题号:331
欲在PictureBox控件上设置其它控件,可以通过把窗体上原已
设计好的控件拖动到PictureBox控件上来实现.
答案：N
第6题 （1.0分） 题号:244
*.bmp格式的图片,如果在autosize设为False的图片框,它会
以图片框大小完整显示出来.
答案：N
第7题 （1.0分） 题号:357
在盘驱动器列表框Drive1的Change事件过程中,代码
Dir1.Path=Drive1.Driv
e 的作用是:当Drive1的驱动器改变
时,Dir1的目录列表随不同驱动器的作相应改变.
答案：Y
第8题 （1.0分） 题号:235
设A=3,B=4,C=5,D=6,则表达式A>B And C<=D Or 2* A>C
的值是 False.
答案：Y
第9题 （1.0分） 题号:303
三种方式的组合框都可以接受DblClick 事件.
答案：Y
第10题 （1.0分） 题号:288
控件是对象,而窗体不是对象,它只是控件对象的窗口.
答案：N
━━━━━━━━━━━━━━━━━
三、单项选择 共10题 （共计10分）
━━━━━━━━━━━━━━━━━
第1题 （1.0分） 题号:226
INT(100*RND(1))产生的随机整数的闭区间是().
A:[0,99]
B:[1,100]
C:[0,100]
D:[1,99]
答案：A
第2题 （1.0分） 题号:236
VisualBasic集成环境的大部分窗口都可以从主菜单项()的下拉菜
单中找到相应的打开命令.
A:编辑
B:视图
C:格式
D:调试
答案：B
第3题 （1.0分） 题号:798
要获得当前驱动器应使用驱动器列表框的哪个属性().
A:Path
B:Drive
C:Dir
D:Patten
答案：B
第4题 （1.0分） 题号:240
窗体的Caption属性的作用是().
A:确定窗体的名称
B:确定窗体的标题
C:确定窗体的边界类型
D:确定窗体的字体
答案：B
第5题 （1.0分） 题号:267
如果将布尔常量值TRUE赋值给一个整型变量,则整型变量的值为().
A:0
B:-1
C:True
D:FALSE
答案：B
第6题 （1.0分） 题号:307
将命令按钮Command1设置为缺省的活动按钮可修改该控制件的()属性.
A:Enabled
B:Value
C:Default
D:Cancel
答案：C
第7题 （1.0分） 题号:255
表达式X+1>X是().
A:算术表达式
B:非法表达式
C:字符表达式
D:关系表达式
答案：D
第8题 （1.0分） 题号:813
要使一个文本框具有水平和垂直滚动条,则应先将其MultiLine
属性设置为True,然后再将ScrollBar属性设置为().
A:0
B:1
C:2
D:3
答案：D
第9题 （1.0分） 题号:856
执行下面的程序段后,x的值为().
x=5
For i=1 To 20 Step 2
x=x+i\5
Next i
A:21
B:22
C:23
D:24
答案：A
第10题 （1.0分） 题号:858
组合框的类型由Style属性决定,简单组合框的Style属性值应为().
A:0
B:1
C:2
D:3
答案：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分） 题号:285
在VB中，需要用数据访问对象对数据库进行访问，下列哪些属于VB的数据访问对象（）。
A:DAO
B:ADO
C:OAD
D:RDO
答案：ABD
第3题 （2.0分） 题号:278
下列哪些标识符不符合变量的命名规则（）？
A:hyu
B:$abc
C:4w
D
:y.u
E:ty%
F:_n8
答案：BCDEF
第4题 （2.0分） 题号:279
下面有关数组的说法那些是错误的（）？
A:数组存放的是具有相同数据类型的多个数据
B:数组的下标允许是常数、表达式或变量
C:DIM语句声明的数组把数组中的全部数组都初始化为逻辑型
D:多维数组中每一维的大小为上界-下界；数组的大小为每一维大小的乘积
E:动态数组是指在声明时没有给出数组的大小，当要使用数组时，再决定数组的大小
答案：BCD
第5题 （2.0分） 题号:280
请把下面说法中正确的选出来（）。
A:在函数调用过程中数值型函数的默认返回值为0，可变型函数的默认返回值为空串
B:在调用Sub过程中使用Call语句时，参数必须在括号内
C:过程本身使用的参数列表称为“形参”，而主程序传递给过程的真正参数称为“实参”
D:DIM语句声明的数组把数值数组中的全部数组元素都初始化为0，把字符串数组中的全部元素都初始化为空字符串
答案：BCD
━━━━━━━━━━━━━━━━
五、程序填空 共1题 （共计10分）
━━━━━━━━━━━━━━━━
第1题 （10.0分） 题号:60
'-------------------------------------------------------
'【程序填空】
'-------------------------------------------------------
'功能：输入任何一个英文字母x,
' 若x的值为"a","c","d-f" ,则显示x的大写字母；
' 若x的值为"m","o","p-z",则显示x的小写字母；
' 若x的值为其它的值,则显示xa（如输入的X的值是g，则显示ga）。
'-------------------------------------------------------
Private Sub Command1_Click()
x = Text1.Text
'**********SPACE**********
【?】
'**********SPACE**********
Case 【?】
Label1.Caption = UCase(x)
Case "m", "o", "p" To "z"
Label1.Caption = LCase(x)
Case Else
'**********SPACE**********
【?】
End Select
End Sub
答案：
1). Select Case x
2). "a", "c", "d" To "f"
3). Label1.Caption = Trim(x) + "a" 或 Label1.Caption = x + "a"
━━━━━━━━━━━━━━━━
六、程序改错 共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
'**********FOUN
D**********
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 "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分） 题号: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 = Val(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
━━━━━━━━━━━━━━━━
七、程序设计 共1题 （共计10分）
━━━━━━━━━━━━━━━━
第1题 （10.0分） 题号:486
'-------------------------------------------------
'【程序设计】
'-------------------------------------------------
'题目：(事件)单击窗体。
' (响应)求100到500之间奇数的和，将结果输出
' 在窗体上并存入变量SUM中。
' 使用do...loop until语句完成程序
'-------------------------------------------------
答案：----------------------
Dim i As Integer
i=100
do
If i Mod 2 = 1 Then
sum = sum + i
End If
i=i+1
loop until i>500
Print sum
----------------------
━━━━━━━━━━━━━━━━━━
八、VB窗体设计 共2题 （共计20分）
━━━━━━━━━━━━━━━━━━
第1题 （10.0分） 题号:51
---------------------------------------------------------------------
【窗体设计】
---------------------------------------------------------------------
题目：请按照题目要求设计指定的窗体。（本题有7个项目要完成）
建立如图006所示界面：
注意：保存时不得修改窗体和工
程文件的名称及路径，否则后果自负。
---------------------------------------------------------------------
1、窗体设置
1）名称为“窗体”
2）边框风格为1
3）标题为“可爱”
4）窗体起始位置为屏幕中心
2、在窗体左上角添加一个垂直滚动条控件
1）名称为“垂直滚动条”
2）最大变化量为100
3）最小变化量为10
4）最大值为2000
3、在垂直滚动条右方添加一个PictureBox控件
1）名称为“图片框”
2）可以自动调整大小
4、在窗体上添加一个时钟控件
1）设置为不可用
2）时间间隔为0.1分钟
5、在窗体下方添加一个文件列表框
1）设置只显示后缀名为frm的文件
6、在窗体右下角添加一个命令按钮
1）标题为“黑白”
2）标题字体名称为“黑体”
3）标题字体大小为18
4）标题字体设置为斜体、带下划线
5）在单击事件过程中添加代码，使图片框载入当前程序文件夹下的“baby2.jpg”文件
7、在窗体的装载事件中添加代码
1）使图片框载入当前程序文件夹下的“baby1.jpg”文件
----------此为题目要求的最后一行，以下空白---------------------------------------
第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）在单击事件过程中添加代码，使显示文本的内容改为“计算机工程学院”
----------此为题目要求的最后一行，以下空白---------------------------------------