2016年计算机级VB上机考试系统.docVIP

2016年计算机二级VB上机考试系统 《职考宝典》2016年计算机等级考试软件题库包含：计算机一级、二级、三级、四级， wpsb/ms/ps/c语言access/office等所有科目，真题最多，可模拟考试，请到《职考宝典》官网 免费下载试用： (复制网址到浏览器打开)。 所有上机考试科目均在Windows XP环境下进行（考试机） 二级Visual Basic语言：Microsoft Visual Basic6.0 简体中文版 2016年计算机二级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，Visi