陕西师范大学

内
部
题
库

教育
（yuyueshool）
编制
《VB程序设计》作业
一．选择题
1．在Visual Basic中，称对象的数据为_____。
(A) 属性 (B) 方法 © 事件 (D) 封装
2．下列选项中为字符串常量的是_____。
(A) .(B)“6/12/2001” © #6,12,2001# (D) 6,12,2001#
3．若要将某命令按钮设置为默认命令按钮, 则应设置为True的属性为_____。
(A) Value (B) Cancel © Default (D) Enabled
4．设置命令按钮的标题文字时, 应改变的属性是_____。
(A) Text 　 (B) Name © Caption (D) (名称)
5．若要获得滚动条的当前值, 可访问的属性是_____。
(A) Text 　 (B) Value © Max .(D) Min
6．若要设置文本框中所显示的文本颜色, 使用的属性为_____。
(A) BackColor .(B) FillColor © ForeColor . . (D) BackStyle
7．能对顺序文件进行输出的语句是_____。
(A) Put (B) Get © Write (D) Read
8．有如下程序, 该程序执行后, 在输入框中输入数字15.875, 则执行结果为_____。
I = InputBox(“请输入一个数据”)
j = InStr(I,“.”)
Print j
(A) 3 (B) 15 © 0.275 (D) 16
9．有如下程序, 该程序执行的结果为_____。
Private Sub Form_Click( )
Dim I As Integer, j As Integer, a As Integer, b As Integer
I = 1472.25: j = 1472.55: a = Clnt(I): b = Clnt(j)
Print a,b
End Sub
(A) 1472.25 1473.25 (B) 1472 1473
© 1473 1473 (D) 1472 1472
10．有如下程序, 该程序执行的结果为_____。
Private Sub Command1_Click( )
Dim k As Integer
n = 5: m = 1: k = 1
Do While k<= n
m = m * 2
k = k + 1
Loop
Print m
End Sub
(A) 1 (B) 5 © 32 (D) 40
11．以下程序输出的结果为_____。
Private Sub Command1_Click( )
X = 1: Y = 4
Do Until Y>4
X=XY
Y=Y+1
Loop
Print X
End Sub
(A) 4 (B) 8 © 12 (D) 16
12．以下列程序段执行后, 整形变量n的值为_____。
n = 0
For I = 1 to 20 step 5
n = n + 1
Next I
(A) 50 (B) 4 © 15 (D) 210
13．下列程序在执行时, 在输入框中输入15, 则运行结果是_____。
Private Sub Command1_Click( )
Dim Number As Single
Number = InputBox(“请输入一个数字”)
Select Case Number
Case 1 To 5
Form1.Print“你使用了to关键字”
Case 6，7，8，9，10
Form1.Print“你使用了列表的方式”
Case Is>10
Form1.Print“你使用了Is关键字”
Case Else
Form1.Print“其他数值显示”
End Select
End Sub
(A) 你使用了to关键字 (B) 你使用了列表的方式
© 你使用了Is关键字 (D) 其他数值显示
14．在窗体上添加一个命令按钮, 其名为Command1, 然后编写代码如下：
Private Sub Command1_Click( )
Dim arr(5 ) As Integer, arr1(5 ) As Integer
n = 3
For I = 1 To 5
arr(I ) = I
arr1(n ) = 2n+i
Next I
Print arr1(n)；arr(n)
End Sub
程序运行结果为_____。
(A) 3 11 (B) 3 13 © 13 3 (D) 11 3
15．有如下函数过程：
Function gys(ByVal x As Integer, ByVal y As Integer) As Integer
Do While y<>0
reminder = x Mod y
x = y: y = reminder
Loop
gys = x
End Function
以下是调用该函数的事件过程, 该程序的运行结果为_____。
Private Sub Command1_Click( )
Dim a As Integer
Dim b As Integer
a = 100: b = 25
x = gys(a, b)
Print x
End Sub
(A) 0 (B) 25 © 50 (D) 100
16．下列操作不能打开属性窗口的是_____。
(A) 执行【视图】菜单中的【属性窗口】命令 (B) 按F4键
© 按Ctrl+T 　　　　　　　(D) 单击工具拦上的属性窗口按钮
17． 下列叙述不正确的是_____。
（A）一个目标程序所需的所有文件的集合称为工程
（B）VB的工程文件的扩展名为.vbp
（C）工程文件中可包括窗体文件．标准模块文件
（D）工程文件中除了窗体文件是可选的外，其他文件都是必须的
18．下列各组变量声明正确的是_____。
(A) Dim abx as integer, num as single (B) Dim I%，n$ as integer
© Dim a%，b%，c%，a$ .(D) Public dim n%
19．如果想在程序中反复使用一个数据“”，为了避免在编写程序时反复输入这个数据，也为了一次能够修改程序中所有用到这个数据的语句，可以采用_____。
(A) 将这个数据声明为字符串常量, 用一个常量标志符代表它
(B) 将这个数据声明为字符串变量, 用一个常量标志符代表它
© 将这个数据声明为日期型常量, 用一个常量标志符代表它
(D) 将这个数据声明为日期型变量, 用一个常量标志符代表它
20．要求设置定时器时间间隔为0.5秒, 那么它的Interval属性值应该等于_____。
(A) 5000 (B) 500 © 50 (D) 5
21．在Select Case结构中, 使用“to表达式”来指定一个范围时，写在前面的值.必须是_____的。
（A）随便 （B）0 （C）较大 （D）较小
22．图像框中的Stretch属性为True时, 其作用是_____。
( A) 只能自动设置图像框长度 (B) 图形自动调整大小以适应图像框控件
© 只能自动缩小图像 (D) 只能自动扩大图像
23．图像框(Image)和图片框(PictureBox)有所不同, 以下叙述中正确的是_____。
(A) 图片框比图像框占内存少 (B) 图像框内还可以包括其他控件
© 图片框有Stretch属性而图像框没有 (D) 图像框有Stretch属性而图片框没有
24．当条件为5<x<10时, x = x + 1, 则以下语句正确的是_____。
(A) If 5<x<10 Then x = x + 1 (B) If 5<x or x<10 Then x = x + 1
© If 5<x and x<10 Then x = x + 1 (D) If 5<x xor x<10 Then x = x + 1
25．“x是小于100的非负数”，用VB表达式表示正确的是_____。
(A) 0≤x<100 (B) 0<=x<100 © x>=0 and x<100 (D) 0<=x or x<100
26．在 Sub过程与Function过程的描述中正确的是_____。
(A) Sub过程可以使用Call语句或直接使用过程名调用, 而Function过程不能
(B) Function过程可以有参数, 而Sub过程没有
© 两种过程的参数传递及返回方式相同
(D) Sub过程不能直接返回值， 而Function过程可以通过过程名直接返回值
27．下列程序的执行结果为_____。
Private Sub Command1_Click( )
k = 0
For I = 1 To 3
a = I ^ I ^ k
Print a；
Next I
End Sub
（A）111 （B）123 （C）000 （D）149
28．有如下函数：
Private Function firstfunc(x As Integer, y As Integer) As Integer
Dim n As Integer
Do While n<= 4
x = x + y : n = n + 1
Loop
firstfunc = x
End Function
调用该函数的事件过程如下：
Private Sub Command1_Click( )
Dim x As Integer, y As Integer, n As Integer, z As Integer
x = 1: y = 1
For n = 1 To 3
z = firstfunc(x, y)
Next n
Print z
End Sub
该事件过程的执行结果为_____。
（A）1 （B）3 （C）16 （D）9
29．有如下语句, 执行后该段语句的循环次数是_____。
Private Sub Command1_Click( )
Dim s As Integer, I As Integer, j As Integer
For I = 1 To 3
For j = 3 To 1 Step－1
s = s + 1
Next j
Next I
Print s
End Sub
（A）9 （B）10 （C）3 （D）4
30．在窗体上画一个命令按钮(Commdna1)和一个文本框(Text1), 然后编写如下程序：
Function fun (ByVal x As Integer, ByVal y As Integer) As Integer
fun = Iif (x<y, x, y)
End Function
Private Sub Command1_Click( )
　　 a = 5 : b = 10
Text1.Text = Str(fun(a, b))
End Sub
（A）5 （B）10 （C）20 （D）15
31．在Visual Basic 6.0集成开发环境中, 功能键F5的功能是_____.
(A) 进入帮助窗口 (B) 进入编辑状态
© 进行上下窗口的切换 (D) 运行程序
32．MsgBox函数返回值的类型是_____.
(A) 数值 (B) 字符串
© 变体 (D) 数值或字符串(视输入的数据而定)
33．表达式FIX(-23.87)+INT(24.56)的值为_____.
(A) -1 　　 (B) 0 　　　　　© 1 　　　　 (D) 2
34．m , n是整数, 且n>m, 在以下四个语句中, 能将y赋值为一个m～n之间(含m, n)任意整数即满足m≤y≤n的是_____.
(A) y = INT(RND*(n-m+1))+m (B) y = INT(RNDn)+m
© y = INT(RNDm)+n (D) y = INT(RND*(n-m))+m
35．确定复选框是否选中，可访问的属性是_____.
(A) Checked (B) Selected 　　© Caption 　 (D) Value
36．下列关于KeyDown事件的参数的说法错误的是_____.
(A) Shift参数是KeyDown事件发生时, Shift, Ctrl和Alt三个键的状态
(B) 参数KeyCode与KeyPress事件的参数KeyAscii是一样的
© KeyDown事件的参数与KeyUp事件的参数一致
(D) KeyDown事件的参数不能省略
37．下面叙述中不正确的是_____.
(A) 对顺序文件中的数据操作只能按一定的顺序执行
(B) 顺序文件结构简单
© 能同时对顺序文件进行读写操作
(D) 顺序文件的数据是以字符(ASCII码)的形式存储的
38．设置组合框的风格, 重要的属性是_____.
(A) Backstyle (B) Borderstyle © Style 　 (D) Sorted
39．下列程序：
Private Sub Form_Click( )
For j = 10 To 6 Step -1
k = j
Next j
Print k；j
End Sub
运行时输出的结果是_____.
(A) 5 5 　 (B) 5 6 　 © 6 5 　　 (D) 6 6
40．下列程序：
Private Sub Form_Click( )
a = 100
Do
s = s + a
a = a + 1
Loop While a>111
Print a
End Sub
运行时输出的结果是_____.
(A) 100 　　 (B) 120 　　 © 201 　　 (D) 101
41．下列程序：
Private Sub Form_Click( )
a$ =“等级考试”
b$ =“＋ － * /”
For j = 1 To 4
c$ = c$+Mid$(a$,j,1)+Right$(b$,1)NextjPrintc$
End Sub
运行时输出的结果是_____.
(A) 等-级-考-试- (B) 等级考试- 　© 等/级/考/试/ 　(D) 出错
42．下列程序：
Private Sub Form_Click( )
x = Val(InputBox(“x=”))
Print fny（x）
End Sub
Private Function fny（x）
If x>0 Then
fny = 1
Else
fny = -1
End If
End Function
运行时从键盘为变量x输入数据5，输出的结果是_____.
(A) -1 　　　　　　 (B) 0 　　　　 © 1 　　　 (D) 5
43．下列程序：
Private Sub Form_Click( )
Dim a As Integer
For i = 1 To 10
Call abcd(a)
Next i
Print a
End Sub
Sub abcd(x)
x = x + 1
End Sub
运行后输出的结果是_____.
(A) 1 (B) 1 2 3 4 5 6 7 8 9 10
© 10 (D) 显示出错信息
44．下列程序：
Private Sub Form_Click( )
Dim a As String, b As String, c As String, d As String
a$ =“124”：b =“123”
b$ =“123”：d =“123”
Print a + b$ + c +d$
End Sub
运行时输出的结果是_____.
(A) 124123123 (B) 4123
© 492 (D) 显示出错信息
45．下列程序：
Dim b
Private Sub Form_Click( )
a = 1：b = 1
Print“A=”；a；“,B=”；b
Call mult（a）
Print“A=”；a；“,B=”；b
End Sub
Sub mult（x）
x = 2 * x
b = 3 * b
End Sub
运行后输出的结果是_____.
(A) A=1, B=1 (B) A=1, B=1 © A=1, B=1 (D) A=1, B=1
A=2, B=3 A=2, B=1 . A=1, B=1 A=1, B=3
46．以下选项中, 不是Visual Basic 6.0默认控件名称的是_____。
(A) Command1 (B) Text1 　　© Labell 　　 (D) Change
47．复选框的Value取值不包括_____。
(A) 0 　…(B) 1 © 2 . (D) 3
48．获得随机文件记录长度, 应使用_____进行计算。
(A) FileLen函数和FrreFile函数 　　　 (B) Lof函数和Len函数
© Eof函数和Len函数 　　　 (D) Eof函数和Lof函数
49．计算a的自然对数使用的Visual Basic表达式是_____。
(A) Log (a) 　　. (B) Lg (a) 　 © Ln (a) 　　 (D) Lge (a)
50．假定Bln1是列表框, 给列表框增加一个列表项正确的方法是_____。
(A) Bln1 = Add“计算机” .(B) Bln1.Add“计算机”
© Bln1 = Additem“计算机” (D) Bln1.Additem“计算机”
51．设有数组声明语句
Option Base 1
Dim A（-3 to -1，2）As Integer
则数组A中定义的数组元素有_____。
(A) 6个 　 (B) 9个 　 © 12个 (D) 15个
52．决定窗体标题条显示内容的属性是_____。
(A) Name 　　　 (B) Text . © Caption 　　 (D) Top
53．下列程序：
Private Sub Text1_KeyPress(KeyAscii As Integer)
Print Ucase (Chr (KeyAscii))
End Sub
运行后在文本框中输入a不按回车键, 窗体上的输出结果是_____。
(A) A 　　　　　 (B) a 　　 © 65 　　　　 (D) 没有输出
54．下列程序：
Private Sub Form_Click( )
a = 3：b = 4
For i = 1 To 1
y = cacl（a，b）
Next i
End Sub
Public Static Function cacl（x，y）
a = a + 1
cacl = x * y * a
End Function
单击窗体后，输出的结果是_____。
(A) 10 　　　(B) 11 　　© 12 　　　 (D) 13
55．下列程序：
Private Sub Form_Click( )
score = Val (InputBox (“40”，“60”，“80”))
Select Case score
Case Is< 60：a$ =“F”
Case 60 To 69：a$ =“D”
Case 70 To 79：a$ =“C”
Case 80 To 89：a$ =“B”
Case Else：a$ =“A”
End Select
Print a$
End Sub
运行时单击窗体后，按回车键，输出的结果是_____。
(A) 错误信息 　　　 (B) D © C 　　 (D) B
56．下列程序：
Private Sub Form_Click( )
s = 0 : i = 1
Do While i <= 10
If ( i \ 5 ) 5 = i Then
s = s + i
i = i + 1
Else
i = i + 1
End If
Loop
Print s
End Sub
运行后输出的结果是_____。
(A) 10 (B) 15 © 20 (D) 25
57．下列程序：
Private Sub Form_Click( )
For i = 1 To 5
For j = i To 5
k = k + 1
Next j
Next i
Print k
End Sub
运行后输出的结果是_____。
(A) 5 (B) 10 © 15 (D) 25
58．下列程序：
Private Sub Form_Click( )
t = Val (InputBox (“请输入一个数：”))
x = t – 1
Select Case t
Case 1, 3, 5, 7, 9
y = t ^ 2
Case 2, 4, 6, 8, 10
y = t ^ 3
Case Else
y = 2 * t
End Select
Print x；y
End Sub
运行时从键盘输入5.5, 输出的结果是_____.
(A) 4.5 11 　　　 (B) 4.5 25 　　　　 © 3.5 11 　 (D) 3.5 25
59．下列程序：
Private Sub Form_Click( )
Dim str1 As String * 1, str2 As String
str1 =“A”
For i = Asc (str1) To Asc (str1) +3
Str2 = Str2 + Chr( i )
Next i
Print Str2
End Sub
运行后输出的结果是_____。
(A) DCBA (B) ABC © CBA (D) ABCD
60．下列程序：
Private Sub Form_Click( )
x = 3：y = 5
For k = 3 To 5
Call ab (a:=y, b:=x)
Next k
Print x, y
End Sub
Private Sub ab (a, ByVal b)
w = a: a = b: b = w
End Sub
运行程序后, 输出的结果是_____。
(A) 3 3 (B) 3 5 © 5 3 (D) 5 5
61．在设计菜单时, 如果要在菜单中加入一个菜单分隔项, 则菜单分隔项的标题必须设置为_____。
(A) 加号(＋) (B) 减号(－) © 星号() (D) 叹号(! )
62．以下叙述正确的是_____。
(A) 组合框包含了列表框的功能 (B) 列表框包含了组合框的功能
© 列表框和组合框的功能无相近之处 (D) 列表框和组合框的功能完全相同
63．可决定窗体的左上角是否有控制菜单的属性是_____。
(A) ControlBox 　 (B) MinButton © MaxButton (D) BorderStyle
64．使图形能自动按控件大小而改变的控件是____。
（A）框架 　　 (B) 图像框 © 标签框 (D) 图片框
65．用下面的语句在窗体上建立一个名为CommonDialog1的通用对话框，语句为：
CommonDialog1.Action = 2 则以下语句与之等价的是_____。
(A) CommonDialog1.ShowOpen (B) CommonDialog1.ShowSave
© CommonDialog1.ShowColor (D) CommonDialog1.ShowFont
66．对以下过程不正确的调用语句是_____。
Public Sub add( )
……
End Sub
(A) Call add (B) Call add( ) © add (D) add( )
67．下列程序执行的结果为_____。
Private Sub Form_Click( )
x = Int(Rnd + 4)
Select Case x
Case 5
Print“优秀”
Case 4
Print“良好”
Case 3
Print“通过”
Case Else
Print“没有通过”
End Select
End Sub
(A) 优秀 (B) 良好 © 通过 (D) 没有通过
68．窗体中有如下事件过程:
Private Sub Form_MouseDown(Button as Integer,Shift as Integer,X as Single,Y as Single)
If Button = 2 then
Print“XXXXX”
End If
End Sub
Private Sub Form_MouseUp(Button as Integer,Shift as Integer,X as Single, Y as Single)
Print“YYYYY”
End Sub
程序运行后，如果在窗体上按下并放开鼠标，则窗体上输出的结果是_____。
(A) XXXXX (B) XXXXX，YYYYY
© 没有任何输出 (D) YYYYY
69．“按相同大小制作”多个控件时，是制作的基准。
(A) 被锁定的控件 　 (B) 第一个控件　 © 最后一个控件 　 (D) 主控件
70． 如果想在程序中反复使用一个数据“”，为了避免在编写程序时反复输入这个数据，也为了一次能够修改程序中所有用到这个数据的语句，可以采用。
(A) 将这个数据声明为字符串常量, 用一个常量标志符代表它
(B) 将这个数据声明为字符串变量, 用一个常量标志符代表它
© 将这个数据声明为日期型常量, 用一个常量标志符代表它
(D) 将这个数据声明为日期型变量, 用一个常量标志符代表它
71．使窗体、图片框或图像框装入图形所使用的函数是_____。
(A) Pictureload (B) LoadPicture
© LoadImage (D) ImageLoad
72．列程序：
Private Sub Form_Click( )
Dim load As Integer
load = InputBox（“请输入一个整数：”）
fee = wei（load）: Print fee
End Sub
Function wei（load）
If load<20 Then
Money = load / 2
Else
Money = 20 + load
End If
Wei = Money
End Function
运行时从键盘为变量load提供的数据为20, 输出的结果为_____.
(A) 10 　　　 (B) 40 　　　 © 20 　　　 (D) 显示出错信息
73. 在下列文件扩展名中,不属于VB程序文件的是
A) .bas B) .vb C) .frm D) .cls
74.设有下图，则Form1中的文本框的文本内容属性是

A) text B) name C) text1 D) 考试
75.下列不属于VB控件的是
A) DriveListBox B) DirListBox
C) FileListBox D) pathListBox
76．窗体已保存了1个名为 “my.vbp”的工程文件及所属的2个分别取默认名的窗体文件、
和1个标准模块文件“module1.bas”。下列描述正确的是
A) 装入文件“my.vbp”后，还需分别装入及所属的所有窗体文件与标准模块文件
B) 先装入与该工程文件有关的所有窗体文件，再装入标准模块文件，最后装入文件“my.vbp”
C) 装入文件“my.vbp”，即，装入了该文件中所有窗体文件与标准模块文件
D) 先装入与该工程文件有关的标准模块文件，再装入所有窗体文件，最后装入文件“my.vbp”
77. 要在磁盘上新建一个名为“c:\t1.txt”的顺序文件,正确的写法是
A）F=“c:\tl.txt”
Open F For Append As #2
B）F=“c:\tl.txt”
Open “F” For Output As #2
C）Open c:\tl.txt For Output As #2
D）Open “c:\tl.txt” For Output As #2
78．在VB中，下列不合法的变量名是
A）a$x B) abcd C) a2(2, 4) D) CdE
79. 下述表达式中，语法正确的是
A) a ❤️ ,a>-3 B) a>b AND b<>c C) a>b >c D) a>b≠c
80. 以下关于Inputbox的叙述中，错误的是
A）Inputbox函数的功能是，等待用户输入数据，并返回输入的内容
B）Inputbox函数可以产生一个对话框，作为输入数据的界面
C）Inputbox函数产生的对话框，在屏幕上的位置只能是默认的
D）Inputbox函数产生一个对话框，并可以在对话框中显示提示信息
81．以下不属于VB标准控件的是
A）通用对话框 B）标签
C）文本框 D）图象框
82．以下描述不正确的是
A) 文本框即可以显示文本又可以进行编辑
B）标签既可以显示文本又可以进行编辑
C）标签中的Caption属性主要用于设置与修改
D）文本框即为一个简单的文本编辑器
83. 使文本框获得焦点的方法是
A）Change B）GotFocus C）SetFocus D）LostFocus
84. 假定在图片框Picturel中装入了一个图形，为了清除该图形（注意：清除图形，而不是
删除图片框），应采用的正确方法是
A）选择图片框，然后按Del键
B）执行语句Picturel . Picture = “”
C）选择图片框，在属性窗口中选择Picture属性条，然后按回车键
D）执行语句Picturel . Picture = LoadPicture(“”)
85.不属于对象常见的属性有
A) caption B) visible C) button D) enabled
86.窗体上有一个文本框，名称为text1,程序运行后，要求该文本框不能接受键盘输入，但能输出信息，以下属性设置正确的是：
A) text1.maxlength=0 B) text1.enabled=flase
C) text1.visible=flase D) text1.width=0
87．设有下图，则命令按纽的标题属性是

A) caption B) 关闭 C) name D) command1
88．如图所示：在窗体上画一个名为Text1的文本框，然后画一个名为HScroll1的滚动条，其Min和Max属性分别为0和100。运行程序后，如果移动滚动框，则在文本框中显示滚动条的当前值，

以下能实现上述操作的程序段是
A) Private Sub HScroll_Change()
Text1.Text=HScroll1.Value
End Sub
B) Private Sub HScroll_Click()
Text1.Text=HScroll1.Value
End Sub
C) Private Sub HScroll_Change()
Text1.Text=HScroll.Caption
End Sub
D) Private Sub HScroll_Click()
Text1.Text=HScroll.Caption
End Sub
89．在窗体上画一个名为Timer1的计时器控件，要求每隔0.5秒发生一次计时器事件，则以下正确的属性设置语句是
A）Timer1.InterVal=0.5 B) Timer1.Interval=5
C) Timer.Interval=50 D) Timer1.Interval=500
90．下列不属于VB控件的是

A) DriveListBox B) DirListBox
C) FileListBox D) pathListBox
91．进入程序代码窗口后，下面叙述正确的是
A) 事件的过程名，可以通过函数的命名方式来确定
B) 事件的过程名，可以通过子程序的命名方式来确定
C) 事件的过程名，可以通过系统提供的对象名与事件名的不同组合来确定
D) 事件的过程名，可以通过系统提供的对象的说明语句来确定
92. 表达式NOT (0.5+3\2<2) OR 7 MOD 3<4 AND 1<-2的运算结果为
A）true B）false C）0 D）其它
93．在VB中，下列不合法的变量名是
A）c2$(2)B)input$ C) a$ D) CdC
94．以下关于多重窗体程序的叙述中，错误的是
A) 用Hide方法不但可以隐藏窗体，而且能清除内存中的窗体
B）在多重窗体程序中，各窗体的菜单是彼此独立的
C）在多重窗体程序中，可以根据需要指定启动窗体
D）对于多重窗体程序中，而且单独保存每个窗体
95．在窗体上画一个名称为CommandDialog1的通用对话框，一个名称为Command1的命令按钮。然后编写如下事件过程：
Private Sub Command1_Click()
CommonDialog1.FileName =""
CommonDialog1.Filter=“All file|.|(.Doc)|.Doc|(.Txt)|.Txt”
CommonDialog1.FilterIndex=2
CommonDialog1.DialogTitle=“VBTest”
CommonDialog1.Action=1
End Sub
对于这个程序，以下叙述中错误的是
A）该对话框被设置为“打开”对话框
B）在该对话框中指定的默认文件名为空
C）该对话框的标题为VBTest
D）在该对话框中指定的默认文件类型为文本文件(*.Txt)
96．以下关于Inputbox的叙述中，错误的是
A）默认情况下，Inputbox函数返回的值是一个字符串
B）执行Inputbox函数产生的对话框时，不允许返回空字符串
C）Inputbox函数常与循环语句、数组结合使用
D）Inputbox函数与Inputbox$ 函数等价

二．填空题
1．双精度数用字母____将尾数与指数分开。
2．窗体的属性可在属性窗口中设置, 也可在程序中用______语句动态设置。
3．窗体中有两个命令按钮, “显示”（Name为CmdDisplay）和“测试”（Name为CmdTest）。单击“测试” 按钮时，执行如下事件过程，此事件过程的功能是：当在窗体中出现消息框并选中“确定”按钮时，隐藏“显示” 按钮，否则退出，请在空白处补充完整。
Private Sub CmdTest Click( )
answer = Msgbox（“隐藏按钮”,65）
If answer = vbok then
______
Else
_____
End If
End Sub
4．以下程序代码实现单击命令按钮Command1时生成10个0～100之间的随机整数.存于数组arr中, 打印数组arr中大于50的数并求这些数的和。
Private Sub Command1_Click( )
Dim arr( 1 To 10 )
For i = 1 To 10
arr( i ) = _____
Next i
Sum = 0
For Each x In _____
If x>50 Then
Print x :
Sum = Sum+x
End If
Next x
Print
Print“Sum=”；Sum
End Sub
5． 参与逻辑运算的两个量都是False时, 结果才为False的逻辑运算是____运算.
6．用Line Input语句从顺序文件中读出数据时, 每次读出一行数据, 所谓一行是指遇到____分隔符, 即
一行的结束。
7．下列过程的功能是：在对多个文本框进行输入时，对第一个文本框(Text1)输入完毕后用回车键使焦点跳到第二个文本框(Text2)而不是用TAB键来切换. 请填空。
Private Sub Text1_KeyDown (KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyReturn Then
______
End If
End Sub
8．下列程序段的运行结果为____。
Sub sele( )
Dim n As Integer
I = 21：n = 3
Do While I>n
I = I－n
Loop
Print I
End sub
Private Sub Command1_Click( )
Call sele
End Sub
9．下列程序的作用是将三个数按从大到小进行排序，请补充完整。
Private Sub Command1_Click( )
a = 4：b = 5：c= 2
If a<b Then
d = a：a = b：b = d
End If
If a<c Then
d = a：a = c：c = d
End If
If b<c Then
_____
End If
Print a,b,c
End Sub
10．建立一个通讯录的随机文件phonBook.txt, 内容包括姓名．电话．地址及邮编，用文本框输入数据. 单击“添加记录”按钮Command1时，将文本框数据写入文件，单击“显示”按钮Command2时，将文件中所有记录内容显示在立即窗口。
Type PersData
Name As String
Phon As String
Address As String
PostCd As String
End Type
Dim xData As PersData
Private Sub Form_Load( )
Open“C:\phonBook.txt”For_____ As # 1
End Sub
Private Sub Command1_Click( )
xData.Name = Text1.Text
xData.Phon = Text2.Text
xData. Address = Text3.Text
xData.PostCd = Text4.Text
_____
Text1.Text =“”：Text2.Text =“”
Text3.Text =“”：Text4.Text =“”
End Sub
Private Sub Command2_Click( )
reno = LOF( 1 )/Len( xData)
I = 1
Do While I<= reno

---

Debug.Print xData.Name, xData.Phon, xData.Address, xData.PostCd
I = I + 1
Loop
End Sub
11．由Visual Basic系统事先设定的, 能被对象识别和响应的动作称为___。
12．通用对话框CommonDialog1,　若属性赋值CommonDialog1.Action = 1,　执行后将弹出____.
13．下列程序：
Private Sub Form_Click( )
For k = 1 To 3
　　If k<=1 Then a=2 * k
If k<=2 Then a=2 * k +1
If k<=3 Then a=k
Next k
Print a
End Sub
运行后输出的结果是____
14．下列程序的功能是交换两个列表框中的项目。运行程序后，当双击某个项目时，该项目从一个列表框中消失，并出现在另一个列表框中，列表1的名称为L1，列表2的名称为L2，请填空：
Private Sub L1_DblClick( )
L2. AddItem_____
L1.RemoveItem L1.ListIndex
End Sub
Private Sub L2_DblClick( )
L1. AddItem_________
L2.RemoveItem L2.ListIndex
End Sub
Private Sub Form_Activate( )
L1. AddItem“IBM”
L1. AddItem“Compaq”
L1. AddItem“AST”
L1. AddItem“Intel”
End Sub
15．VB 6.0的对象是____和____的总称.
16．在随机文件中, 增加一条记录所使用的语句是_______。
17．a=20,b=80,c=70,d=30,表达式a+b>160 Or (b*c>200 And Not d>60)的值是________。
18．运行下列程序, 单击窗体后, 在窗体上显示的第2行输出结果是________。
Private Function digit (n As Integer, k As Integer) As Integer
digit = 0
Do While k>0
digit = n Mod 10
n = n \ 10
k = k -1
Loop
End Function
Private Sub Form_Click( )
Print digit (1234, 2 )
Print digit (1234, 3 )
End Sub
19．对于任意一个自然数, 若为偶数, 把它除以2; 若为奇数, 把它乘以3后加1, 如此经
过有限次运算后, 最终得到自然数1, 请将程序补充完整。
Private Sub Form_Click( )
Dim II As Boolean
Dim n As Integer, n1 As Integer, i As Integer
n = InputBox (“验证角谷猜想，请输入一个数”)
II = True
i = 0
Do While II
If _______ Then
n1= n: n = n / 2
Print n1；“/ 2=”，n
If n = 1 Then ________
________
n1= n: n= 3 * n +1
Print n1； “3 * n +1=”，n
End If
i = i + 1
Loop
Print“共计算”；i；“次”
End Sub
20．以下程序代码实现单击命令按钮Command1时生成10个0～100之间的随机整数.存于数组arr中, 打印数组arr中大于50的数并求这些数的和。
Private Sub Command1_Click( )
Dim arr( 1 To 10 )
For i = 1 To 10
arr( i ) = (10)
Next i
Sum = 0
For Each x In (11)
If x>50 Then
Print x :
Sum = Sum+x
End If
Next x
Print
Print“Sum=”；Sum
End Sub
21．在C盘当前文件夹下建立一个名为StuData.txt的顺序文件，要求用InputBox函数输入5名学生的学号（StuNo）、姓名（StuName）和英语成绩（StuEng）。
Private Sub Form_Click( )
Open“C：StuData.txt”For__(12)___ as #1
For i = 1 To 5
StuNo = InputBox(“请输入学号”)
StuName = InputBox（“请输入姓名”）
StuEng = InputBox（“请输入英语成绩”）
(13)
Next i
Close #1
End Sub
22. 输出下列程序代码的运行结果
Private Sub Form_Click()
Dim M(10)
For K = 1 To 6
M(K) = 12 - K
Next K
X = 2
Print M(M(X) - 8)
End Sub
23．输出下列程序代码的运行结果
Private Sub Form_Click()
X = 2: J = 2 * X: y = X + 4
Select Case y
Case 1, 2
J = J + 1
Case 3 To 5
J = J + 2
Case Is > 6
J = J + 3
End Select
Print J
End Sub
24．根据文件的存取方式和结构，文件可分为 文件和 文件。
25．在顺序文件中，OPEN语句的输入输出方式有 、 、 。
26．程序代码窗口的字符过大或过小，可以通过（工具→ → →大小）去改变。
27. 属性窗口主要是针对 和 设置的.它们被通称为 。
28．工具箱主要用于应用程序的 。
29．一个工程通常包含两部分内容，即 和 。
30. 一般来说，一个应用程序包括4类文件，它们是 文件、 文件、
文件、 文件。
31．Print 方法的一般格式是[对象名称.]Print[表达式表][,|;],其中对象名称只能
是 、 、 、 中的一种。
32．在窗体上画一个列表框，然后编写如下两个事件过程, 运行上面的程序，然后单击窗体，列表框中所显示的项目为
Private Sub Form_Click ( )
List1.RemoveItem 1
List1.RemoveItem 3
List1.RemoveItem 1
End Sub
Private Sub Form_Load ( )
List1.AddItem “ItemE”
List1.AddItem “ItemB”
List1.AddItem “ItemA”
List1.AddItem “ItemD”
List1.AddItem “ItemC”
End Sub
33．输出下列程序代码的运行结果.
Private Sub Form_Click() （其中: u=3，v=4）
Dim u As Integer, v As Integer
u = InputBox(“u=”)
v = InputBox(“v=”)
z = 1
Do While v > 0
Do While v Mod 2 = 0
v = v / 2
u = u * u

v = v - 1
z = u * z

Print Str$(z)
End Sub
34.根据数据性质，文件可分为 文件和 文件。
35. 属性窗口主要是针对 和 设置的.它们被通称为 。
36．一个工程通常包含两部分内容，即 和 。
37．Print 方法的一般格式是[对象名称.]Print[表达式表][,|;],其中对象名称只能
是 、 、 、 中的一种。
38. 如下图，每个窗体模块分为两部分，一部分是作为 ，另一部分是作为 。

39. 图形文件可以在设计阶段用以下两种方法装入，①用属性窗口的 装入，
    ②利用 到窗体、图片框或图象框中去。

三．编程题

1. 给定三角形的边长, ,计算三角形的面积. 编写程序,首先判断给出的三条边能否构成三角形,如可以构成,则计算并输出该三角形的面积,否则要求重新输入.当输入-1时结束程序。
   2.设有如下两组数据　　　　　　　　
   A：2，　8，　7，　6， 4，28，70，25
   B：79，27， 32， 41，57，66，78，80
   编写一个程序,把上面两组数据分别读入两个数组中,然后把两个数组中对应下标的元素相加,即2+79,8+27……25+80,并把相应的结果放入第三个数组中,最后输出第三个数组的数据。
   3.编写一个程序, 当按下某个键时, 程序以十六进制和八进制形式输出该键的KeyCode.
   4.编写程序, 求S=A!+B!+C!,阶乘的计算分别用Sub过程和Function过程两种方法来实现。
   5.如下图，在窗体上画一个图片框，一个文本框，再画两个标签。(8+8=16分)
   填写下表 （8分）
   程序中使用的对象

② 如图编写程序代码，要求键盘输入42，显示在文本框内；并将该整数范围内的偶数显示在图片框内。（每行打印7个数） （8分）

6. 如图，在窗体上画两个命令按钮和一个文本框，要求单击第一个命令按钮时，文本框消失，单击第二个命令按钮时，文本框复出，并在文本框中显示“编写程序乐趣无限”。
   （10分）

7. 如下图，在窗体上画一个图片框，一个文本框，再画两个标签。
   填写下表（8分）
   程序中使用的对象

编写程序代码，如图，要求键盘输入任意一个正整数作上限，显示在文本框内；并将该正整数范围内能同时被3和5整除的正整数，显示在图片框内。 （10分）

8. 输入任意一个字符串，检查字符串是否是“回文”.当一个字符串顺读倒读是一样的,则这样的字符串就是“回文”,如“LEVEL”, “MADAM”, “等都是“回文”. （10分）