南通大学计算机二级VB期末试卷+答案.doc

南通大学2009-2010学年 第二学期高级语言程序设计(VB)期末考试试卷（B）第 5 页 共 6 页装订线学院： 专业： 班级： 姓名： 学号： 密 封 线 试题一二三四五六总分得分一、单选题（10题，每题1分共10分，答案填在答题上）1. 下列说法中正确的是 。AIf 与End If关键字必须成对地使用， 有一个If就有一个End If与之相对应。BDo 与Loop关键字必须成对地使用， 有一个Do就有一个Loop与之相对应。CFor 与Exit For必须成对地使用， 有一个For就有一个Exit For与之相对应。D多重Do循环嵌套时，位于最里层循环体中的Exit Do语句可以跳出所有的循环。2. 一条语句要在下一行继续写，用 符号作为续行符。A单引号B双引号C冒号D空格与下划线3. 以下 程序段可以实施X、Y变量值的交换。AY=X:X=Y BZ=X:Y=Z:X=Y CZ=X:X=Y:Y=Z DZ=X:W=Y:Y=Z:X=Y4. 下列能够正确表示条件XYZ的VB逻辑表达式是 。A. XYZB. XY Or YZC. XY And YZD. XYZ5. 下列符号名中， 是VB合法的变量名。Aabs B - a1 Ccdc d DAbc_106. 在设计状态，双击窗体Form1的空白处，打开代码窗口时，显示的是 事件过程模板。A Form_ClickB Form1_Click C Form_LoadDForm1_Load7. Visual Basic是一种可视化程序设计语言，采取了 的编程机制。A事件驱动B按过程顺序执行C从主程序开始执行D按模块顺序执行8. 在一行语句内写多条语句时，每个语句之间用 符号分隔。A ， B ： C 、 D ；9. 在VB集成环境中创建VB 应用程序时，除了工具箱窗口、窗体设计器窗口、属性窗口外，必不可少的窗口是 。A.窗体布局窗口 B.立即窗口 C.代码窗口 D.监视窗口10. 窗体文件的扩展名是什么？A.BMPB.vbp C.frmD.bas二、填空题（30空，每空2分共60分，按每空的序号将答案填涂在答题卡）1 执行下面程序，当单击Command1后，列表框中显示的第一行是 （1） ，第三行是 （2） 。Private Sub Command1_Click() Dim x As Integer, k As Integer x = 63 k = 2 Do Until x = 1 If x Mod k= 0 Then List1.AddItem k x = x k Else k = k +1 End If LoopEnd Sub2 执行下面的程序，单击命令按钮Command1，则窗体上显示的第一行是 （3） ，第二行是 (4) ，第三行是 (5) 。Private Sub Command1_Click() Dim s As String, t As String Dim k As Integer, m As Integer s = BasicY k = 1: m = k For k = 1 To Len(s) Step m + 1 t = t & Chr(Asc(Mid(s, m, 1) + k) k = k + 1 If Mid(s, k, 1) = Y Then Exit For m = m + k Print t Next k Print mEnd Sub3 有如下程序，当单击命令按钮Command1时，窗体上显示的第一行的内容是 （6） ，第二行的内容是 （7） ，第三行的内容是 （8） ，第四行的内容是 （9） 。Private Sub Command1_Click()Dim a as Integer, b as Integer, z as Integera=1:b=1:z=1Call sub1(a,b)Print a, b, zCall sub1(b,a)Print a,b,zEnd Sub Private Sub sub1(x as Integer, ByVal y as Integer) Static z As Integerx=x+zy=x-zz=x+yPrint x, y, zEnd Sub4 以下程序输出的第一行是 （10），第二行是 （11）。Option Base 1Private Sub Command1_Click() Dim a(3, 3) As Integer For i = 1 To 3 For j = 1 To 3 If i + j = 4 Or i = j Then a(i, j) = 1 Else a(i, j) = 0 End If Print a(i, j); ; Next j Print Next iEnd Sub5 执行下面程序，第一行输出结果是 (12) ，第二行输出结果是 (13) 。Private Sub Form_Click() Dim A as Integer A=3 Call sub1(A)End SubPrivate Sub sub1(X as Integer)X=X*2+1If X= A And ch = a And ch = z Then idx = Asc(ch) - (25) A(idx) = A(idx) + 1 End IfNext iFor i = 0 To (26) 该循环用于在Text2中显示内容 If A(i) 0 Then js = js + 1 Text2 = Text2 & Chr(i + Asc(A) & : & Str(A(i) & If js Mod 5 = 0 Then Text2 = Text2 & Chr(13) & Chr(10) End IfNext iEnd Sub10 下面的程序功能是把一个正整数序列重新排列，新的序列的排列规则是：奇数在序列左边，偶数在序列右边，排列时，奇，偶数依次从序列两端向序列中间排放。例如，原序列是：71 54 58 29 31 78 2 77 82 71，重新排列之后是：71 29 31 77 71 82 2 78 58 54，完成下列程序。Private Sub Command1_Click() Dim a(10) As Integer, i As Integer, j As Integer Dim b(10) As Integer, k As Integer For i = 1 To 10 a(i) = Int(Rnd * 100) + 1 Text1.Text = Text1.Text & Str(a(i) Next i j = 1 k = （27） For i = 1 To 10 If a(i) Mod 2 0 Then （28） j = j + 1 Else b(k) = a(i) （29） End If Next i For i = 1 To 10 Text2.Text = Text2.Text & （30） Next iEnd Sub三、改错题（12分）本程序的功能是找出由1、2、3、4、5这五个数字组成的五位整数，该整数中无重复数字，并且十位数与千位数均为偶数Private Sub Command1_Click() Dim i As Integer, S As String 改成Dim i As Long, S As String For i = 12345 To 54321 S = CStr(i) If judge(i) = True Then If Mid(S, 2, 1) Mod 2 = 0 And Mid(S, 4, 1) Mod 2 = 0 Then List1.AddItem i End If End If Next iEnd SubPrivate Function judge(n As Integer) As Boolean改成Private Function judge(Byval n As Long) As Boolean Dim i As Integer, L As Integer, S As String Dim Ch As String * 1 Const st As String = 12345 S = CStr(n): L = Len(st) For i = 1 To L Ch = Mid(st, i, 1) If InStr(S, Ch) = 0 Then Exit For 改成If InStr(S, Ch) = 0 Then Exit Function Next i judge = TrueEnd Function要求：改错时，不得增加或删除语句,但可适当调整语句的位置；四、编程题:（18分）【题目】编写一个求给定数值范围内的幸运数及其个数的程序。所谓幸运数是指前两位数字之和等于后两位数字之和的四位正整数。例如，2103，2+1=0+3，就是一个幸运数。【编程要求】1. 程序参考界面如下图所示，编程时不得增加或减少界面对象或改变对象的种类。2. 首先在文本框1和文本框2中分别输入要求的幸运数的初值和终值，然后单击“求幸运数”按钮，则求出给定范围内的所有幸运数并在列表框中显示结果，在文本框3中显示幸运数个数；单击“清除”按钮，则将3个文本框及列表框清空，焦点置于文本框1上。3. 程序中应定义一个判断某数是否为幸运数的函数过程。试题一二三四五六总分得分一、 单选题（10题，每题1分共10分）1. B2. D3. C4. C5. C6. A7. A8. B9. C10. C二、 填空题（30空，每空2分共60分，按每空的序号填写）(1)3(2)7(3)C(4)Cw(5)8(6)1 1 2(7)1 1 1(8)3 1 4(9)1 3 1(10)1 0 1(11)0 1 0(12)31(13)63(14)11(15)2(16)43(17)n40 or n1(18)loop(19)1/(i*(i+1)(20)sqr(x)(21)flag=false(22)List1.Additem x(23)Len(st)(24)A(idx)+1(25)Asc(“a”)(26)25(27)10(28)b(j)=a(i)(29)k=k-1(30)Str(b(i)三、 改错题（12分）1、Dim i As Integer, S As String 改成:Dim i As Long, S As String2、Private Function judge(n As Integer) As Boolean改成:Private Function judge(Byval n As Long) As Boolean3、If InStr(S, Ch) = 0 Then Exit For改成:If InStr(S, Ch) = 0 Then Exit Function四、 编程题:（18分）Option ExplicitPrivate Sub Command1_Click() Dim i As Integer, s1 As Integer, s2 As Integer, k As Integer s1 = Text1: s2 = Text2 For i = s1 To s2 If luck(i) Then k = k + 1 List1.AddItem Str(i) End If Next i Text3 = kEnd SubPrivate Function luck(ByVal n As Integer