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(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
【2017年9月计算机二级考试VB考试题】相关文章: