- 相关推荐
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. 为了在按下
(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(Text1.Text)
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
Text2.Text = x
End Sub
程序运行后，如果在文本框Text1中输入10，然后单击命令按钮，则在Text2中显示的内容是
(A)10 (B)20 (C)30 (D)40
3. 在窗体上画一个名称为Text1的文本框，一个名称为Command1的命令按钮，然后编写如下事件过程和通用过程：
Private Sub Command1_Click()
N=Val(Text1.Text)
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:Vb2003KsKs74.Txt” For OutPut As #1
b.Name = InputBox ( “输入姓名”)
b.TelNum = Inputbox ( “输入电话号码”)
Write #1 , b.Name , b.TelNum
Close #1
End Sub
(B)Private Sub Command1_Click( )
Dim b As Books
Open “D:Vb2003KsKs74.Txt” For InPut As #1
b.Name = InputBox ( “输入姓名”)
b.TelNum = Inputbox ( “输入电话号码”)
Print #1 , b.Name , b.TelNum
Close #1
End Sub
(C)Private Sub Command1_Click( )
Dim b As Books
Open “D:Vb2003KsKs74.Txt” For OutPut As #1
b.Name = InputBox ( “输入姓名”)
b.TelNum = Inputbox ( “输入电话号码”)
Write #1 , b
Close #1
End Sub
(D)Private Sub Command1_Click( )
Dim b As Books
Open “D:Vb2003KsKs74.Txt” For InPut As #1
b.Name = InputBox ( “输入姓名”)
b.TelNum = Inputbox ( “输入电话号码”)
Print #1 , Name , TelNum
Close #1
End Sub
5. 在窗体上画一个名称为Text1的文本框，并编写如下程序：
Private Sub Form_Load()
Show
Text1.Text = ""
Text1.SetFocus
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:Vb2003KsKs78.Dat ” 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
【9月计算机二级考试VB考试题】上海花千坊相关的文章：
9月计算机二级考试VB真题10-11
2017计算机二级考试VB基础考试题06-17
2016计算机二级vb考试题及答案10-16
计算机二级《VB》备考试题及答案07-14
2017年9月计算机二级考试VB基础题05-22
2017年9月计算机二级考试VB测试题08-16
2016计算机二级VB语言考试题与答案10-21
2024年计算机二级《VB》考试题及答案10-29