江苏省2009年秋二级计算机考试VB笔试试题.doc

2009秋计算机等级考试（二级）Visual Basic程序设计 第二部分第二部分 Visual Basic 程序设计一 单选题21.要将焦点设置在某个控件上，以下四个选项中正确的是 21 。A. 只能使用鼠标直接点击控件B. 只能使用Tab键将焦点移到该控件C. 只能在程序中调用该控件的SetFocus方法D. A、B、C三选项中涉及的方法均可使用22.在下列属性中，属于CommandButton控件、ListBox控件共有的是 22 。A. Caption、Text B. Visible、FontC. Caption、Visible D. List、Visible23. 数学表达式对应的Visual Basic表达式是 23 。A. Sin(30*3.14159/180)+Sqr(Log(x)+y)/2*3.14159+Exp(x+y)B. (Sin(30*/180)+Sqr(Ln(x)+y)/(2*+Exp(x+y)C. Sin(30*180/3.14159)+Sqr(Log(x)+y)/(2*3.14159+e(x+y)D. (Sin(30*3.14159/180)+Sqr(Log(x)+y)/(2*3.14159+Exp(x+y)24. 下面的关系表达式中，运算结果为True的是 24 。A. CInt(1.5)=Int(1.5) B. Fix(1.5)=Int(1.5)C. Fix(-1.5)=CInt(-1.5) D. Fix(-1.5)=Int(-1.5)25. 下面有关数组的叙述中，不正确的是 25 。 在过程中用ReDim语句定义的动态数组，其下标的上下界可以是变量 数组作为形式参数时，传递的是每个数组元素的值 在窗体模块的通用声明处可以用Public 说明一个全局数组 数组定义语句中可以用负数或小数来指定某一维的维下界或维上界的值A. B. C. D. 26. 以下关于文件的叙述中，错误的是 26 。A. 用Output模式打开一个顺序文件，即使不对它进行写操作，原来的内容也被清除B. 可以用Print #语句或 Write# 语句将数据写到顺序文件中C. 若以Output、Append、Random、Binary 方式打开一个不存在的文件，系统会出错D. 顺序文件或随机文件都可以用二进制访问模式打开 27. 下列有关控件数组的说法中，错误的是 27 。A. 控件数组由一组具有相同名称和相同类型的控件组成，不同类型的控件无法组成控件数组B. 控件数组中的所有控件不得具有各自不同的属性设置值C. 控件数组中的所有控件共享同一个事件过程D. 控件数组中每个元素的下标由控件的Index属性指定28. 以下Case语句中，能正确描述Y的绝对值大于6的是 28 。A. Case Abs(Y)6 B. Case -6 To 6C. Case Not(-6 To 6) D. Case Is629若在模块中用Private Function Fun(A as Single,B as Integer) As Integer 定义了函数Fun。调用函数Fun的过程中定义了I、J和K三个Integer型变量，则下列语句中不能正确调用函数Fun的语句是_。AFun 3.14,J B Call Fun(I,365)CFun(I),(J) D K=Fun(“24”,”35”)30. 若需要在同一窗体内安排两组相互独立的单选按钮（OptionButton），可使用 30 控件做容器将它们分开。TextBox PictureBox Image FrameA. 或 B. 或 C. 或 D. 或二填空题1. 执行下面的程序,单击Command1,则数组元素a(1,2)的数值是_,数组元素a(2,3)的数值是_,数组元素a(4,3)的数值是_.Option ExplicitPrivate Sub Command1_Click() Dim a(4, 4) As Integer, i As Integer Dim j As Integer, k As Integer, n As Integer n = 16: k = 2 Do For i = 1 To 4 For j = 1 To 4 If i + j = k Then a(i, j) = n n = n - 1 End If Next j Next i k = k + 1 Loop Until k 8 For i = 1 To 4 For j = 1 To 4 Print Right( & a(i, j), 3); Next j Print Next iEnd Sub2.运行下面的程序,单击Command1,窗体上显示的第一行内容是_,第三行内容是_,最后一行内容是_.Option ExplicitPrivate Sub Command1_Click() Dim i As Integer, s As Integer For i = 1 To 9 Step 3 s = fun(i) + fun(i) Print s Next iEnd SubPrivate Function fun(m As Integer) As Integer Static a As Integer If m Mod 2 = 0 Then a = a + 1 m = m + 1 Else a = a + 2 m = m + 2 End If fun = a + m Print funEnd Function3.运行下面的程序,单击Command1,窗体上显示的第一行内容是_,第二行内容是_,最后一行内容是_.Option ExplicitPrivate Sub Command1_Click() Dim a As Integer Dim b As Integer a = 1 b = 2 Print fun(a + 2, fun(2 * a, b) Print a; bEnd SubPrivate Function fun(x As Integer, ByVal y As Integer) As Integer x = x + 2 y = x - y + 3 fun = x + y Print x; y; funEnd Function4.执行下面的程序,单击Command1,窗体上显示的第二行内容是_,第三行内容是_,第四行内容是_.Option ExplicitPrivate Sub Command1_Click() Dim n As Integer, k As Integer n = 36: k = 5 Print trans(n, k)End SubPrivate Function trans(n As Integer, k As Integer) as string Dim r As Integer If n 0 Then r = n Mod k If r 3End SubPrivate Sub encrypt(a As String, b As String) Dim sp As String, n As Integer, i As Integer sp = 0000 n = Len(b) - Len(a) If n 0 Then a = Right(sp & a, Len(b) For i = 1 To Len(b) If Mid(a, i, 1) = Mid(b, i, 1) Then Mid(a, i, 1) = 0 Else Mid(a, i, 1) = 1 End If Next iEnd Sub6下面程序的功能是求序列：1/2，2/3，3/5，5/8，8/13，13/21，前若干项的和，项数由文本框输入。试完善程序使其达到功能要求。Option ExplicitPrivate Sub 计算_Click() Dim n As Integer, a1 As Integer, a2 As Integer Dim i As Integer, t As Single, s As Single n = Val(Text1.Text) a1 = 1 a2 = 2 For i = 1 To n （16） s = s + ta2 = a1 + a2 (17) Next i Text2 = sEnd Sub7程序的功能是：从一组以16进制数形式表示的若干个字节数据中，找出其中的汉字代码（若相邻的两个字节中，每个字节的最高一位的数值都大于或等于8，则这两个字节为一个汉字的代码）。试完善程序使其达到功能要求。Option ExplicitPrivate Sub Command1_Click() Dim st() As String, p As String, k As Integer Dim n As Integer, i As Integer p = Trim(Text1) Do n = InStr(p, ) If (18) Then k = k + 1 ReDim Preserve st(k) st(k) = Left(p, n - 1) p = Right(p, Len(p) - n) Else ReDim Preserve st(k + 1) (19) End If Loop Until n = 0 For i = 1 To UBound(st) - 1 If chinese(st(i), st(i + 1) Then List1.AddItem st(i) & , & st(i + 1) (20) End If Next iEnd SubPrivate Function chinese(p As String, q As String) As Boolean Dim st As String, k As Integer, n As Integer Dim i As Integer st = 0123456789ABCDEF For i = 1 To Len(st) If Left(p, 1) = Mid(st, i, 1) Then k = i - 1 (21) Next i If k = 8 And n = 8 Then chinese = TrueEnd Function8本程序的功能是求出nm之间所有的可分解整数。所谓可分解整数是指具有以下性质的数。它的各位数字之和等于其所有质因子各位数字之和（注意：素数不是可分解整数）。例如整数121，各位数字之和是4，其质因子是11，11，质因子的各位数字之和也是4(1+1+1+1=4)，所以121是可分解整数。试完善程序使其达到功能要求。Option ExplicitPrivate Sub Command1_Click() Dim n As Integer, m As Integer, k As Integer n = Text1 m = Text2 For k = n To m If sum1(k) = sum2(k) Then List1.AddItem k End If Next kEnd SubPrivate Function sum1( (22) ) As Integer 求一个数的各位数字之和 Do sum1 = (23) n = n 10 Loop Until n = 0End FunctionPrivate Function sum2(ByVal n As Integer) As Integer 求质因子及其各位数字之和 Dim k As Integer, nn As Integer (24) nn = n Do If n Mod k = 0 Then sum2 = sum2 + sum1(k) n = n k Else (25) End If Loop Until k nn / 2End Function9.下面程序的功能是：将a，b两个数组的数据按从大到小的顺序合并到数组c中。a，b两个数组的数据分别从文本框A和文本框B输入，数据以空格分隔.合并结果在文本框C中输出.试完善程序使其达到功能要求。Option ExplicitOption Base 1Private Sub Command1_Click() Dim a() As Integer, b() As Integer, c() As Integer Dim i As Integer, st As String st = Trim(Text1) Call load_a(st, a) st = Trim(Text2) Call load_a(st, b) ReDim c(1) (26) For i = 2 To UBound(a) Call change(a(i), c) Next i For i = 1 To UBound(b) Call change(b(i), c) Next i For i = 1 To UBound(c) Text3 = Text3 & Str(c