VB程序设计---模拟试题3

模拟试题三

一、单选题

1. Visual Basic是一种面向对象的可视化程序设计语言，采取了 A 的编程机制。

(A) 事件驱动(B) 按过程顺序执行

(C) 从主程序开始执行(D) 按模块顺序执行

2. 若要使标签控件的大小自动与所显示的文本相适应，则可通过设置 A 属性的值为True来实现。

(A) AutoSize (B) Alignment

(C) Appearance (D) Visible

3. 在Visual Basic中最基本的对象是 C ，它是应用程序的基石，是其他控件的容器。

(A) 文本框(B) 命令按钮

(C) 窗体(D) 标签

4. 若设置了文本框的属性PasswordChar=" &" ,则程序运行期间向文本框输入8个任意字符后，文本框显示的是

A 。

(A) 8个" &" (B)1个" &"

(C) 8个" *" (D)无任何内容

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("123456"，3，2)执行后，a变量中的值是 D 。

(A) "12334" (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. 如果变量a、b、c均为整型，下列程序段的输出结果为 C 。

a=2

b=3

c=a*b

Print a & "*" & b & "=" & c

(A) c=6 (B) a*b=c

(C) 2*3=6 (D) a*b=6

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.假定有以下程序段：

For i=1 to 3

For j=5 to 1 Step -1

Print i*j

Next j

Next i

则语句Print i*j的执行次数是 A 。

(A)15 (B) 16 (C) 17 (D) 18

12.如下数组声明语句，则数组a包含元素的个数有 A 。

Dim a(3, -2 to 2, 5)

(A) 120 (B) 75 (C) 60 (D) 13

13.以下程序的输出结果是 A 。

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

i=i-1

Print a(i)

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

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

(A) Dim (B) Private (C) Public (D) Static

15.在窗体中添加一个名称为Command1的命令按钮和一个名称为Text1的文本框，然后编写如下程序，程序运行后，单击命令按钮，则文本框中显示的内容是 B 。

Private Sub Command1_Click( )

Dim x, y, z As Integer

x=10

y=5

z=23

Text1.text=””

Call p1(x,y,z)

Text1.text=Str(z)

End Sub

Sub p1(ByVal a As Integer, ByVal b As Integer, c As Integer)

c=a+b

EndSub

(A) 0 (B) 15 (C) 23 (D) Str(z)

16.以下能够触发文本框Change事件的操作是 D 。

(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) show方法，兼具有加载和显示窗体的两种功能

(B) 用Load语句把一个窗体装入内存时，一定能够显示出此窗体

(C) 用Load语句把一个窗体装入内存时，不一定能够显示出此窗体

(D) show方法仅有显示窗体的作用

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函数建立的数组，其变量类型必须是变体类型。

7．VB中的变量按其作用域分为全局变量、模块变量和局部变量。

8．复选框的 Value 属性设置为2——Grayed时，变成灰色，禁止用户选择。

9．滚动条响应的重要事件有 Scroll 和Change。

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

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

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

13．在运行状态改变ADO数据控件的数据源连接属性后，必须使用 Refresh 方法激活这些变化。

14．VB中工程文件的扩展名为 .vbp 。

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

dcba

(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

End Sub

Sub Command1_Click()

Dim a%, b%

a = 10:

b = 20

Print "调用Swap1前 a和b的值为："; a; b

Call Swap1(a, b)

Print "调用Swap1后按传值方式 a和b的值为："; a; b

a = 10:

b = 20

Call Swap2(a, b)

Print "调用Swap2后按传地址方式 a和b的值为："; a; b

End Sub

调用Swap1前a和b的值为：10 20

调用Swap1后按值传递方式a和b的值为：10 20

调用Swap1后按地址传递方式a和b的值为：20 10

(3)在窗体上添加两个文本框（其name属性分别为Text1、Text2）和一个命令按钮（其name属性为command1），然后编写如下事件过程：

Private Sub Command1_Click()

x=0

Do While x<10

x=(x-2)*(x+3)

n=n+1

Loop

Text1.text=Str(n)

Text2.text=Str(x)

End Sub

程序运行后，单击Command1按钮后，在两个文本框里显示的值分别是什么？

text1文本框显示：2

text2文本框显示：24

2.补充程序

(1) 以下是求1～18之间某个数的阶乘的程序，具体的数值n由滚动条HScroll1获得，结果显示在窗体下部的两个Label标签里。补充完整如下程序。

Private Sub HScroll1_Change()

Dim i As Integer, s As Double

s = 1

n = Hscroll1.Value

If n <> 0 Then

For i = 1 To n

s = s*i

Next i

End If

Label2.Caption = n & "! = "

Label3.Caption = s

End Sub

(2)以下程序的功能是：已知数组a，删除数组中某个元素。

Private Sub Command1_Click( )

Dim a( ), key%, i%, j%

a=Array(1, 6, 8, 3, 5, 9, 10, 2, 4, 7)

key=9

For i=0 to UBound(a)

If key=a(i) Then

For j=i+1 to UBound(a)

a(j-1)=a(j)

Next j

ReDim Preserve a(UBound(a)-1)

MsgBox(＂删除完成＂)

Exit Sub

End If

Next i

MsgBox(＂找不到要删除的元素＂)

End Sub