全国计算机二级考试VB语言考试试题
为了让广大考生为计算机等级考试做准备，更快掌握相应的知识点，以下是小编搜索整理的全国计算机等级考试VB语言试题，供大家参考练习，祝愿考生们取得自己理想的成绩。
全国计算机二级考试VB语言考试试题
1 .在窗体上绘制一个名为Command1的命令按钮，以创建以下事件进程：
私有子命令1 _ click (
Dim num As Integer
num=1
Do Until num 6
打印编号；
num=num 2.4
Loop
最终辅
运行程序后，单击命令按钮，窗体上显示的内容是
(a )1) 3.4 )8) b )1)3)5) c )1)4) d )无数据输出
2 .这些函数包括：
功能性facn (xas integer ) As Long
Dim p As Long，i As Integer
p=1
For i=1 To x
p=p * i
下一步
Facn=p
最终函数
要调用此事件，请执行以下操作：
私有子命令1 _ click (
I=val(inputbox )“请输入数据”
a=如果a=Facn () I )‘实参I’括在括号中，则强制将其作为值传递
打印a
最终辅
输入数据6后，程序的执行结果为(【73】)。
(a ) 60 ) b(120 ) c (600 ) d ) 720
3 .在窗体上绘制一个名为Command1的命令按钮，以创建以下事件进程：
私有子命令1 _ click (
Dim a As Integer，s As Integer
a=8
s=1
德奥
s=s a
a=a-1
Loop While a=0
打印s； a
最终辅
运行程序后，单击命令按钮，窗体上显示的内容是
(a )7) b ) 34 ) c )9) d )死循环
4 .下一个程序的执行结果为【74】
Dim IntSum As Integer，i As Integer
IntSum=0
For i=30.2 To 1 Step -5.3
IntSum=IntSum i
下一步
打印铟
(a ) 106 ) b ) 105 ) c ) 102 ) d ) 101
5 .在窗体上绘制命令按钮，以创建类似于以下内容的事件进程： 该流程的执行结果为【75】。
选项库1
私有子命令1 _ click (
Dim a As Variant，s As Integer
a=阵列(2，4，6，8 ) ) ) ) ) ) )。
j=1
For i=1 To 4 Step 1
s=sa(I ) * j
j=j *10
下一步
打印s
最终辅
(a )0) b ) 1110 (C ) c ) 2468 (D ) d ) 8642
这些共同进程包括：
公共函数(xas integer ) )。
Dim y As Integer
x=20
y=2
f=x * y
最终函数
6 .在窗体上绘制名为Command1的`命令按钮，以创建以下事件进程：
私有子命令1 _ click (
静态x as integer
x=10
y=5
y=f(x )
打印x； y
最终辅
运行程序后，单击命令按钮，表单中显示的内容如下
(a ) 105 ) b ) 20 ) c ) 10 40 ) d ) 10 40
7 .在表单中编写以下代码：
Option Base 1
私有subform _ keypress (keyascii as integer ) )。
a=array (123，86，57，248，32 ) ) ) ) ) ) ) ) ) ) )
m1=a(1) )。
m2=1
If KeyAscii=13 Then
For i=2 To 5
ifa(I ) m1 Then
m1=a(I )
m2=i
End If
下一步
End If
打印m1，m2
最终辅
执行程序后，按回车键，输出结果为(【76】)。
(a ) 32 ) b ) 248 ) c ) 32 ) d ) 248 )
这些共同进程包括：
publicsubfun(a )，ByVal x As Integer ) )。
For i=1 To 5
x=xa(I )
下一步
最终辅
8 .在窗体上绘制一个名为Text1的文本框和一个名为Command1的命令按钮，以创建以下事件进程：
私有子命令1 _ click (
Dimarr(5) As Variant
For i=1 To 5
ARR(I )=i
下一步
n=10
callfun(arr (，n ) ) ) ) ) )。
Text1.Text=n
最终辅
运行程序后，单击命令按钮，文本框中显示的内容是
(a ) 10 ) b ) 15 ) c ) 25 ) d ) 24
9 .阅读程序：
功能函数(AAs集成器) )。
b=1
静态c as集成器
b=b 1
c=c 1
Func=a b c
最终函数
私有子命令1 _ click (
Dim a As Integer
a=3
For i=1 to 3
打印函数(a ) )。
下一步
最终辅
执行以上程序，点击命令按钮，输出结果为(【77】)。
(a )6) b )6) c )6) d ) 6
7 6 8 13
8 6 10 21
10 .在窗体上绘制一个名为Command1的命令按钮，然后编写以下代码：
Option Base 1
私有子命令1 _ click (
d=0
c=10
x=array (10，12，21，32，24 ) ) ) ) ) ) ) ) )。
For i=1 To 5
ifx(I ) c Then
d=dx(I ) )。
c=x(I )
Else
d=d-c
End If
下一步
打印d
最终辅
运行程序后，单击命令按钮，表单上的输出内容如下
(a ) 89 ) b ) 99 ) c ) 23 ) d ) 77
【全国计算机二级考试VB语言考试试题】相关文章：