2012-2013-1VB期末试卷(A).doc

江 南 大 学 考 程序设计基础VB 期末考试卷 （A）使用专业、班级 学号 姓名 题数一二三四总分得分 一、单选题每小题1分，共计30分1. 以下叙述中错误的是【 】。 A事件过程是响应特定事件的一段程序B不同的对象可以具有相同名称的方法C对象的方法是执行指定操作的过程D对象事件的名称可以由编程者指定2. 在以下有关对象属性的叙述中错误的是【 】。A所有对象都具有Name 属性 B只能在执行时设置或改变的属性为执行时属性 C对象的某些属性只能在设计时设定，不能使用代码改变 DEnabled属性值设为False的控件对象在窗体上将不可见3. 工程中有2个窗体，名称分别为Form1、Form2，Form1为启动窗体。要求程序运行后单击Form1时显示Form2，则Form1的单击事件应该是【 】。A.Private Sub Form_Click() B.Private Sub Form_Click() Form2.Show Form2.Visible End Sub End SubC.Private Sub Form_Click() D.Private Sub Form_Click() Load Form2 Form2.Load End Sub End Sub4.通过文本框的【 】事件过程可以获取文本框中键入字符的ASCII码值。AChange BGotFocus CLostFocus DKeyPress5. 要使控件与框架捆绑在一起，以下操作正确的是【 】。A.在窗体不同位置上分别画一框架和控件，再将控件拖到框架上B.在窗体上画好控件，再画框架将控件框起来C.在窗体上画好框架，再在框架中画控件D.在窗体上画好框架，再双击工具箱中的控件6. 窗体上有名为Option1的单选按钮，则以下语句中与If Option1.Value = True Then不等价的是【 】。AIf Option1.Value Then BIf Option1 = True ThenCIf Value = True Then DIf Option1 Then 7. 下列【 】程序段能删除列表框List1中的所有项。APrivate Sub Command3_Click() For I=0 To List1.ListCount-1 List1.RemoveItem 1 Next I End SubBPrivate Sub Command3_Click() For I=0 To List1.ListCount-1 List1.Removeltem 0 Next IEnd SubCPrivate Sub Command3_Click() For I=0 To Listl.ListCount-1 List1.Removeltem I Next IEnd SubDPrivate Sub Command3_Click() For I=0 To Listl.ListCount List1.RemoveItem 0 Next IEnd Sub8. 若看到程序中有以下事件过程，并希望运行后窗体上有文本输出，则可以肯定的是【 】。Private Sub Click_MouseDown(Button As Integer, Shift As Integer, _X As Single, Y As Single) If Button = 2 Then Print VB ProgramEnd SubA鼠标右键单击Command1对象，执行此过程B鼠标右键单击Click对象，执行此过程C鼠标左键单击MouseDown对象，执行此过程D鼠标左键单击MouseDown对象，执行此过程9. 下列符号常量的声明中，【 】是不合法的。AConst a As Single=1.1 B. Const a As Integer=12CConst a As Double=Sin（1） DConst a=OK10. 窗体上放置了3个文本框，若在Text1中输入456，在Text2中输入78，在程序中执行了语句Text3.text = Text1.text + Text2.text后，则在Text3中显示【 】。A534 B. 45678 C溢出 D语法错误11. 如果x是一个正实数，对x 的第3位小数四舍五入的表达式是【 】。AInt（x+0.005）/100 BInt（100*（x+0.005）/100 CInt（x+0.05）/100 DInt（100*（x+0.05）/10012. 将任意一个正的两位数N的个位数与十位数对换的表达式为【 】。A(NInt(N/10)*10)*10+Int(N/10) BNInt(N)/10*10+Int(N)/10CInt(N/10)+(NInt(N/10) D(NInt(N/10)*10+Int(N/10)13. 下面表达式的值为真的是【 】。AMid (Visual Basic，1，12)=Right (Programing Lanuage Visual Basic，12)BABCRGabcdeCInt(134.69)CInt (134.69) D78.9/32.774.9814. 下面所列4组数据中，全部正确的Visual Basic常数是【 】。A32768，1.34D2，ABCDE，&O1767 B3276，123.56，1.2E-2，#True#C&HABCE，02-03-2002，False，D-3 DABCDE，#02-02-2002#，E-215. 以下【 】程序段可以实现x、y变量值的交换。Ay=x：x=y Bz=x：y=z：x=yCz=x：x=y：y=z Dz=x：w=y：y=z：x=y16. 下面【 】语句，可以将列表框List1中当前选定的列表项的值替换成ABC。AList1.AddItem ABC，List1.ListIndex BList1.Text=ABCCList1.List（List.ListIndex）= ABC D前三项均可17. 某过程中有以下语句： Dim V As IntegerV=200.0 语句1V=V*V 语句2则将产生错误，原因是【 】。A语句1有语法错误 B语句1运行时产生类型不匹配错误C语句2有语法错误 D语句2运行时产生“溢出”错误18.下列程序段的执行结果为【 】。 a = 1b = 2a = Val(a) + Val(b)b = Val(12)If a b Then Print a b Else Print b aA.9 B.9 C.1212 D.0 19. 多分支选择结构的Case语句中“表达式列表”不能是【 】。A常量值的列表，如Case 1,3,5 B变量名的列表，如Case x,y,zCTo 表达式，如Case 10 To 20 DIs关系表达式，如Case Is2020. 关于Exit For语句的使用说明正确的是【 】。A.Exit For语句可以退出任何类型的循环B.一个循环只能有一个这样的语句C.Exit For表示返回For语句去执行D.一个For循环中可以有多条Exit For语句21. 判断下面循环体的执行次数【 】。Dim m As Integerm=3For i=1 To 20 Step m i=i+2 m=m+iNext i A2 B3 C4 D722下列循环能正常结束循环的是【 】。Ai=5Bi=1 Do Do i=i+1 i=i+2 Loop Until i0 Loop Until i=123. 若有说明：Dim a（1 to 10） As Integer，则下列应用【 】合法。Aa（1）=adk Ba（7）=32768 Ca（8）= 23 Da（0）=2.324. 以下说法不正确的是【 】。A使用ReDim语句可以改变数组的维数B使用ReDim语句可以改变数组的类型C使用ReDim语句可以改变数组每一维的大小D使用ReDim语句可以对数组中的所有元素进行初始化 25. 设用复制、粘贴的方法建立了一个命令按钮数组Commandl，以下对该数组的说法错误的是【 】。A.命令按钮的所有Caption属性都是Commandl B.在代码中访问任意一个命令按钮只需使用名称CommandlC.命令按钮的大小都相同D.命令按钮共享相同的事件过程26. 执行以下Command1的Click事件过程在窗体上显示的结果为【 】。Option Base 1Private Sub Command1_Click() Dim a a=Array(1,2,3,4) j=1 For i=4 To 1 Step 1 s=s+a(i)*j : j=j*10 Next i Print sEnd SubA4321 B12 C34 D123427. 下面关于过程参数的说法错误的是【 】。 A过程的形参不可以是定长字符串类型的变量B形参是定长字符串的数组，则对应的实参必须是定长字符串型数组，且长度相同C若形参是按地址传递的参数，形参和实参也能以按值传递方式进行形实结合D按值传递参数，形参和实参的类型可以不同，只要相容即可28. 在窗体Form1 中用“Public Sub Fun（x As Integer，y As Single）”定义过程Fun，在窗体 Form2中定义了变量i为Integer，j为Single，若要在Form2的某事件过程中调用Form1中的Fun 过程，则下列语句中，正确的语句有【 】个。 （1）Call Fun(i，j) （2）Call Form1.Fun(i，j) （3）Form1.Fun (i)，j （4）Form1.Fun i+1, (j) A1 B2 C3 D4 29. 标准模块中有如下程序代码：Public x As Integer, y As IntegerSub Var_pub() x = 10 : y = 20End Sub在窗体上有1个命令按钮，并有如下事件过程：Private Sub Command1_Click() Dim x As Integer Call Var_pub x = x + 100 y = y + 100 Print x; yEnd Sub运行程序后单击命令按钮，窗体上显示的是【 】。A100 100 B100 120 C110 100 D110 12030. 某人设计了下面的函数Fun，功能是返回参数a中数值的位数，在调用该函数时发现返回的结果不正确，函数需要修改，下面的修改方案中正确的是【 】。Function Fun(a As Integer) As Integer Dim n% n = 1 While a 10 = 0 n = n + 1 : a = a 10 Wend Fun = nEnd FunctionA.把语句n =1 改为n = 0 B.把循环条件a 10 = 0改为a 10 0C.把语句a = a 10改为a = a Mod 10 D.把语句Fun = n改为Fun = a 二、填空题 每空2分，共计30分1. 开发一个应用程序必须完成以下两项工作：一是设计 （1） ；二是编写 （2） 代码。2. 窗体有两个属性的默认值是相同的：分别是 （3） 和 （4） 。 3. 设置时钟控件只能触发（5）事件。4. 写出代数式对应的vb表达式： （6） 。5. 运行下列程序，窗体上显示的结果是 （7） 。 Private Sub Form_Click() A$ = 12: B$ = 34 C = Val(A$) + Val(B$):D = Val(A$ + B$) Print C Mod 10， D 10， C + DEnd Sub6. 下列程序段的执行结果为 （8）。 Private Sub Command1_Click() x = 2 y = 1 If x * y 0End Sub7. 执行下面的程序段后，窗体上显示的结果是 (9) 。s = 2For i = 3.2 To 4.9 Step 0.8 s = s + 1Next iPrint i， s8. 有如下程序段，写出运行后的输出结果为 （10） 。Private Sub Command1_Click() Dim x As Integer, y As Integer x = 1: y = 3 Do While x = 5 x = y Mod 3 + 2 * x - 1 y = y + (-1) y Loop Print x， yEnd Sub9. 执行下面程序，单击命令按钮，输出结果是 (11) 。Option Base 1Dim arr() As IntegerPrivate Sub Form_Click() Dim i As Integer, j As Integer ReDim arr(3, 2) For i = 1 To 3 For j = 1 To 2 arr(i, j) = i * 2 + j Next j Next i ReDim Preserve arr(3, 4) For j = 3 To 4 arr(3, j) = j + 9 Next j Print arr(3, 2)， arr(3, 4)End Sub 10. 执行下面程序，单击命令按钮，输出结果是 (12) 。 Private Sub Command1_Click() Dim x As Integer, y As IntegerDim z As Integer x = 3 y = 5 z = Fy(y) Print Fx(Fx(x), x, yEnd Sub 11. 运行程序，单击命令按钮，输出结果第一行为 （13），第二行为 （14）。Option ExplicitPublic x As SinglePrivate a As Integer, b As StringPrivate Sub Command1_Click() Dim y As Integer x = 8: y = 9 Call P2(y, Str(x) x = a: y = a + x Call P1(x, y) Print x, yPrint a, bEnd Sub12. 运行程序，单击命令按钮，输出结果的为 （15） 。Option ExplicitPrivate Sub Command1_Click() Dim x As Single, i As Integer x = 1.2 For i = 1 To 3 x = x * i Print Format(Fun1(x), 0.0)， Next iEnd Sub 三、完善程序填空题 每空2分，共计30分1. 求1/2+2/3+3/5+5/8+的前1000项的和。注：该数列从第二项开始，其分子等于前一项的分母，而其分母等于前一项分子与分母之和。要求，按四舍五入的方式精确到小数点后第二位。Private Sub Command1_Click() s = 0: fz = 1: fm = 2 For i = 1 To 1000 (1) t = fz fz = fm (2) Next i Print Round(s, 2)End Sub2. 我国现有13亿人口，设年增长率为1%，计算多少年后增加到或超过20亿？ Private Sub Form_Click() Dim n As Integer, peoplenum As Double peoplenum = 13 Do n = n + 1 (3) Loop (4) Print n; 年后我国人口将达到; peoplenum; 亿 End Sub3. 下列程序代码读入N个数，用选择排序法对这N个数按从大到小的顺序排序，并在文本框Textl中输出排序结果，运行界面如图所示。Dim (5) Private Sub Command1_C1ick() n=Val(InputBox(请输入n:) : ReDim A(n) For i=1 To (6) A(i)=Int(Rnd*99+1) Next i Text1.Text= For i=1 To n1 For j= (7) To n If A(i)= A And ch 0，x，x）有相同结果的代数式是|x|。 ( )7. Do Loop while语句与Do Loop until语句都至少执行一次循环体。 ( ) 8. 数组元素可以是控件。 ( )9.若用数组名作为函数调用的实参，传递给形参的是数组第一个元素的地址 。 ( )10.使用ByRef说明的形式参数在形实结合时，总是按地址传递方式进行结合的。 ( ) 江南大学考 程序设计基础VB 期末考试卷答题纸 (A)使用专业、班级 学号 姓名 题数一二三四总分得分一、单选题每小题1分，共计30分123456789101112131415161718192021222324252627282930二、填空题 每空2分，共计30分(1) (2) (3) (4) (5) (6) (7) (8) (9) (10) (11) (12) (13) (14) (15) 考试形式开卷（）、闭卷（），在选项上打（）1开课教研室 计算机基础部 命题教师 程红 命题时间2012年12月5 日 试卷答 题专用纸三、完善程序填空题每空2分，共计30分(1) (2) (3) (4) (5) (6) (7) (8) (9) (10) (11) (12) (13) (14) (15) 四、判断题 每小题1分，共计10分。正确打()、错误打() 1. ( ) 2. ( ) 3. ( ) 4. ( ) 5. ( )6. ( ) 7. ( ) 8. ( ) 9. ( ) 10. ( )使用学期 2012-2013-1 总张数 1 教研室主