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="*"

B、Text1.Password="*"

C、Text1.MaxLength="*"

D、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,"$00,00.00")后，显示的结果是( 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)

D、Not(c-b)

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$="ABCDE":MID$(m$,1,5)="abcde"，则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 = "Software and Hardware"，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="C\t1.txt" : Open F For Input As #1

B、F="C\t1.txt" : Open "F" For Output As #2

C、Open "C\t1.txt" For Output As #1

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 >= "0" And st <= "9" Then

Print st;

End If

Next i

End Sub

（6分）

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

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

体上输出其结果。

* 数组元素值为[0，10]内的随机整数。

* 程序代码如下：

Option Base 1

Private Sub Form_Click()

Dim a%(6, 6), n%

For i = 1 To 6

For j = 1 To 6

a(i, j) = Int(Rnd * 11)

Next j

Next i

n = 0

For i = 1 To 6

For j = 1 To 6

If i = 1 And a(i, j) Mod 2 = 0 Then n = n + 1

Next j

Next i

Print "第一行所有元素中偶数元素的个数为："; n End Sub

（6分）

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

4、* 设计一个求最小公倍数的子过程。

* 程序代码如下：

Private Sub gbs(M, N)

Dim X As Integer

a = M:

b = N

If M = 0 Or N = 0 Then Exit Sub

r = M Mod N

Do While r <> 0

a = b

b=r

r = a Mod b

Loop

X = M * N / b

Print X

End Sub

（6分）

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

5、* 程序的功能是：把D:盘根上顺序文件zhengda1.txt的内容读入内存，

* 并在文本框Text1中显示出来。

* 程序段如下：

Private Sub Command1_Click()

Dim inData As String

Text1.Text = ""

Open "d:\zhengda1.txt" For Input As #1

Do While Not EOF(1)

Input #1, inData

Text1.Text = Text1.Text & inData

Loop

Close #1

End Sub

（6分）

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

三、编程题（3道小题，选作2道，每道15分，共30分）

1、* 编写一个计算矩形周长的程序，如图x_14d.jpg 所示。

* 界面要求：

* 使用文本框，标签，命令按钮完成。

* 运行要求：

* 1、点击“初始化”按钮，清空所有文本框内容；

* 2、点击“计算”按钮，根据文本框中输入的长、宽，计算出矩形的周长并显示到相应的文本框。

* （此题要求上载窗体文件，不要求填写程序运行结果）

（下载文件“x_14d.jpg”）下载方法：在链接上右击打开弹出菜单，选择“目标另存为”。（15分）

（本题不要求填写运行结果）

请将你解答本题所写的源程序粘贴到下面或者上载源程序

VERSION 5.00

Begin VB.Form Form1

Caption = "Form1"

ClientHeight = 4425

ClientLeft = 60

ClientTop = 450 ClientWidth = 8010

LinkTopic = "Form1" ScaleHeight = 4425 ScaleWidth = 8010 StartUpPosition = 3 '窗口缺省Begin https://www.360docs.net/doc/a914909587.html,mandButton Command2 Caption = "计算"

BeginProperty Font

Name = "宋体"

Size = 12

Charset = 134

Weight = 400

Underline = 0 'False

Italic = 0 'False

Strikethrough = 0 'False EndProperty

Height = 495

Left = 4800

TabIndex = 7

Top = 3360

Width = 1215

End

Begin https://www.360docs.net/doc/a914909587.html,mandButton Command1 Caption = "出始化"

BeginProperty Font

Name = "宋体"

Size = 12

Charset = 134

Weight = 400

Underline = 0 'False

Italic = 0 'False

Strikethrough = 0 'False EndProperty

Height = 495

Left = 960

TabIndex = 6

Top = 3360

Width = 1215

End

Begin VB.TextBox Text3

Height = 855

Left = 5280

TabIndex = 5

Top = 1560

Width = 1695

End

Begin VB.TextBox Text2

Height = 855

Left = 2640

TabIndex = 4

Top = 1560

Width = 1695

End

Begin VB.TextBox Text1

Height = 855

Left = 120

TabIndex = 3

Top = 1560

Width = 1815

End

Begin https://www.360docs.net/doc/a914909587.html,bel Label3

Caption = "周长"

BeginProperty Font

Name = "宋体"

Size = 12

Charset = 134

Weight = 400

Underline = 0 'False

Italic = 0 'False

Strikethrough = 0 'False EndProperty

Height = 1095

Left = 5520

TabIndex = 2

Top = 240

Width = 1215

End

Begin https://www.360docs.net/doc/a914909587.html,bel Label2

Caption = "宽"

BeginProperty Font

Name = "宋体"

Size = 12

Charset = 134

Weight = 400

Underline = 0 'False

Italic = 0 'False

Strikethrough = 0 'False EndProperty

Height = 975

Left = 2880

TabIndex = 1

Top = 360

Width = 1215

End

Begin https://www.360docs.net/doc/a914909587.html,bel Label1

Caption = "长"

BeginProperty Font

Name = "宋体"

Size = 12

Charset = 134

Weight = 400

Underline = 0 'False

Italic = 0 'False

Strikethrough = 0 'False EndProperty

Height = 735

Left = 480

TabIndex = 0

Top = 480

Width = 1215

End

End

Attribute VB_Name = "Form1"

Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False

Attribute VB_PredeclaredId = True Attribute VB_Exposed = False

Private Sub Command1_Click()

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

End Sub

Private Sub Command2_Click()

Dim a%, b%, c%

a = Text1.Text

b = Text2.Text

c = 2 * (a + b)

Text3.Text = c

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

2、* 编写程序：

* 设窗体上有一命令按钮控件Command1，对其Click事件设计一事件过程。

* 统计二维数组A(1 To 6, 1 To 6)的所有是5的倍数的元素的个数，并在窗体上输出其结果。

* 数组元素值为[0，100]内（包括0和100）的随机整数。

（15分）

（本题不要求填写运行结果）

请将你解答本题所写的源程序粘贴到下面或者上载源程序

VERSION 5.00

Begin VB.Form Form1

AutoRedraw = -1 'True

Caption = "Form1"

ClientHeight = 4620

ClientLeft = 60

ClientTop = 450

ClientWidth = 6810

LinkTopic = "Form1"

ScaleHeight = 4620

ScaleWidth = 6810

StartUpPosition = 3 '窗口缺省

End

Attribute VB_Name = "Form1"

Attribute VB_GlobalNameSpace = False

Attribute VB_Creatable = False

Attribute VB_PredeclaredId = True

Attribute VB_Exposed = False

Option Base 1

Private Sub Form_Load()

Dim a%(6, 6)

n = 0

For i = 1 To 6

For j = 1 To 6

a(i, j) = Int(Rnd * 101)

If a(i, j) Mod 5 = 0 Then

n = n + 1

End If

Next j

Print " 二维数组A(1 To 6, 1 To 6)的所有是5的倍数的元素的个数是" & n End Sub

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

3、* 编写程序：

* 求1+1/4+1/7+1/10+...+1/(3*n+1)，直到最后一项的值小于0.0001。

（15分）

必须将本题程序最后的运行结果填入下面的框中。否则，该题以零分计! 请将你解答本题所写的源程序粘贴到下面或者上载源程序

-