江苏省计算机等级考试二级VB考试真题及答案

1、江苏省计算机等级考试二级VB 考试真题及答案第二部分Visual Basic程序设计一、选择题（用答题卡答题，答案依次填在2130 答题号内）21下列语句中，正确的是A. Text1.SetFocusB. Form1.ClearC. Label1.SetFocusD.List1.Cls22创建一个名为“文件”的菜单项，使其可用 Alt+F 方式访问，则在菜单编辑器的标题文本框中应输入A.文件 ($F)B.文件 (&F)C.文件 (#F)D.文件 (%F)23数学表达式的VB算术表达式为A. Sin(27) + Sqr(x + Exp3)/(x + y)B. Sin(27 * 3.141

2、59 / 180) + Sqr(x + Exp(3) / Abs(x + y)C. Sin(27 * 3.14159 / 180) + Sqr(x + e 3) / Abs(x + y)D. Sin(27 * pi / 180) + Sqr(x + Exp(3) / Abs(x + y)24以下说法不正确的是24。A. 使用不带关键字Preserve 的 ReDim语句可以重新定义数组的维数B. 使用不带关键字Preserve 的 ReDim语句可以改变数组各维的上、下界C. 使用不带关键字Preserve 的 ReDim语句可以改变数组的数据类型D. 使用不带关键字 Preserve 的 R

3、eDim语句可以对数组中的所有元素进行初始化25下列是合法的变量名。A. absB. -a1C. cdc dD. Abc_1026要向文件 data.txt添加数据，正确的文件打开命令是A.Open data1.txt For Output As #1B.Open data1.txt For Input As #1C.Open data1.txt For Append As #5D.Open data1.txt For Write As #527. 以下对数组参数的说明中，错误的是A. 在过程中可以用Dim 语句对形参数组进行声明B. 形参数组只能按地址传递C. 实参为动态数组时，可用 ReD

4、im 语句改变对应形参数组的维界D. 只需把要传递的数组名作为实参，即可调用过程28设 a = 3，b = 2，c = 1，运行 print a > b > c 的结果是28。A. TrueB. FalseC. 1D. 出错29能够将任意一个两位整数X 的个位数与十位数对调（例如将78 转换为87）的表达式是29。Val(Right(X, 1) & Left(X, 1)Val(Right(Str(X), 1) & Left(Str(X), 1)Val(Right(CStr(X), 1) & Left(CStr(X), 1)Val(Mid(X, 2, 1) +

5、 Mid(X, 1, 1)A. B. C. D. 30下列是正确的 VB常量。A. D-6B. E-6C. 5DD. 5E-6二、填空题（请将答案填写在答题纸的相应答题号内，每个答案只占一行）1执行下面程序，单击 Command1，则窗体上显示的第一行是（ 1），第二行是（ 2），第三行是（ 3）。Option ExplicitPrivate Sub Command1_Click()Dim a As String, i As IntegerDim x As String, z As Stringa = iamstudenti = InStr(5, a, d)Dox = Mid(a, i, 3)

6、z = Right(x, 1)z = UCase(x & z)i = i - 2Print zLoop Until i = 1End Sub2. 执行以下程序，单击 Command1，则在 Picture1 上显示的第一行是（ 4），第二行是（5），第三行是（ 6）。Option ExplicitPrivate Sub Command1_Click()Dim A(3, 3) As Integer, i As Integer, j As IntegerDim k As Integeri = 3 : j = 2 : A(i, j) = 1 : k = 1Do Until k > 9k

7、 = k + 1If i + 1 > 3 And j + 1 <= 3 Theni = 1 : j = j + 1ElseIf i + 1 <= 3 And j + 1 > 3 Theni = i + 1 : j = 1ElseIf i + 1 > 3 And j + 1 > 3 Theni = i - 1ElseIf i + 1 <= 3 And j + 1 <= 3 And A(i + 1, j + 1) <>0 Theni = i - 1Elsei = i + 1 : j = j + 1End IfA(i, j) = kLoop

8、For i = 1 To 3For j = 1 To 3Picture1.Print A(i, j)Next jPicture1.PrintNext iEnd Sub3. 执行下面的程序，单击 Command1，则窗体上第一行显示的是（ 7），第二行显示的是（ 8）。Option ExplicitDim x As IntegerPrivate Sub Command1_Click()Dim y As Integerx = 10 : y = 2Call process(y)Print x, yCall process(y)Print x, yEnd SubPrivate Sub process(

9、n As Integer)Dim y As IntegerIf n > 0 Thenx = x - ny = xElsex = x + ny = x + 2End Ifn = -nEnd Sub4执行下面的程序，连续三次单击命令按钮有（9）个元素；数组元素 A(2) 的值是Option ExplicitOption Base 1Private Sub Command1_Click()Static A() As Integer, n As IntegerDim i As Integer, k As Integerk = nn = n + 2ReDim Preserve A(n)Comman

10、d1之后， A 数组共（10） ，A(4) 的值是（11）。For i = k + 1 To nA(i) = i * n + 1Next iFor i = 1 To nPrint A(i)Next iPrintEnd Sub5执行下面的程序，单击Command1，在窗体界面上显示的第一行是（12），第二行是（ 13），第三行（14） ，第四行是（15） 。Option ExplicitPrivate Sub Command1_Click()Dim a As Integer, b As Integer, i As Integeri = 1218a = i 100b = i Mod 100If b

11、 <> 0 ThenPrint aPrint bPrint Lcd(a), (b) a bPrint Lcd(a, b) a bEnd IfEnd SubPrivate Function Lcd(x As Integer, y As Integer) As IntegerDim d As IntegerIf x < y Thend = x : x = y : y = dEnd Ifd = xDoIf x Mod y = 0 ThenLcd = xExit DoElsex = x + dEnd IfLoopEnd Function6本程序的功能是利用无穷级数求 cos(x) 的

12、近似值。已知：当第 n 项的绝对值小于等于 10-7 ，计算终止。Option ExplicitPrivate Sub Command1_Click()Dim x As Single, n As Integer, sum As SingleDim a As Singlex = Text1（16）a = 1n = 1Doa = -aa =（17）sum = sum + an = n + 1Loop Until（ 18）Text2 = sumEnd Sub7下面程序的功能是求一个4×4方阵的范数。方阵的数值是随机生成的-20 20 之间的整数。方阵范数是指方阵各列元素的绝对值之和中的最大

13、的数值。Option ExplicitOption Base 1Private Sub Command1_Click()Dim a(4, 4) As IntegerDim i As Integer, j As IntegerFor i = 1 To 4For j = 1 To 4a(i, j) =（ 19）Picture1.Print Right(& Str(a(i, j), 4)Next jPicture1.PrintNext iText1.Text =（20）End SubPrivate Function fan(a() As Integer) As IntegerDim b(4)

14、 As Integer, max As IntegerDim i As Integer, j As IntegerFor i = 1 To 4For j = 1 To 4b(j) =（21）Next jNext imax = b(1)For i = 2 To 4If max < b(i) Then max = b(i)Next ifan = maxEnd Function8、下面程序的功能是，找出仅由数字 1、2、3、 4 组成的 4 位素数，要求每个素数由 4 个不同数字组成。 算法提示：函数 Validate 用于验证一个 4 位数是否由 4 个不同数字组成。在函数中用 A 数组的各

15、个元素分别对应数字 09，只要某数字出现在四位数中，无论几次，均将该数字对应的数组元素值置为1。Option ExplicitPrivate Sub Command1_Click()Dim i As Integer, Flg As BooleanFor i = 1234 To 4321（ 22）Call Prime(i, Flg)If Flg ThenIf Validate(i) ThenText1 = Text1 & i & vbCrLfEnd IfEnd IfNext iEnd SubPrivate Sub Prime(n As Integer, f As Boolean)

16、Dim k As IntegerFor k = 2 To Sqr(n)（ 23）Next kf = TrueEnd SubPrivate Function Validate(n As Integer) As BooleanDim A(0 To 9) As Integer, s As String, i As IntegerDim s1 As String * 1（24）For i = 1 To Len(s)s1 = Mid(s, i, 1)（ 25）Next iIf A(1) + A(2) + A(3) + A(4) = 4 Then（ 26）End IfEnd Function9下面程序的功

17、能是： 首先生成一个由小到大已排好序的整数数组， 再输入一个数据，单击“插入”按钮， 会自动把这个数据插入到原数组适当的位置，并保持数组的有序性。Option ExplicitDim a() As IntegerPrivate Sub Form_Activate()Dim i As IntegerReDim a(10)For i = 1 To 10a(i) = (i - 1) * 10 + 1Text1 = Text1 & Str(a(i)生成有序数组Next iText2.SetFocusEnd SubPrivate Sub Command1_Click()Dim n As Integer, i As Integern = Text2Fo