VB程序设计 - 模拟试题2

模拟试题二

一、单选题

1. 以下关于Visual Basic特点的叙述中，错误的是 B 。 (A) 构成Visual Basic程序的多个过程没有固定的执行顺序 (B) Visual Basic程序只能编译运行

(C) Visual Basic是采用事件驱动编程机制的语言

(D) Visual Basic是结构化程序，具备结构化程序的三种基本结构 2. 有程序代码如下:C

Tex1.Text=\

则Tex1、Text、\分别代表

(A) 对象、值、属性 (B) 对象、方法、属性

(C) 对象、属性、值 (D) 属性、对象、值 3. 下面关于对象的描述中， B 是错误的。

(A) 在Visual Basic中，对象所能响应的事件是由系统定义的

(B) 对象的任何属性既可以通过“属性”窗口设定，也可以通过程序语句设定 (C) Visual Basic中允许不同对象具有相同属性和方法 (D) Visual Basic中的对象具有自己的属性和方法 4. 任何控件共同具有的是 B 属性。 (A) Text (B) Name (C) ForeColor (D) Caption

ab5. 与数学表达式3cd对应 ，不正确的VB算术表达式是 D 。

(A) a*b/(3*c*d) (B) a/3*b/c/d (C) a*b/3/c/d (D) a*b/3*c*d 6. InputBox函数返回值的类型是 B 。

(A) 整型数值 (B) 字符串 (C) 变体 （D） 数值或字符串 7. 下面正确的赋值语句是 C 。

(A) x+y=30 (B) y= ? *r*r (C) y=x+30 (D) 3y=x 8. 下面程序段运行后，显示的结果是 A 。 Dim x If x Then Print x Else Print x+1

(A)l (B)O (C)-1 (D)显示出错信息

9. 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程，程序运行后，如果在“输入”对话框中输入3，则窗体上显示的是 A 。 Private Sub Command1_Click( ) a=InputBox(\输入\ Select Case a Case 1, 3 Print \分支1\ Case Is > 2 Print \分支2\ CaseE Else Print \其他分支\

EndSelect

1

End Sub

(A) 分支1 (B) 分支2 (C) 分支1分支2 (D) 程序报错 10.下列循环结构能正常结束循环的是 C 。

(A) i=5 (B) i=1 Do Do i=i+1 i=i+2 Loop Until i<0 Loop Until i=10

(C) i=10 (D) i=6

Do Do

i=i+1 i=i-2 Loop Until i>0 Loop Until i=1

11.下面的程序段的运行结果为 B 。 Private Sub Form_Click( ) n=0

For i=1 to 10 If i Mod 2 =1 Then n=n+1 Next i Print n End Sub

(A) 10 (B) 5 (C) 15 (D) 1

12.要分配存放如下矩阵的数据， C 数组声明语句能实现（不浪费空间）。

1.1 2.2 3.3

4.4 5.5 6.6

7.7 8.8 9.9

(A) Dim a(9) As Single (B) Dim a(3,3) As Single

(C) Dim a(-1 to 1, -5 to -3) As Single (D) Dim a(-3 to -1, 5 to 7) As Integer

13.语句Dim A&(10)，B#(10,5)定义了两个数组，对其描述正确的是其 C 。 (A) 一维整型数组和二维单精度型数组 (B) 一维实型数组和二维双精度型数组 (C) 一维长整型数组和二维双精度型数组 (D) 一维实型数组和二维整型数组

14.下面子过程定义语句，合法的是 A 。 (A) Sub f1(ByVal n%( ) ) (B) Sub f1(n%) As Integer (C) Function f1%(f1%) (D) Function f1(ByVal n%) 15.下面过程运行后显示的结果是 A 。

Private Sub F1(n%, ByVal m%) n=n Mod 10 m=m\\10 End Sub Private Sub Command1_Click( ) Dim x%, y% x=12: y=34

2

Call F1(x, y) Print x, y End Sub (A) 2 34 (B) 12 34 (C) 2 3 (D) 12 3

16.设窗体上有一个列表框控件List1，且其中含有若干列表项，则能够表示当前选中的列表项内容的属性为 D 。

(A) List1.List (B) List1.ListIndex (C) List1.Index (D) List1.Text 17.在用菜单编辑器设计菜单时，必须输入的项有 D 。 (A) 快捷键 (B) 标题 (C) 索引 (D) 名称 18.以下是设置通用对话框的过滤器属性的语句，正确的是 C 。 (A) CommonDialog1.Filter=All Files|*.*|Pictures(*.Bmp)|(*.Bmp)

(B) CommonDialog1.Filter=”All Files”|”*.*”|”Pictures(*.Bmp)”|”(*.Bmp)” (C) CommonDialog1.Filter=”All Files|*.*|Pictures(*.Bmp)|*.Bmp” (D) CommonDialog1.Filter={All Files|*.*|Pictures(*.Bmp)|(*.Bmp)}

19.如果Form1是启动窗体，并且Form1的Load事件过程中有语句Form2.Show，则程序启动后 C 。 (A) 发生一个运行时错误 (B) 发生一个编译错误

(C) 在所有的初始化代码运行后Form1是活动窗体 (D) 在所有的初始化代码运行后Form2是活动窗体 20.按存储信息的形式分类，文件可以分为 A 。 (A) 顺序文件和随机文件 (B) ASCII文件和二进制文件 (C) 程序文件和数据文件 (D) 磁盘文件和打印文件 21.下面关于随机文件的描述不正确的是 B 。 (A) 每条记录的长度必须相同 (B) 一个文件中记录号不必唯一

(C) 可通过编程对文件中的某条记录方便地修改 (D) 文件的组织结构比顺序文件复杂

22.为了建立一个随机文件，其中每一天记录由多个不同数据类型的数据项组成，应使用 A 。 (A) 记录类型 (B) 数字 (C) 字符串类型 (D) 变体类型 23.当使用Line方法画直线后，当前坐标在 C 。 (A) (0, 0) (B) 直线起点 (C) 直线终点 (D) 容器的中心

24.命令按钮、单选按钮、复选框上都有Picture属性，可以在控件上显示图片，但需要通过属性 B 来控制 (A) Appearance (B) Style

(C) DisabledPicture (D) DownPicture

25.为了便于用户使用ADO数据访问计数，VB6.0提供了 D 控件。 (A) 文本框控件 (B) 命令按钮 (C) 菜单 (D) ADO Data Control控件

二、填空题

1．对文本框的ScrollBars属性设置为2（有垂直滚动条），但没有垂直滚动条显示，是因为没有将 MultiLine 属性设置为True。

2．对命令按钮的Picture属性装入.bmp图形文件后，选项按钮上并没有显示所需的图形，原因是没有将 Style 属性设置为1（Graphical）。 3．Int(-3.5)、Int(3.5)、Fix(-3.5)、Fix(3.5)、Round(-3.5)、Round(3.5)的值分别为 -4 、 3 、 -3 、 3 、 -4 、 4 。

4．若定义一维数组为：Dim a(N to M)，则该数组的元素为 M-N+1 个。

3

5．按如下要求书写函数过程定义的首语句，即Function Myf(a%,b%()) As Boolean 定义语句，要求为：形参有两个a为整型，b为一维整型数组，函数过程名为MyF，函数返回值为逻辑型。 6．滚动条产生Change事件是因为 Value属性 值改变了。

7．如果要每隔15s产生一个计时器事件，则Interval属性应设置为 15000 。

8．在VB中，除了可以指定某个窗体作为启动对象之外，还可以指定 Main子过程 作为启动对象。

9．用Show方法显示自定义对话框时，如果Show方法后带 vbModal 参数就将窗体作为模式对话框显示。 10．容器的实际可用高度和宽度由 ScalHeight 和 Scalewidth 属性确定。 11．使用Circle方法正向采用 逆 时针方向。

12．启动窗体时，为了初始化窗体中的各控件，可选作窗体的____ Load _____事件。

13．结构化程序设计中，三种基本结构是顺序、选择 和循环结构。

三、编程应用题

1.程序阅读 (1)

Private Sub Command1_Click() Dim x() As Integer Dim n%, i% n = 10

ReDim x(n - 1) x(0) = 1 x(1) = 1

For i = 2 To n - 1

x(i) = x(i - 1) + x(i - 2) Next i

For i = 0 To n - 1 Print x(i),

If (i + 1) Mod 5 = 0 Then Print Next End Sub

1 1 2 3 5 8 13 21 34 55

(2) 在窗体上画一个命令按钮，然后编写如下事件过程： Public Function f(m%, n%) Do While m< >n Do While m> n: m=m-n: Loop Do While m< n: n=n-m: Loop Loop f=m End Function Private Command1_Click( ) Print f(24, 18) End Sub 6 (3)

4

Public x as Integer Private Sub Fomr_Click( ) Dim x as Integer x=10 print ＂x=＂;x End Sub x=10 2.补充程序

(1)以下是冒泡法排序的程序，要求将数组里的数按升序排列，将其补充完整。 Private Sub Command1_Click()

Dim a(), iMin%, n%, i%, j%, t% a = Array(8, 6, 9, 3, 2, 7)

n = Ubound(a) ' 获得数组的下标上界

For i = 0 To n - 1 For j = 0 To n-1-i If a(j)>a(j+1) Then

t = a(j): a(j) = a(j + 1): a(j + 1) = t End If Next j Next i

For i = 0 To n

Print a(i); Next i End Sub

(2) 用递归的方法求n!

Private Sub Command1_Click() Print \End Sub

Public Function fac(n as integer) As Integer If n = 1 Then fac = 1 Else

fac=n*fac(n-1) End If End Function

5

本文来源：https://www.bwwdw.com/article/7q8h.html