计算机二级vb程序设计题,计算机二级vb语言程序设计考试题及答案.doc

计算机二级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