计算机二级考试VB语言编程考试的问题与解答
为了让更多考生为计算机等级考试做准备，更快掌握相应的知识点，以下是参考小编搜索整理的计算机二级考试VB语言编程考试问题和答案进行练习，希望考生们能取得自己理想的成绩。
计算机二级VB语言编程考试试题及答案
1 .在窗体上绘制一个名为Text1的文本框，一个名为Command1的命令按钮，以创建以下事件过程和公用过程：
私有子命令1 _ click (
n=val(text1.text ) )。
If n2=n/2 Then
f=F1(n )
Else
f=F2(n ) )。
End If
打印f； n
最终辅
公共函数f1(byrefx ) )。
x=x*x
f1=x x
最终函数
publicfunctionF2(byvalx ) )。
x=x*x
f2=x x x
最终函数
运行程序后，在文本框中输入3，然后单击命令按钮((d ) ) ) ) ) )。
A.72 36
B.108 36
C.72 6
D.27 3
2 .在窗体上绘制一个名为Command1的命令按钮，以创建以下事件进程：
私有子命令1 _ click (
c='1234 '
For i=1 To 4
C1=Trim(str ) )
打印C1
下一步
最终辅
运行程序后，单击命令按钮，要求在表单中显示以下内容
1
12
123
1234
下划线处应填写的内容为(b ) ) )
a.right(C1，I ) ) ) ) ) ) ) )。
b .左(C1，I ) ) ) ) ) ) ) )。
c.mid(C1，I，1 ) ) )。
d.mid(C1，I，I ) ) ) )。
3 .在窗体上绘制一个名为Command1的命令按钮和一个名为Text1的文本框，以创建以下事件进程：
私有子命令1 _ click (
n=val(text1.text ) )。
For i=2 To n
forj=2tosqr(I )
If i Mod j=0 Then Exit For
Next j
ifjsqr(I ) Then Print i
下一步
最终辅
此事件进程的功能是(c ) (单个) )
a .输出n以内的奇数
b .输出n以内的偶数
c .输出n以内的素数
d .输出n以内可以被j整除的数
4 .在窗体上绘制一个名为Command1的命令按钮，以创建通用过程和命令按钮事件过程，如下所示：
隐私功能(管理器) )。
If m Mod 2=0 Then
f=m
Else
f=1
End If
最终函数
私有子命令1 _ click (
Dim i As Integer
s=0
For i=1 To 5
s=sf(I ) ) )。
下一步
打印s
最终辅
运行程序后，单击命令按钮，在表单上显示((c ) ) )。
A.11
B.10
C.9
D.8
5 .在窗体上绘制一个名为Text1的文本框和一个名为Command1的命令按钮，以创建以下事件进程：
私有子命令1 _ click (
dimarray1(10，10 ) As Integer
Dim i As Integer，j As Integer
For i=1 To 3
For j=2 To 4
array1(I，j )=i j
Next j
下一步
text1. text=array1(2，3 ) array1(3，4 ) ) ) ) ) ) ) ) )。
最终辅
运行程序后，单击命令按钮，文本框中显示的值为((d ) ) ) ) ) ) ) ) )。
A.15
B.14
C.13
D.12
p>6.Visual Basic应用程序中标准模块文件的扩展名是【BAS或.BAS】(注意不要写点)。
7.在菜单编辑器中建立一个菜单，其主菜单项的名称为mnuEdit，Visible属性为False，程序运行后，如果用鼠标右键单击窗体，则弹出与mnuEdit相应的菜单。
Private Sub Form_ 【mousedown】 (Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button=2 Then
popupmenu mnuEdit
End If
End Sub
8.在菜单编辑器中建立一个菜单，其主菜单项的名称为mnuEdit，Visible属性为False，程序运行后，如果用鼠标右键单击窗体，则弹出与mnuEdit相应的菜单。以下是实现上述功能的程序，请填空。
Private Sub Form mousedown (Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button=2 Then
【popupmenu】 mnuEdit
End If
9.为了使计时器控件Timer1每隔0.5秒触发一次Timer事件，应将Timer1控件的【Interval】属性设置为500。
10.为了使计时器控件Timer1每隔0.5秒触发一次Timer事件，应将Timer1控件的Interval属性设置为【500】。
11.与数学表达式ln(a+b)/(3x)+5 对应的Visual Basic表达式是【log(a+b)/(3*x)+5或(log(a+b)/(3*x))+5】
12.将C盘根目录下的图形文件moon.jpg装入图片框Picture1的.语句是【】
13.在窗体上画一个名称为Text1的文本框，然后画三个单选按钮，并用这三个单选按钮建立一个控件数组，名称为Option1，程序运行后，如果单击某个单选按钮，则文本框中的字体将根据所选择的单选按钮切换。
Private Sub Option1_Click(Index As Integer)
Select Case 【Index】
Case 0
a = "宋体"
Case 1
a = "黑体"
Case 2
a = "楷体_GB2312"
End Select
text1.fontname=a
End Sub
14.在窗体上画一个名称为Text1的文本框，然后画三个单选按钮，并用这三个单选按钮建立一个控件数组，名称为Option1，程序运行后，如果单击某个单选按钮，则文本框中的字体将根据所选择的单选按钮切换。
Private Sub Option1_Click(Index As Integer)
Select Case index
Case 0
a = "宋体"
Case 1
a = "黑体"
Case 2
a = "楷体_GB2312"
End Select
text1.【fontname】=a
End Sub
15.在窗体上画两个组合框，其名称分别为Combo1、Combo2，然后画两个标签，名称分别为Label1、Label2。程序运行后，如果在某个组合框中选择一个项目，则把所选中的项目在其下面的标签中显示出来。
Private Sub Combo1_Click( )
Call ShowItem(Combo1, Label1)
End Sub
Private Sub Combo2_Click( )
Call ShowItem(Combo2, Label2)
End Sub
Public Sub ShowItem(tmpCombo As ComboBox, tmpLabel As Label)
【tmplabel】.Caption =tmpCombo.Text
End Sub
16.在窗体上画两个组合框，其名称分别为Combo1、Combo2，然后画两个标签，名称分别为Label1、Label2，程序运行后，如果在某个组合框中选择一个项目，则把所选中的项目在其下面的标签中显示出来。
Private Sub Combo1_Click( )
Call ShowItem(Combo1, Label1)
End Sub
Private Sub Combo2_Click( )
Call ShowItem(Combo2, Label2)
End Sub
Public Sub ShowItem(tmpCombo As ComboBox, tmpLabel As Label)
tmpLabel.Caption =【tmpcombo】.Text
End Sub
17.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click( )
n = 5
f = 1
s = 0
For c = 1 To n
f = f*【7】
s = s + f
Next c
Print s
End Sub
该事件过程的功能是计算1!+2!+3!+…+n!的值。
18.在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：
Option Base 1
Private Sub Command1_Click( )
Dim a(10) As Integer
For I = 1 To 10
a(I) = I
Next I
Call【swap】a( )
For I = 1 To 10
Print a(I);
Next
End Sub
Sub swap(b( ) As Integer)
n = ubound(b)
For I = 1 To n / 2
t = b(I)
b(I) = b(n)
b(n) = t
n=n-1
Next I
End Sub
上述程序的功能是，通过调用过程swap，调换数组中数值的存放位置，即a(1)与a(10)的值互换，a(2)与a(9)的值互换，……，a(5)与a(6)的值互换。
19.在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：
Option Base 1
Private Sub Command1_Click( )
Dim a(10) As Integer
For I = 1 To 10
a(I) = I
Next I
Call swap(a( ))
For I = 1 To 10
Print a(I);
Next
End Sub
Sub swap(b( ) As Integer)
n =【ubound(b)】
For I = 1 To n / 2
t = b(I)
b(I) = b(n)
b(n) = t
n=n-1
Next I
End Sub
上述程序的功能是，通过调用过程swap，调换数组中数值的存放位置，即a(1)与a(10)的值互换，a(2)与a(9)的值互换，……，a(5)与a(6)的值互换。
20.在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：
Option Base 1
Private Sub Command1_Click( )
Dim a(10) As Integer
For I = 1 To 10
a(I) = I
Next I
Call swap(a( ))
For I = 1 To 10
Print a(I);
Next I
End Sub
Sub swap(b( ) As Integer)
n = ubound(b)
For I = 1 To n / 2
t = b(I)
b(I) = b(n)
b(n) = t
n=【n-1】
Next I
End Sub
【计算机二级考试VB语言程序设计考试题及答案】相关文章：