2008秋VB笔试卷(含答案).doc

第二部分 Visual Basic 程序设计一、 选择题（用答题卡答题，答案依次填在2130答题号内）21窗体上有若干命令按钮和一个文本框，程序运行时焦点置于文本框中，为了在按下回车键时执行某个命令按钮的Click事件过程，需要设置该按钮的 21 属性为True。AEnabled BDefaultCCancel DVisible22执行以下语句时，会出现错误提示的是 22 。A. Print “2b3” + 12.5 B. Print “12.5” + 12C. Print “12.5” & 12.5 D. Print “2e3”+ 1223数学表达式对应的VB表达式是 23 。A. Abs(e x + Sin(30) 3) / Sqr(x + y) B. Abs(Exp(x) + Sin(30) 3) / (Sqr(x + y)C. Abs(e x + Sin(30 * 3.14159 / 180) 3) / (Sqr(x + y)D. Abs(Exp(x) + Sin(30 * 3.14159 / 180) 3) / Sqr(x + y)24如果x是一个Single类型的变量，要对x 的第3位小数四舍五入并在Print语句中输出，下列函数(表达式)有 24 可以选择。Format(x, #.00) Int(100 * (x + 0.005) / 100CInt(100 * (x + 0.005) / 100 Fix(100 * (x + 0.005) / 100 A1个 B2个C3个 D4个25下面有关数组处理的叙述中，正确的是 25 。A在过程中使用ReDim语句可以改变动态数组数据的类型B在过程中，可以使用Dim、Private和Static来定义数组C用ReDim语句重新定义动态数组时，可以改变数组的大小，但不能改变数组的维数D不可以用Public语句在窗体模块的通用处说明一个全局数组。26下列关于菜单的说法中，错误的是_ _26_。A. 每一个菜单项就是一个对象，并且可设置自己的属性和事件B. 菜单项不可以响应DblClick事件C. VB6.0允许创建超过四级的子菜单D. 程序执行时，如果要求菜单项是灰色，不能被用户选择，则应设置菜单项的Enabled属性为False27. 以下关于Function过程的说法中，错误的是_ _27_。A. Function过程名可以有一个或多个返回值B. Function过程在其内部不得再定义Function过程C. Function过程中可以包含多个Exit Function语句D. 可以像调用Sub过程一样调用Function过程28以下Case语句中，错误的是_ _28_。A. Case 0 To 10 B. Case Is 10C. Case Is 10 And Is 1029下面的表达式中，运算结果为True的是 29 。A. abcrd = ABCRD B.Int(134.69) 2 1 D. Mid(Visual, 1, 4) = Right(Lausiv, 4)30设计界面时，要使一个文本框具有水平和垂直滚动条，应先将其 30 属性置为True，再将ScrollBar属性设置为3。AMultiLineBAutoSizeCAlignmentDRightToLeft二、 填空题（请将答案填写在答题纸的相应答题号内，每个答案只占一行）1. 执行下面程序，单击Command1，则数组元素a(1,2)的数值是 （1） ，a(3,3)的数值是 （2） ，图片框中最后一行显示的是 （3） 。Option ExplicitPrivate Sub Command1_Click() Dim a(4, 4) As Integer, i As Integer, j As Integer Dim k As Integer, num As Integer num = 0 For k = 1 To 4 For i = 1 To k - 1 num = num + 1 a(i, k) = num Next i For j = k To 1 Step -1 num = num + 1 a(k, j) = num Next j Next k For i = 1 To 4 For j = 1 To 4 Picture1.Print Right( & a(i, j), 3); Next j Picture1.Print Next iEnd Sub2执行下面程序，单击Command1，窗体上显示的第一行是 （4） ，第二行是 （5） ，第四行是 （6） 。 Option ExplicitPrivate Sub Command1_Click() Dim a As Integer, b As Integer, i As Integer a = 2: b = 5 For i = a To a * b Step a Call sub1(i, a, b) Print a, b Next i Print a, b, iEnd SubPrivate Sub sub1(i As Integer, a As Integer, b As Integer) i = i + 1 a = a + 1 b = b + 1End Sub3. 运行下面的程序，单击Command1，在窗体上显示的变量a的值为 （7） ，变量b的值为 （8） ，变量c的值为 （9） 。Option ExplicitPrivate Sub Command1_Click() Dim a As Integer, b As Integer, c As Integer a = 5: b = 10: c = 15 Print fun(a, b, c) + fun(a, b, c) Print a, b, cEnd SubPrivate Function fun(x As Integer, y As Integer, z As Integer) As Integer z = x x = x + y y = y + z fun = x + yEnd Function4执行下面的程序，单击Command1，窗体上显示的第一行是 （10） ，第二行是 （11） ，第四行是 （12） 。Option ExplicitPrivate Sub Command1_Click() Dim a As Integer, b As Integer a = 1: b = 1Call sub1(a, b)Print a, bEnd SubPrivate Sub sub1(a As Integer, b As Integer) a = a + b: b = b + a Print a, b If a 10 Then a = a + b b = b + a Else Call sub1(a, b) End IfEnd Sub5运行下列程序，单击Command1，在窗体上显示的第一行内容是 （13） ，第二行的内容是 （14） ，第三行的内容是 （15） 。icBa baicBa babaOption ExplicitPrivate Sub Command1_Click() Dim s As String s = Basic Call trans(s)End SubPrivate Sub trans(s As String) Dim j As Integer, t As String Dim k As Integer k = 3 Do j = InStr(s, a) t = LCase(Right(s, j) s = Right(t, Len(s) - k) & Left(s, Len(t) k = k - 1 Print s Loop Until k = 0End Sub6下面程序的功能是计算的值。请完善如下程序：Option ExplicitPrivate Sub Command1_Click() Dim n As Integer, st As String, i As Integer Dim k As Single, s As Single, j As Integer n = Text1 s = 1 For i = 2 To n （16） For j = 1 To i st = st & CStr(i) Next j k = (17) s = s + k Next i Text2 = sEnd Sub7下面程序的功能是：将输入的2位16进制数的每一位转换为一个四位的2进制数，再组合成为一个8位的2进制数。Private Sub Command1_Click() Dim h As String, h1 As String * 1, h2 As String * 1 h = Text1 h1 = Left(h, 1): h2 = Right(h, 1) Text2 = h2b(h1) & h2b(h2) End SubPrivate Function h2b(p As String) As String Dim st As String, i As Integer st = 0123456789ABCDEF For i = 1 To Len(st) If (18) Then Exit For Next i i = i - 1 Do h2b = (19) i = i 2 Loop Until i = 0 h2b = (20) End Function8下面程序的功能是：输入一个n位大整数（n=10)，可以求出由组成这个大整数的n个数字组成的最大整数和最小整数。Option ExplicitPrivate Sub Command1_Click() Dim n As Long, a() As Integer, i As Integer Dim large As String, samll As String n = Text1 Call change(n, a) Call sort(a) For i = 1 To UBound(a) large = a(i) & large samll = (21) Next i Text2 = large For i = 1 To Len(samll) If (22) Then Exit For Next i If i 1 Then samll = Mid(st2, i, 1) & Left(samll, i - 1) & Right(samll, Len(samll) - i) End If Text3 = samllEnd SubPrivate Sub sort(a() As Integer) 冒泡法排序 Dim i As Integer, j As Integer, t As Integer For i = 1 To UBound(a) - 1 For j = 1 to UBound(a) - i If (23) Then t = a(j) a(j) = a(j +1) a(j +1) = t End If Next j Next iEnd SubPrivate Sub change( (24) ) Dim k As Integer Do k = k + 1 ReDim Preserve a(k) a(k) = n Mod 10 n = (25) Loop Until n = 0End Sub9下面程序的功能是：运行程序，在文本框1中输入若干以空格分隔的整数（末尾无空格），单击命令按钮，程序自动将输入的数据分解并输入到一个一维数组，再把数组中所有重复的元素删除（只保留一个），并输出。Option ExplicitOption Base 1Private Sub Command1_Click() Dim a() As Integer, i As Integer, st As String Dim k As Integer, p As Integer st = Text1 Do p =instr(st,” “) If p 0 Then (26) K=K+1 ReDim Preserve a(k) a(k) = Val(Left(st, p - 1) st = right(st, len（st,len(st)-p） Else (27) a(k + 1) = Val(st) End If Loop Until 28 p = 0 Call del(a) For i = 1 To UBound(a) Text2 = Text2 & Str(a(i) Next i Text2 = LTrim(Text2)End SubPrivate Sub del(a() As Integer) Dim i As Integer, j As Integer, k As Integer Do i = i + 1 j = i + 1 Do While j = UBound(a) End Sub第二部分 Visual Basic 程序设计参考答案一、选择题21 B 22A 23D 24C 25D26C 27A 28C 29B 30A二、填空题1227316 15 14 1343 6 54 7 65 8 11 730830915102 3115 81234 5513icBa14baicBa15ba