2017年9月计算机二级考试VB考试题

VB是计算机二级考试的科玛之一，你知道计算机二级考试VB科目都考哪些知识吗?为了方便考生备考计算机二级考试VB 科目。下面是小编为大家带来的计算机二级考试VB考试题，欢迎阅读。

　　考试题一：

1. 在窗体上画一个命令按钮，然后编写如下代码：

Option Base 1

Private Sub Command1_Click( )

Dim a ( )

a = Array ( 30 , 40 , 70 , 10 , 50 , 80 , 20 , 90 , 60 )

s = 0

k = 1

While k – 10

s = s + a ( k )

k = k + 1

Wend

Aver = s / ( k – 1 )

m = 0

For i = 1 To k – 1

If a ( i ) > Aver Then m = m +1

Next i

Print m

End Sub

程序运行后，单击命令按钮，输出结果为( 【84】 )

(A)4　　　　　(B)5　　　　　(C)6　　　　　(D)7

2. 有以下函数：

Function Fun(ByVal a As Integer) As Integer

Dim b As Integer

Static c As Integer

b=2 : c = 1

b = b +2

c = c + 2

Fun = a + b + c

End Function

在窗体上画一个命令按钮，然后编写如下代码：

Privat Sub Command1_Click ( )

For i = 1 To 4

Print Fun ( i ) ,

Next i

End Sub

运行程序后，单击命令按钮，输出结果为( 【85】 )

(A)8 8 8 8 　 　　(B)8 13 18 23

(C)8 9 10 11 (D)8 11 14 17

3. 下列不能打开属性窗口的操作是(　　　)

(A)执行“视图”菜单中的【属性窗口】命令　　　　(B)按键

(C)单击工具栏上的【属性窗口】按钮　　　　　　　(D)按键

4. 在使用Visual Basic的工具箱时，如果工具箱没有出现在窗口中，应在(　　　)菜单中操作使它可见。

(A)视图　　　　(B)窗口　　　　　(C)文件　　　　　(D)编辑

5. Visual Basic的特点不包括下面的(　　　)

(A)不需编程　　　　　　　　　　　　(B)面向对象的程序设计

(C)可视化程序设计　　　　　　　　　(D)事件驱动的程序设计

6. 在Visual Basic集成环境的主窗口中，不包括的项目是(　　　)

(A)标题栏　　　　(B)菜单栏　　　　(C)状态栏　　　　(D)工具栏

7. 在Visual Basic环境中，窗体等大小的默认计量单位是(　　　)

(A)英寸　　　　　(B)厘米　　　　　(C)像素　　　　　(D)twip

8. 与传统的程序设计语言相比，Visual Basic最突出的.特点是(　　　)

(A)结构化程序设计　　　　　　　　　　(B)程序开发环境

(C)事件驱动编程机制　　　　　　　　　(D)程序调试技术

9. Visual Basic窗体设计器的主要功能是(　　　)

(A)建立用户界面　　　　　　　　　　　(B)编写源程序代码

(C)画图　　　　　　　　　　　　　　　(C)显示文字

10. 为了在按下键时执行某个命令按钮的事件过程，需要把该命令按钮的一个属性设置为True，这个属性是(　　　)

(A)Value　　　　(B)Default　　　　(C)Cancel　　　　(D)Enabled

　　考试题二：

1. 有如下一个函数过程：

Function Func (ByVal Num As Long )

Dim k As Long

k=1

Num = Abs (Num)

Do While ( Num)

k = k * (Num Mod 10)

Num = Num 10

Loop

Func = k

End Function

以下是一个调用该函数的事件过程，在运行该过程后，在输入对话框中输入“2345”，则该过程的运行结果是( 【78】 )

Private Sub Command1_Click( )

Dim n As Long , r As Long

n = InputBox ( “请输入数据：” )

n = CLng ( n )　　　　　　　‘CLng函数的返回值是一个长整型数值

r = Func ( n )

Print r

End Sub

(A)0　　　　　(B)24　　　　　(C)60　　　　　(D)120

2. 在窗体上画一个名称为Command1的命令按钮和两个名称分别为Text1、Text2的文本框，然后编写如下事件过程：

Private Sub Command1_Click()

n = Val()

Select Case n

Case 1 To 20

x = 10

Case 2, 4, 6

x= 20

Case Is < 10

x = 30

Case 10

x = 40

End Select

= x

End Sub

程序运行后，如果在文本框Text1中输入10，然后单击命令按钮，则在Text2中显示的内容是

(A)10 (B)20 (C)30 (D)40

3. 在窗体上画一个名称为Text1的文本框，一个名称为Command1的命令按钮，然后编写如下事件过程和通用过程：

Private Sub Command1_Click()

N=Val()

If n 2 = n / 2 Then

f=f1(N)

Else

F=f2(N)

End If

Print f; n

End Sub

Public Function f1(ByRef x)

x = x * x

f1=x + x

End Function

Public Function f2(ByVal x)

x = x * x

f1=x + x + x

End Function

程序运行后，在文本框中输入6，然后单击命令按钮，窗体上显示的是( 【79】 )

(A)72 6　　　(B)108 6　　　(C)72 36　　　(D)108 36

4. 设在工程中有一个标准模块，其中定义了如下记录类型

Type Books

Name As String * 10

TelNum As String * 20

End Type

在窗体上画一个名为Command1的命令按钮，要求当执行事件过程Command1_Click( )时，在顺序文件Ks74 . Txt中写入一条记录。下列能够完成该操作的事件过程是( 【79】 )

(A)Private Sub Command1_Click( )

Dim b As Books

Open “D:” For OutPut As #1

= InputBox ( “输入姓名”)

um = Inputbox ( “输入电话号码”)

Write #1 , , um

Close #1

End Sub

(B)Private Sub Command1_Click( )

Dim b As Books

Open “D:” For InPut As #1

= InputBox ( “输入姓名”)

um = Inputbox ( “输入电话号码”)

Print #1 , , um

Close #1

End Sub

(C)Private Sub Command1_Click( )

Dim b As Books

Open “D:” For OutPut As #1

= InputBox ( “输入姓名”)

um = Inputbox ( “输入电话号码”)

Write #1 , b

Close #1

End Sub

(D)Private Sub Command1_Click( )

Dim b As Books

Open “D:” For InPut As #1

= InputBox ( “输入姓名”)

um = Inputbox ( “输入电话号码”)

Print #1 , Name , TelNum

Close #1

End Sub

5. 在窗体上画一个名称为Text1的文本框，并编写如下程序：

Private Sub Form_Load()

Show

= ""

ocus

End Sub

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)

Print "程序设计"

End Sub

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)

Print "Visual Basic";

End Sub

程序运行后，如果按"A"键，然后单击窗体，则在窗体上显示的内容是

(A)Visual Basic 　　　　　　　　(B)程序设计

(C)A程序设计　　　　　　　　 (D)Visual Basic程序设计

6. 下列程序运行后，运行结果不是144的程序是( 【80】 )

(A)Dim z As Integer 　　　　　　　　　　　(B)Dim x As Integer

Private Sub Form_Click( ) Private Sub Form_Click( )

x=12 x=12

Call Fun ( x ) Call Fun ( x , z)

Print z Print z

End Sub End Sub

Sub Fun ( y ) Sub Fun ( y , z )

z = y * y z = y * y

End Sub End Sub

(C)Private Sub Form_Click( ) (D)Private Sub Form_Click( )

x=12 x=12

Call Fun ( x ) Call Fun ( x , z )

Print z Print z

End Sub End Sub

Sub Fun ( Byref y ) Sub Fun ( Byref y , z )

z = 12 * 12 z = y * y

End Sub End Sub

7. 设有如下程序：

Private Sub Command1_Click()

Dim sum As Double, x As Double

sum = 0

n = 0

For i = 1 To 5

x = n / i

n = n + 1

sum = sum + x

Next

End Sub

该程序通过For循环计算一个表达式的值，这个表达式是

(A)1+1/2+ 2/3+3/4+4/5 　　　　 　(B)1+1/2+2/3+3/4

(C)1/2+2/3+3/4+4/5 　　　　　 　(D)1+1/2+1/3+1/4+1/5

8. 程序如下：

Private Sub Form_Click( )

Dim a As Integer , b As Integer

a = 5 : b = 8

Call Fun (a , b)

Print a , b

End Sub

Private Sub Fun ( x As Integer , y As Integer )

x = x * y

y = y * x

End Sub

程序运行时，单击窗体后，在窗体上输出的结果为( 【81】 )

(A)5 8　　　(B)40　40　　　(C)40　8　　　(D)40　320

9. 在窗体上画一个命令按钮，然后编写如下事件过程：

Private Sub Command1_Click( )

x=0

For i=1 to 3

x=1

For j=1 to 4

x=2

For k=1 to 5

x = x + 2

Next k

Next j

Next i

Print x

End Sub

程序运行后，单击命令按钮，输出结果为( 【82】 )

(A)12　　　　(B)24　　　　(C)36　　　　(D)48

10. 在窗体上画一个命令按钮，然后编写如下代码：

Private Type Record

ID As Integer

Name As String * 20

End Type

Private Sub Command1_Click( )

Dim MaxSize , NextChar , MyChar

Open “D: ” For Binary As #1

MaxSize = LOF ( 1 )

For NextChar = MaxSize To 1 Step -1

Seek # 1 , NextChar

MyChar = Input ( 1 , # 1 )

Next NextChar

Print EOF ( 1 )

Close # 1

End Sub

程序运行后，单击命令按钮，其输出结果为( 【83】 )

(A)True　　　　(B)False　　　　(C)Null　　　　(D)0