- 相干保举
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