计算机二级VB考试题及答案

　　1.在窗体上画一个名称为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

　　f2=x+x+x

　　End Function

　　程序运行后，在文本框中输入3，然后单击命令按钮，窗体上显示的是(D)(单)

　　A.72 36

　　B.108 36

　　C.72 6

　　D.27 3

　　2.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：

　　Private Sub Command1_Click( )

　　c = "1234"

　　For i = 1 To 4

　　c1 = Trim(Str( ))

　　Print　c1

　　Next i

　　End Sub

　　程序运行后，单击命令按钮，要求在窗体上显示如下内容

　　1

　　12

　　123

　　1234

　　则在下划线处应填入的内容为(B)(单)

　　A.Right(c1,i)

　　B.Left(c1,i)

　　C.Mid(c1,i,1)

　　D.Mid(c1,i,i)

　　3.在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框，然后编写如下事件过程：

　　Private Sub Command1_Click( )

　　n = Val(Text1.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)(单)

　　A.输出n以内的奇数

　　B.输出n以内的偶数

　　C.输出n以内的素数

　　D.输出n以内能被j整除的数

　　4.在窗体上画一个名称为Command1的命令按钮，然后编写如下通用过程和命令按钮的事件过程：

　　Private Function f(m As Integer)

　　If m Mod 2 = 0 Then

　　f = m

　　Else

　　f = 1

　　End If

　　End Function

　　Private Sub Command1_Click( )

　　Dim i As Integer

　　s = 0

　　For i = 1 To 5

　　s = s + f(i)

　　Next

　　Print s

　　End Sub

　　程序运行后，单击命令按钮，在窗体上显示的是(C)(单)

　　A.11

　　B.10

　　C.9

　　D.8

　　5.在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：

　　Private Sub Command1_Click( )

　　Dim array1(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

　　Next i

　　Text1.Text = array1(2, 3) + array1(3, 4)

　　End Sub

　　程序运行后，单击命令按钮，在文本框中显示的值是(D)(单)

　　A.15

　　B.14

　　C.13

　　D.12

　　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】。