2008年秋VB.doc

Visual Basic 程序设计（2008秋）一、 选择题（用答题卡答题，答案依次填在2130答题号内）21窗体上有若干命令按钮和一个文本框，程序运行时焦点置于文本框中，为了在按下回车键时执行某个命令按钮的Click事件过程，需要将该按钮的 21 属性设置为True。AEnabled BDefaultCCancel DVisible22执行以下语句时，会出现错误提示的是 22 。APrint “2b3” + 12.5 BPrint “12.5” + 12CPrint “12.5” & 12.5 DPrint “2e3”+ 1223数学表达式对应的VB表达式是 23 。AAbs(e x + Sin(30) 3) / Sqr(x + y) BAbs(Exp(x) + Sin(30) 3) / (Sqr(x + y)CAbs(e x + Sin(30 * 3.14159 / 180) 3) / (Sqr(x + y)DAbs(Exp(x) + Sin(30 * 3.14159 / 180) 3) / Sqr(x + y)24下面的表达式中，有 24 个能够对Single类型变量x的第3位小数，正确地进行四舍五入计算。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事件CVB6.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 。Aabcrd = ABCRD BInt(134.69) 2 1 DMid(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 = 1 Call 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） 。Option 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进制数。Option ExplicitPrivate 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位的整数（n10），求出由这n个数字组成的最大整数和最小整数。Option ExplicitOption Base 1Private Sub Command1_Click() Dim n As Long, a() As Integer, i As Integer Dim large As String, small As String n = Text1 Call change(n, a) Call sort(a) For i = 1 To UBound(a) large = a(i) & large small = (21) Next i Text2 = large For i = 1 To Len(small) If (22) Then Exit For Next i If i 1 Then small = Mid(small, i, 1) & Left(small, i - 1) & Right(small, Len(small) - i) End If Text3 = smallEnd 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中输入若干以空格分隔的整数（末尾无空格），程序自动将输入的数据分解并存储到一个一维数组，再把数组中所有重复的元素删除（只保留一个），并输出到文本框2。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) ReDim Preserve a(k) a(k) = Val(Left(st, p - 1) st = Right(st, Len(st) - p) Else (27) a(k + 1) = Val(st) End If Loop Until (28) 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 2008秋上机VB01【考试须知】1 改错题的界面不作要求，主要用来调试程序，若题目中有参考界面，则仅作参考；2 考试结束后，文件必须存放在指定位置，否则适当扣分；考试盘中若无指定文件，则不予评分；3 程序代码书写应呈锯齿形。一、改错题（14分）【题目】本程序的功能是：随机生成一个有n个元素的数组（n由InputBox函数输入），找出其中的最大元素并将它删除，再输出删除后的数组。Option ExplicitOption Base 1Dim a() As Integer, n As IntegerPrivate Sub Command1_Click() Dim i As Integer n = InputBox(请输入数组个数, , 10) ReDim a(n) For i = 1 To n a(i) = Int(Rnd * 100) + 1 Text1 = Text1 & Str(a(i) Next i Call Lookup(a) For i = 1 To n Text2 = Text2 & Str(a(i) Next iEnd SubPrivate Sub Lookup(a() As Integer) Dim Maxv As Integer, maxp As Integer, i As Integer Maxv = a(1): maxp = 1 For i = 2 To n If a(i) Maxv Then Maxv = a(i) : maxp = i End If Next i Call move_f(a, maxp)End SubPrivate Sub move_f(a() As Integer, k As Integer) Dim i As Integer For i = k + 1 To UBound(a) a(i) = a(i+1) Next i ReDim a(UBound(a) - 1) End Sub【要求】1 新建工程，输入上述代码，改正程序中的错误；2 改错时，不得增加或删除语句，但可适当调整语句位置；3 将窗体文件和工程文件分别命名为F1和P1，并保存到T盘的根目录下。二、编程题（26分）【题目】编写程序，找出指定范围a, b之间所有能构成幻影素数的数。所谓幻影素数是指自身为素数，其反序数也是素数的数。例如107与701都是素数，所以107是幻影素数。【编程要求】1 程序参考界面如图所示，编程时不得增加或减少界面对象或改变对象的种类，窗体及界面元素大小适中，且均可见；2 运行程序，在文本框A和文本框B中输入指定数据范围，再按“运行”按钮，将找出的幻影素数存放在列表框中（若指定区间无幻影素数，则输出“本区间无幻影素数”）。按“清除”按钮，将文本框和列表框清空，焦点置于文本框A上；3 程序中应定义一个名为prime的函数过程，用于判断一个整数是否为素数；再定义一个求一个整数的反序数的通用过程。【要求】将窗体文件和工程文件分别命名为F2和P2，并保存到T盘的根目录下。VB02【考试须知】1 改错题的界面不作要求，主要用来调试程序，若题目中有参考界面，则仅作参考；2 考试结束后，文件必须存放在指定位置，否则适当扣分；考试盘中若无指定文件，则不予评分；3 程序代码书写应呈锯齿形。一、改错题（14分）【题目】本程序的功能是查找80150范围内的特殊十进制数据，其特点是该十进制数对应的8进制数为回文数（指从左向右读与从右向左读是一样的数）。例如十进制数据105对应八进制数为151，151属于回文数，所以105就是符合要求的数。Option ExplicitPrivate Sub Command1_Click() Dim i As Integer, hw As String, fg As Boolean Dim st As String For i = 80 To 150 fg = False Call hw8(i, hw, fg) If fg Then st = CStr(i) & = & hw & &O List1.AddItem st End If Next iEnd SubPrivate Sub hw8( n As Integer, hw As String, f As Boolean) Dim k As Integer, st() As String * 1, i As Integer hw = Do k = k + 1 ReDim Preserve st(k) st(k) = n Mod 8 hw = st(k) & hw n = n 8 Loop Until n 0 For i = 1 To UBound(st) / 2 If st(i) st(UBound(st) - i + 1) Then Exit For Next i f = TrueEnd Sub【要求】1 新建工程，输入上述代码，改正程序中的错误；2 改错时，不得增加或删除语句，但可适当调整语句位置；3 将窗体文件和工程文件分别命名为F1和P1，并保存到T盘的根目录下。二、编程题（26分）【题目】编写程序，验证任意一个不超过9位的自然数，经过下述的反复变换最终得到123。变换方法是：统计该数的偶数（0算偶数）个数记为a，奇数个数记为b，该数位数记为c；以a为百位数、b为十位数、c为个位数，得到一个新数（若a=0，则以b为百位数、a为十位数），若这个新数不是123，再按上述步骤进行变换，直到出现123为止。123被称为陷阱数。【编程要求】1 程序参考界面如图所示，编程时不得增加或减少界面对象或改变对象的种类，窗体及界面元素大小适中，且均可见；2 运行程序，在文本框1中任意输入一个不超过9位的自然数后，按“验证”按钮，则根据变换规则生成新数，将其输出到列表框，重复变换操作，直到得到123为止，最后输出“验证成功”信息；按“清除”按钮，将文本框和列表框清空，焦点置于文本框上；按“结束”按钮，结束程序运行；3 程序中应定义一个名为Validate的通用过程，用于对数据进行变换操作。【要求】将窗体文件和工程文件分别命名为F2和P2，并保存到T盘的根目录下。VB03【考试须知】1 改错题的界面不作要求，主要用来调试程序，若题目中有参考界面，则仅作参考；2 考试结束后，文件必须存放在指定位置，否则适当扣分；考试盘中若无指定文件，则不予评分；3 程序代码书写应呈锯齿形。一、改错题（14分）【题目】本程序的功能是将密文解密。密文中被非数字字符分隔的连续的数字是5进制数，每个5进制数对应一个明文字符的ASCII代码。例如5进制数242对应的ASCII代码值是72，也就是字母“H”，密文末尾以非数字字符结束。Option ExplicitOption Base 1Private Sub Command1_Click() Dim mw As String, st As String, i As Integer Dim p As String, t() As String, k As Integer mw = Text1 For i = 1 To Len(mw) p = Mid(mw, i, 1) st = If p = 0 And p = 4 Then st = st & p ElseIf Len(st) 0 Then k = k + 1 ReDim t(k) t(k) = st End If Next i For i = 1 To UBound(t) k = convert(t(i) st = st & Chr(k) Next i Text2 = stEnd SubPrivate Function convert(p As String) As Integer Dim i As Integer, k As Integer, n As Integer For i = Len(p) To 1 n = n + Val(Mid(p, i, 1) * 5 k k = k + 1 Next i convert = nEnd Function【要求】1新建工程，输入上述代码，改正程序中的错误；2改错时，不得增加或删除语句，但可适当调整语句位置；3将窗体文件和工程文件分别命名为F1和P1，并保存到T盘的根目录下。二、编程题（26分）【题目】编写程序，找出一个数值为150之间的n行n列的方阵（二维数组）的所有凸点。所谓凸点是指在本行、本列中数值最大的元素。一个方阵可能有多个凸点，也可能没有凸点。【编程要求】1 程序参考界面如图所示，编程时不得增加或减少界面对象或改变对象的种类，窗体及界面元素大小适中，且均可见；2 运行程序，按“查找”按钮，首先出现如图的InputBox函数窗口，输入方阵的阶数N（或使用缺省值）后按“确定”按钮，则生成随机数组并显示在文本框1中，同时在文本框2中显示查找结果（若方阵无凸点，则输出“无凸点存在”）；按“清除”按钮，将两个文本框清空；3 程序中应定义一个通用过程，用于查找方阵的凸点。【算法提示】先找出第n行的最大元素，再判断它是否为所在列的最大元素。【要求】将窗体文件和工程文件分别命名为F2和P2，并保存到T盘的根目录下。VB04【考试须知】1 改错题的界面不作要求，主要用来调试程序，若题目中有参考界面，则仅作参考；2 考试结束后，文件必须存放在指定位置，否则适当扣分；考试盘中若无指定文件，则不予评分；3 程序代码书写应呈锯齿形。一、改错题（14分）【题目】本程序的功能是：查找8001200范围内的所有具有两个相同数字的素数。例如811、877等都是符合要求的数据。Option ExplicitPrivate Sub Command1_Click() Dim i As Integer For i = 800 To 1200 If validate(i) And prime(i) Then List1.AddItem i End If Next iEnd SubPrivate Function validate( n As Integer) As Boolean Dim num() As Integer, k As Integer Dim i As Integer, j As Integer Do k = k + 1 ReDim num(k) num(k) = n Mod 10 n = n 10 Loop Until n = 0 k = 0 For i = 1 To UBound(num) - 1 For j = i + 1 To UBound(num) If num(i) = num(j) Then k = k + 1 Next j Next i If k = 1 Then validate = TrueEnd FunctionPrivate Function prime(n As Integer) As Boolean Dim i As Integer For i = 2 To Sqr(n) If n Mod i = 0 Then Exit For Next i prime = TrueEnd Function【要求】1新建工程，输入上述代码，改正程序中的错误；2改错时，不得增加或删除语句，但可适当调整语句位置；3将窗体文件和工程文件分别命名为F1和P1，并保存到T盘的根目录下。二、编程题（26分）【题目】编写程序，生成两个均由两位随机整数组成的数组，每个数组中10个元素互不相同，找出存在于这两个数组中的相同的数并输出。【编程要求】1 程序参考界面如图所示，编程时不得增加或减少界面对象或改变对象的种类，窗体及界面元素大小适中，且均可见；2 运行程序，按“生成”按钮，调用arry过程随机生成两个数组，并分别按图示格式输出到文本框1与文本框2中；按“查找”按钮，则找出两个数组中共同存在的数据，输出到文本框3中，若没有共同的数据，则输出“无共同元素”；按“清除”按钮，将3个文本框清空；3 程序中应定义一个名为arry的通用Sub过程，用于生成无重复数的两个数组。【要求】将窗体文件和工程文件分别命名为F2和P2，并保存到T盘的根目录下。VB05【考试须知】1 改错题的界面不作要求，主要用来调试程序，若题目中有参考界面，则仅作参考；2 考试结束后，文件必须存放在指定位置，否则适当扣分；考试盘中若无指定文件，则不予评分；3 程序代码书写应呈锯齿形。一、改错题（14分）【题目】本程序的功能是：找出100以内有三个不同质因子的所有整数。Option ExplicitOption Base 1Private Sub Command1_Click() Dim i As Integer, j As Integer, a() As Integer, s As String For i = 2 To 100 Call zys(i, a) If UBound(a) = 3 Then s = i & 的质因子： For j = 1 To UBound(a) s = s & Str(a(j) Next j List1.AddItem s End If Next iEnd SubPrivate Sub zys(x As Integer, a() As Integer) Dim i As Integer, j As Integer j = 2 Do If x Mod j = 0 Then i = i + 1 ReDim a(i) a(i) = j x = x j Do While x Mod j = 0 x = x j Loop Else j = j + 1 End If Loop Until x = 0 End Sub【要求】1新建工程，输入上述代码，改正程序中的错误；2改错时，不得增加或删除语句，但可适当调整语句位置；3将窗体文件和工程文件分别命名为F1和P1，并保存到T盘的根目录下。二、编程题（26分）【题目】编写程序，求一个随机生成的4行5列由两位整数组成的数组的标记数组。标记数组中每个元素的值表示原数组对应元素的大小特性。若某元素大于原数组所有元素的平均值，则标记为“G”；小于原数组所有元素的平均值，则标记为“L”；等于原数组所有元素的平均值，则标记为“E”。【编程要求】1 程序参考界面如图所示，编程时不得增加或减少界面对象或改变对象的种类，窗体及界面元素大小适中，且均可见；2 运行程序，按“生成数组”按钮，随机生成一个4行5列由两位整数组成的数组，输出到图片框1中；按“标记”按钮，则生成标记数组，输出到图片框2；按“清除”按钮，将图片框1和图片框2清空；3 程序中应定义一个名为avr的通用过程，用于求二维数组所有元素的平均值【要求】将窗体文件和工程文件分别命名为F2和P2，并保存到T盘的根目录下。VB06【考试须知】1 改错题的界面不作要求，主要用来调试程序，若题目中有参考界面，则仅作参考；2 考试结束后，文件必须存放在指定位置，否则适当扣分；考试盘中若无指定文件，则不予评分；3 程序代码书写应呈锯齿形。一、改错题（14分）【题目】本程序的功能是在自然数序列中依次找出指定个数的连续合数。例如，输入n=5，则可得到24、25、26、27、28。所谓合数是指除了可被1和自身整除之外，还可被其他数整除的数（函数np的功能是判断一个数是否是合数）。Option ExplicitOption Base 1Private Sub Command1_Click() Dim k As Integer, n As Integer, i As Integer Dim hs() As Integer n = Text1 k = 2 Do Until i = n If np(k) Then i = i + 1 ReDim hs(i) hs(i) = k ElseIf i n Then i = 0 End If Erase hs k = k + 1 Loop For i = 1 To n Text2 = Text2 & Str(hs(i) Next iEnd SubPrivate Function np(n As Integer) As Boolean Dim i As Integer For i = 2 To n - 1 If n Mod i = 0 Then Exit Function Next i If i = n - 1 Then np = TrueEnd Function【要求】1新建工程，输入上述代码，改正程序中的错误；2改错时，不得增加或删除语句，但可适当调整语句位置；3将窗体文件和工程文件分别命名为F1和P1，并保存到T盘的根目录下。二、编程题（26分）【题目】编写程序，查找指定范围m, n中所有的凸点数。所谓凸点数是一个不含数字0的5位整数，若表示为abcde，则有a b 、b d、d e。例如12431就是一个凸点数。【编程要求】1 程序参考界面如图所示，编程时不得增加或减少界面对象或改变对象的种类，窗体及界面元素大小适中，且均可见；2 运行程序，首先在文本框m和文本框n中输入指定数据范围，按“运行”按钮，则在列表框中输出并显示查找结果（若指定数据范围不存在凸点数，则输出“无凸点数”）；按“清理”按钮，将文本框及列表框清空，焦点置于文本框m上；按“结束”按钮，结束程序运行；3 程序中应定义一个名为Validate的函数过程，用于判断一个5位数是否为凸点数。【要求】将窗体文件和工程文件分别命名为F2和P2，并保存到T盘的根目录下。 2008秋上机 VB参考答案VB01一、改错【题目】本程序的功能是：随机生成一个有n个元素的数组（n由InputBox函数输入），找出其中的最大元素并将它删除，再输出删除后的数组。Option ExplicitOption Base 1Dim a() As Integer, n As IntegerPrivate Sub Command1_Click() Dim i As Integer n = InputBox(请输入数组个数, , 10) ReDim a(n) For i = 1 To n a(i) = Int(Rnd * 100) + 1 Text1 = Text1 & Str(a(i) Next i Call Lookup(a) For i = 1 To n - 1 err n Text2 = Text2 & Str(a(i) Next iEnd SubPrivate Sub Lookup(a() As Integer) Dim Maxv As Integer, maxp As Integer, i As Integer Maxv = a(1): maxp = 1 For i = 2 To n If a(i) Maxv Then Maxv = a(i) maxp = i End If Next i Call move_f(a, maxp)End SubPrivate Sub move_f(a() As Integer, k As Integer) Dim i As Integer For i = k + 1 To UBound(a) a(i - 1) = a(i) err a(i) = a(i+1) Next i ReDim Preserve a(UBound(a) - 1) err 无PreserveEnd Sub二、编程题【题目】编写程序，找出指定范围a, b之间能构成幻影素数的数据。所谓幻影素数是指自身为素数，其反序数也是素数的数对。例如107与701就是幻影素数。Option Explicit编写程序，找出指定范围a, b之间构成幻影素数的数据。所谓幻影素数是指自身为素数，其反序数也是素数的数对。例如107与701就是幻影素数。Private Sub Command1_Click() Dim i As Integer, j As Integer, js As Integer Dim t As Integer, a As Integer, b As Integer a = Text1: b = Text2 List1.AddItem 幻影素数对: For i = a To b If Prime(i) Then t =