计算机二级vb语言程序设计考试题及答案.doc
计算机二级VB语言程序设计考试题及答案
为帮助同学们复习好二级VB考试科目，大家平时需要 多做题多练习。接下来应届毕业生为大家精心准备了计算机 二级VB语言程序设计考试题及答案，希望能够给大家带来 帮助！
1.在窗体上画一个名称为Textl的文本框，一个名称为 Command 1的命令按钮，然后编写如下事件过程和通用过程：
Private Sub Command1_C1ick() n = Val (Textl. Text)
If n2 = n/2 Then f = fl(n)
Else
f 二 f2 (n)
End If
Print f; n
End Sub
Public Function f1 (ByRef x)
x=x 氺 x
fl=x+x
End Function
Public Function f2(ByVal x)x=x*x
f2=x+x+x
End Function
程序运行后，在文本框中输入3，然后单击命令按钮， 窗体上显示的是(D)(单)
72 36
108 36
72 6
27 3
2.在窗体上画一个名称为Command 1的命令按钮，然后
编写如下事件过程：
Private Sub CommandlClick() c = "1234"
For i = 1 To 4 cl = Trim(Str())
Print cl
Next i
End Sub
程序运行后，单击命令按钮，要求在窗体上显示如下内 容
121234
则在下划线处应填入的内容为(B)(单)
Right (cl, i)
Left (cl, i)
Mid(cl, i, 1)
Mid(cl, i, i)
3.在窗体上画一个名称为Command 1的命令按钮和一个 名称为Textl的文本框，然后编写如下事件过程：
Private Sub Commandl_Click() n = Val (Textl. Text)
For i = 2 To n For j = 2 To sqr(i)
If i Mod j = 0 Then Exit For Next j
If j >Sqr (i) Then Print i Next i
End Sub
该事件过程的功能是(c)(单)
输出n以内的奇数
输出n以内的偶数输出n以内的素数
输出n以内能被j整除的数
4.在窗体上画一个名称为Command 1的命令按钮，然后 编写如下通用过程和命令按钮的事件过程：
Private Function f(m As Integer)
If m Mod 2=0 Then
f = m
Else
f = 1
End If
End Function
Private Sub CommandlClick()
Dim i As Integer
s = 0
For i = 1 To 5 s = s + f (i)
Next
Print s
End Sub
程序运行后，单击命令按钮，在窗体上显示的是(C)(单)
11
10
9
8
在窗体上画一个名称为Textl的文本框和一个名称为 Command 1的命令按钮，然后编写如下事件过程：
Private Sub Commandl_Click()
Dim arrayl (10, 10) As Integer Dim i As Integer, j As Integer
For i = 1 To 3
For j = 2 To 4 arrayl (i, j) = i + j Next j
Next i
Textl. Text = arrayl (2，3) + arrayl (3，4)
End Sub
程序运行后，单击命令按钮，在文本框中显示的值是 ⑼(单)
15
14
13
12
Visual Basic应用程序中标准模块文件的扩展名是
(注意不要写点)。
在菜单编辑器中建立一个菜单，其主菜单项的名称为 mnuEdit, Visible属性为False，程序运行后，如果用鼠标 右键单击窗体，则弹出与mnuEdit相应的菜单。
Private Sub Form_ (Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button=2 Then
popupmenu mnuEdit
End If
End Sub
在菜单编辑器中建立一个菜单，其主菜单项的名称为 mnuEdit, Visible属性为False,程序运行后，如果用鼠标 右键单击窗体，则弹出与mnuEdit相应的菜单。以下是实现 上述功能的程序，请填空。
Private Sub Form mousedown (Button As Integer, Shift As Integer, X As Single, Y As