VB程序设计试题及答案

VB程序设计试题及答案（三） 一、单选题

1. Visual Basic是一种面向对象的可视化程序设计语言，采取了 A 的编程机制。 (A) 事件驱动 (B) 按过程顺序执行 (C) 从主程序开始执行 (D) 按模块顺序执行 2. 若要使标签控件显示时不覆盖其背景内容，要对 D 属性进行设置。 (A) Backcolor (B) BorderStyle (C) Forecolor (D) Backstyle

3. 在Visual Basic中最基本的对象是 C ，它是应用程序的基石，是其他控件的容器。 (A) 文本框 (B) 命令按钮 (C) 窗体 (D) 标签

4. 要判断在文本框是否按下Enter键，应在文本框的 D 事件中判断。 (A) Change (B)KeyDown (C) Click (D)KeyPress 5. 数学表达式3≤x

(A) 3<=x<10 (B) 3<=x AND x>10 (C) x>=3 Or x<10 (D) x>=3 AND x<10 6. Rnd函数不可能为下列 B 值。

(A) 0 (B) 1 (C) 0.1234 (D) 0.0005 7. 赋值语句:a=123+Mid(\，3，2)执行后，a变量中的值是 D 。 (A) \ (B) 123 (C) 12334 (D) 157 8. 对于语句If x=l Then y=l，下列说法正确的是 C 。 (A) x=l和y=l均为赋值语句 (B) x=l和y=l均为关系表达式 (C) x=l为关系表达式，y=l为赋值语句 (D) x=l为赋值语句，y=l为关系表达式

9. 下面程序段表示求两个数中的大数， D 不正确。

(A) Max=IIf(x>y，x，y) (B) If x>y Then Max=x Else Max=y (C) Max=x (D) Ify>=x Then Max=y If y>=x Then Max=y Max=x

10.当在文本框中输入“ABCD”4个字符时，窗体上显示的是 C 。 Private Sub Text1_Change( ) Print Text1; End Sub

(A) ABCD (B) A (C) AABABCABCD (D) A

B AB

C ABC

D ABCD

11.下列哪个程序段不能分别正确显示1！、2！、3！、4！的值 B 。 (A) For i=1 to 4 (B) For i=1 to 4 n=1 For j=1 to i

For j=1 to I n=1 n=n*j n=n*j Next j Next j Print n Print n Next I Next i (C) n=1 (D) n=1 For j=1 to4 j=1

n=n*j Do While j<=4 Print n n=n*j Next j Print n j=j+1 Loop 12.如下数组声明语句，则数组a包含元素的个数有 A 。 Dim a(3, -2 to 2, 5)

(A) 120 (B) 75 (C) 60 (D) 13 13.以下程序的输出结果是 D 。 Dim a

a=Array(1, 2, 3, 4, 5, 6, 7) For i=Lbound(a) to Ubound(a) a(i)=a(i)*a(i) Next i Print a(i)

(A) 49 (B) 0 (C) 不确定 (D) 程序出错

14.在过程中定义的变量，若希望离开该过程后，还能保存过程中局部变量的值，则应使用关键字 在过程中定义局部变量。

(A) Dim (B) Private (C) Public (D) Static 15.如下程序，运行的结果是 B 。 Dim a%, b%, c% Public Sub p1(x%, y%) Dim c%

x=2*x: y=y+2: c=x+y End Sub

Public Sub p2(x%, ByVal y%) Dim c%

x=2*x: y=y+2: c=x+y End Sub

Private Sub Command1_Click( ) a=2: b=4: c=6 Call p1(a, b)

Print “a=”; a; “b=”; b; “c=”; c Call p2(a, b)

Print “a=”; a; “b=”; b; “c=”; c End Sub

(A) a=2 b=4 c=6 (B) a=4 b=6 c=10

D a=4 b=6 c=10 a=8 b=8 c=16 (C) a=4 b=6 c=6 (D) a=4 b=6 c=14 a=8 b=6 c=6 a=8 b=8 c=6 16.复选框的Value属性为1时，表示 B 。

(A) 复选框未被选中 (B) 复选框被选中 (C) 复选框内有灰色的勾 (D) 复选框操作有误 17.下面关于菜单的说法中，错误的是 B 。

(A) 每个菜单项都是一个控件，与其他控件一样也有自己的属性和事件 (B) 除了Click事件之外，菜单项还能响应其他的，如DbClick事件 (C) 菜单项的快捷键不能任意设置

(D) 在程序执行时，如果菜单项的Enabled属性为False，则该菜单项变成灰色，不能被用户选择 18.下面关于多重窗体的叙述中，正确的是 B 。 (A) 作为启动对象的Main子过程中能放在窗体模块中

(B) 如果启动对象是Main子过程，则程序启动时不加载任何窗体，以后由该过程根据不同情况决定是否加载或加载哪一个窗体

(C) 没有启动窗体，程序不能执行 (D) 以上都不对

19.当用户将焦点移到另一个应用程序时，当前应用程序的活动窗体将 D 。 (A) 发生DeActivate事件 (B) 发生LostFocus事件

(C) 发生DeActivate和LostFocus事件 (D) DeActivate和LostFocus事件都不发生 20.顺序文件是因为 D 。

(A) 文件中的数据按每行的长度从小到大排序好的 (B) 文件中的数据按某个关键数据项从大到小进行排序 (C) 文件中的数据按某个关键数据项从小到大进行排序

(D) 数据按进入的先后顺序存放的，读出也是按原写入的先后顺序读出 21.文件号最大可取值为 B 。

(A) 255 (B) 511 (C) 512 (D) 256 22.Print #1, STR$1中的Print是 A 。

(A) 文件的写语句 (B) 在窗体上显示的方法 (C) 子程序名 (D) 以上均不是 23.以下的属性和方法中 C 可重定义坐标系。

(A)Drawstyle属性 (B) DrawWidth属性 (C) Scale方法 (D) ScaleMode属性 24.封闭图形的填充方式由下列 C 属性决定。

(A) DrawStyle, DrawMode (B) AutoRedraw, ClipControls (C) FillStyle, FillColor (D) ForeColor, BorderColor

25.下列字符串中， D 不包含在ADO数据控件的ConnectionString属性中。 (A) Microsoft Jet 4.0 OLE DB Provider (B) Data Source=C:\\Mydb.mdb (C) Persist Security Info=False (D) 2-adCmdTable 二、填空题

1．在代码窗口对窗体的BorderStyle、MaxButton属性进行了设置，但运行后没有效果，原因是这些属性 在运行时设计是无效的 。

2．在文本框中，通过 SelStart 属性能活得当前插入点所在的位置。 3．表达式Ucase(Mid(“abcdefgh”, 3, 4))的值是 CDEF 。

4．已知a=3.5，b=5.0，c=2.5，d=True，则表达式：a>=0 And a+c>b+3 Or Not d的值是 False 。

5．要获得动态数组的上界通过 UBound 函数，下界通过 LBound 函数。 6．由Array函数建立的数组，其变量类型必须是 variant 类型。 7．VB中的变量按其作用域分为全局变量、模块变量和 局部变量 变量。 8．复选框的 Value 属性设置为2——Grayed时，变成灰色，禁止用户选择。 9．滚动条响应的重要事件有 Scroll 和Change。

10．假定有一个通用对话框控件CommonDialog1，除了用COmmonDialog1.Action=3显示颜色对话框之外，还可以用 showcolor 方法显示。

11．窗体Form1的左上角坐标为(-200, 250)，窗体Form1的右下角的坐标为(300, -150)，则X轴的正向向 右 ，Y轴的正向向 上 。

12．使用Circle方法画扇形，起始角、终止角取值范围为 0~2π 。

13．在运行状态改变ADO数据控件的数据源连接属性后，必须使用 Refresh 方法激活这些变化。 14．VB中工程文件的扩展名为 vbg 。

15．如果在窗体上已经创建了一个文本框对象Text1，可以通过 Keypress 事件获得输入键值的ASCII码。

16．VB中对象的三要素是 属性 、 事件 和 方法 。 三、编程应用题 1.程序阅读 (1)

Private Sub Command1_Click( ) Dim s as String, i% s=＂abcd＂

For i=Len(s) to 1 step -1 Print Mid(s, i, 1) Next i End Sub 输出结果： d c b a (2)

Sub Swap1(ByVal x%, ByVal y%) Dim t%

t = x: x = y: y = t End Sub

Sub Swap2(ByRef x%, ByRef y%) Dim t%

t = x: x = y: y = t