VB考试真题一 含答案

本卷共有3道大题:

一、单项选择题（40道小题，共40分） 1、在Visual Basic中应用的是( C )。（1分）

A、面向过程的程序设计方法 B、面向数据的程序设计方法 C、面向对象的程序设计方法 D、面向用户的程序设计方法

2、如果想让代码窗口中代码的字体大些，可以使用( A )命令设置。（1分） A、“工具”菜单的“选项” B、“视图”菜单的“缩放” C、“编辑”菜单的“替换” D、“视图”菜单的“定义”

3、开发一个标准EXE程序时，工程资源管理器窗口应包含( B )文件。（1分） A、.BAS B、.FRM C、.RES D、.CLS

4、在设计模式下，双击窗体上的一个控件，则会打开( C )。（1分） A、属性窗口 B、工程资源窗口 C、代码窗口 D、窗体布局窗口

5、下列属性中，能表示窗体执行时以正常窗口状态显示的属性是( D )。（1分） A、TabIndex B、ControlBox

C、BorderStyle D、WindowsState

6、Text1是个文本框，语句 Text1=\和下面( D )的作用相同。（1分） A、Text1.Caption=\、Text1.Password=\ C、Text1.MaxLength=\、Text1.Text=\

7、Command1是一个按钮控件，它的Pictrue属性已经被成功设置为一个可显示图形，但运行时该图形未被显示，其原因可能是( D )。（1分） A、该图形太大 B、ForeColor被设置为黑色

C、BackColor被设置为黑色 D、Style属性值被设置为0

8、为了使标签覆盖背景，应把BackStyle属性设置为( B )。（1分） A、0 B、1 C、Ture D、False

9、要使时钟控件的Timer事件每隔3秒发生一次，应该把它的Interval属性设置为( D )。（1分） A、3 B、30

C、300 D、3000

10、下列控件中，没有KeyPress事件的控件是( D )。（1分） A、窗体 B、文本框 C、图形框 D、标签

11、下列声明语句中，错误的声明是( B )。（1分） A、Const var1=123 B、Dim var2 = 'ABC' C、Dim var(4) D、Static var3 As Integer

12、下列运算符中，优先级最高的运算符是( D )。（1分） A、Mod B、Not C、/ D、＾

13、表达式x+1>x是( B )。（1分） A、算术表达式 B、关系表达式 C、字符串表达式 D、非法表达式

14、表达式a%*b&-d#\\2#+c!的结果的数据类型是( D )。（1分） A、整型 B、长整型

C、单精度型 D、双精度型

15、若 a=9.8596，则执行 Print Format(a,\后，显示的结果是( D )。（1分） A、0,009.86 B、$9.86 C、9.86 D、$0,009.86

16、如果将布尔常量值True赋值给一个整型变量，则整型变量的值为( B )。（1分） A、0 B、-1

C、True D、False

17、设a=1，b=2，c=3，d=4，下面逻辑表达式的值为真的是( B )。（1分） A、Sqr(d)>b B、d>c And b>a C、Abs(a-d)

18、已知 a%=12.8 : b!=14.5，则执行 Print a%;b! 后，输出结果是( D )。（1分） A、 12.8 14 B、 12 14.5 C、 12.8 15 D、 13 14.5

19、表达式 INT(4*Rnd+1)*(INT(4*Rnd－1)) 值的范围是( D )。（1分） A、[0，8] B、[-1，8] C、[-3，8] D、[-4，8]

20、若有m$=\，则m$的值是( C )。（1分） A、abcdeABCDE B、ABCDEabcde C、abcde D、ABCDE 21、若 x=2，执行程序段：Print x + 1: Print x + 2: Print x + 3 后，变量 x 的值是( A )。（1分） A、2 B、3 C、4 D、5

22、x,y均为整数，下列正确的条件语句是( A )。（1分） A、if x≥y then y=x^3 B、if x then y=x^3

C、if 3*y>x>y then y=x^3 D、if x<3*y : x>y then y=x^3

23、设有语句 x = InputBox(\输入姓名\输入框示例\王晓明\，运行后从键盘上输入“李明”并回车，则x中的结果是( D )。（1分） A、\输入姓名\ B、\输入框示例\ C、\王晓明\ D、\李明\

24、已知：a = \，b = Len(a)，c = Left(a, 8)，执行 MsgBox a, b, c 后，在弹出的信息框的标题栏中显示的信息是( B )（1分） A、Software and Hardware B、Software C、Hardware D、19

25、已知：x = 5，执行 For i = 20 To 1 Step -2: x = x + i / 5: Next i 后，x 的值为( D )（1分） A、24 B、25 C、26 D、27 26、已知：i = 0，s = 0，执行 Do Until i >= 4: s = i + s: i = i + 1: Loop 后，s的值是( A )。（1分） A、6 B、10 C、11 D、15

27、若有 k = 0，则循环结构 Do Until k >= 10: k = k + 1: If k >= 8 Then Exit Do（回车换行）Loop 中的循环体执行次数是( C )。（1分） A、8 B、9 C、10 D、11

28、已知：Option Base 1，Dim A(-2 To 2, 2, 0 To 2, 4) As Integer，则数组A的元素个数及其第2维的下界分别是( B )。（1分） A、120和0 B、120和1 C、120和2 D、120和-2

29、声明为( D )类型的数组，其数组元素既可以具有相同数据类型，也可以相互不同。（1分）

A、String B、Single C、Integer D、Variant

30、下列说法中，不正确的说法是( D )。（1分） A、使用ReDim语句可以变更数组的上界

B、静态数组是在程序编译时分配存储空间的

C、动态数组是在程序执行到ReDim语句时分配存储空间的

D、若有Dim a As Variant，则可以使用ReDim将该数组的类型改为其他数据类型

31、已知：Option Base 0，Dim a() As Integer, Dim b(2 to 4) As Integer，如果执行 a = b ，则数

组a的下界是( C )。（1分） A、0 B、1 C、2 D、3

32、在Visual Basic中，有3种过程，其中常用的2个是( B )。（1分） A、Sub过程和事件过程 B、事件过程和通用过程 C、Sub过程和Function过程 D、事件过程和Function过程

33、以( A )保留字开始的为子过程。（1分） A、Sub B、Event

C、Function D、Property

34、过程（或函数）与外界的数据通信有两种方式，分别是( B )。（1分） A、局部变量和参数表中的参数 B、非局部变量和参数表中的参数

C、非局部变量和Static型的变量 D、Static型的变量和参数表中的参数

35、可以在窗体模块的通用声明段中声明( A )。（1分） A、全局变量 B、全局常量

C、全局数组 D、全局用户自定义类型

36、设置工程中某一个窗体作为启动窗体，必需的操作步骤是( )。（1分） A、先打开“属性窗口”，然后选择作为启动窗体的窗体名称 B、先打开“代码窗口”，然后选择作为启动窗体的窗体名称 C、先打开“工程窗口”，然后选择作为启动窗体的窗体名称 D、先打开“窗体设计器”窗口，然后选择作为启动窗体的窗体名称

37、下面语句中，肯定不能用来结束一个应用程序的语句是( A )。（1分） A、Unload B、End C、Stop D、Exit

38、下列叙述中，正确的叙述是( A )。（1分） A、文件是记录的集合 B、读写文件不需要通过内存 C、从内存向外存传送数据，为读文件，使用读语句 D、从外存向内存传送数据，为写文件，使用写语句

39、下列语句从顺序文件中读出数据，正确的语句是( D )。（1分） A、Get # 文件号,变量名 B、Write # 文件号,表达式列表 C、Put # 文件号,变量名 D、Input # 文件号,变量名

40、要打开一个顺序文件作为读，正确的语句是( C )。（1分）

A、F=\ B、F=\ C、Open \ D、Open C\\t1.txt For Input As #2

二、填空题（5道小题，共30分）

1、* 判断N是否为完全数（一个数等于它所有因子（不包括自身）之和，如6=1+2+3）。 * 程序段如下： S = 0

For I = 1 To N - 1

If N Mod I = 0 Then S = S +I Next I

If N = Then

Print \是完全数\ Else

Print \不是完全数\ End If

（6分）

--------------------------------------------------------------------------------

2、* 使用InputBox函数接收一批字符，将其中的数字打印输出。 * 程序段如下：

Private Sub Form_Click()

Dim s As String, st As String, i As Integer

s = InputBox(\请输入一个带数字的字符串\ For i = 1 To Len(s) st = Mid(s, i , 1)

If st >= \ Print st; End If Next i End Sub

（6分）

--------------------------------------------------------------------------------

3、* 程序功能是统计二维数组A(1 TO 6, 1 TO 6)第一行所有元素中偶数元素的个数，并在窗

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