2013-2014学年第二学期VB期末考试复习试卷

姓名: 学号: 学院: 专业班级: ( 密 封 线 内 不 答 题 )密封线线_ _ （本科）试卷（A卷）2013- 2014 学年第 二 学期VB试卷题序一二三四五六七八总 分得分评卷人注意：请务必在答题卡上作答。得分一、选择题（ 共 40 分，每题 1 分）1VisualBasic是一种面向对象的可视化程序设计语言，采取了_的编程机制。 A、事件驱动B、按过程顺序来执行 C、从主程序开始执行D、按模块顺序执行2VisualBasic是一种面向对象的程序设计语言，_不是面向对象系统所包含的三要素。 A、变量B、事件 C、方法D、属性3为了保存一个Visual Basic应用程序，应当_。 A、只保存工程文件（.vbp） B、分别保存工程文件、窗体文件和标准模块文件 C、分别保存工程文件和标准模块文件（.bas） D、只保存窗体模块文件（.frm） 4为了使窗体右移200（twip），应使用的语句是_。 A、 Form1.Move Width+200 B、 Form1.Move 200 C、 Form1.Move Form1.Height+200 D、 Form1.Move Left+2005VB的一个应用程序至少包含一个_文件，该文件存储窗体上使用的所有控件对象和有关的_、对象相应的_过程和_代码。 A、模块、方法、事件、程序B、窗体、属性、事件、程序C、窗体、程序、属性、事件D、窗体、属性、事件、模块6有程序代码如下：text1.text=text1.text则text1、text、text1.text分别代表_。 A、对象、值、属性B、对象、方法、属性 C、对象、属性、值D、属性、对象、值7若要设置文本框中所显示的文本颜色，应设置_属性的值 A、ColorB、FillColor C、BackColorD、ForeColor8当运行程序时，系统自动自动执行启动窗体的_事件过程。A、LoadB、ClickC、UnLoadD、GotFocus9设a=10，b=5，c=1，执行语句print abc后，窗体上显示的是_。 A、FalseB、出错 C、True D、1 10函数String（2,book）的值是_。 A、oB、BOOK C、bbD、 bookbook11以下语句的输出结果是_。PrintFormat$（32548.5,000,000.00）A、32,548.5B、032,548.50 C、32548.5D、32,548.5012InputBox函数返回值的类型为_。 A、数值B、字符串 C、数值或字符串（视输入的数据而定）D、变体13当Visual Basic执行下面语句后，A的值为_ A=1 If A0 then A=A+1 If A1 then A=0 A、3B、2 C、1D、0 14假定有下面的情况语句： Select case x 为了确定x的绝对值大于5，正确的Case子句为_。 A、Case -5 to 5B、Case abs（x）5 C、Case Not（-5 to 5）D、Case Is5 15以下程序段的输出结果为_。 x=1 y=4 do until y4 x=x*y 姓名: 学号: 系别: 年级专业:( 密 封 线 内 不 答 题 )密封线 y=y+1 loop print x A、8B、20 C、1D、4 16下面的程序计算的数学式是_。T=1S=0ForI=1to19step2T=T*I S=S+TNextIPrintS A、1+3+5+.+19B、1+1*3+1*3*5+.+1*3*5*.19C、1*3*5*.*19D、1!+3!+5!+.+19!17执行下列程序，从键盘输入10，运行结果是_。PrivateSubCommand1_Click（）S=InputBox（请输入一个数字：） SelectCaseS CaseIs0 Print0 CaseIs3 Print3 CaseIs5Print5EndSelectEndSubA、3B、0C、出错D、518下面程序段的运行结果为：For i=3 to 1 step -1 Print Spc（5-i）; For j=1 to 2*i-1 Print “*”; Next jprintNext iA、 *B、 *C、 *D、 * * * * * * * *19执行下列代码的结果是_。PrivateSubCommand1_Click（） Dima（10） ForI=1To10 a（I）=I*10 NextI Printa（I）EndSubA、110B、10 C、100D、数组下标越界20执行下面的程序段后，x 的值为_。 x = 5 For i = 1 To 20 Step 2 x = x + i 5 Next i A、24B、23 C、21D、2221语句Dim a（-3 to 4,3 to 6） as integer定义的数组元素的个数是_。 A、32B、21 C、18D、28 22设如下程序： Option base 1 Private Sub Form_Click（） Dim arr arr=array（10,20,ABCDE） For i=3 to 1 step -1 Print arr（i）; Next i End Sub 程序运行后，单击窗体，在窗体上显示的内容为_。 A、ABCDE 10 20B、出错信息 C、10 20 ABCDED、ABCDE 20 10 23可获得当前系统日期的函数是_。、Date( )、Time( )、IsDate( )、Year( )24以下正确的函数定义形式是_。A、Public f1（a As Single）B、Private f1（a As Single）C、Sub f1（a As Single）D、Function f1（A） As String25在窗体上添加一个名为Command1的命令按钮和两个名为Label1、Label2的标签，程序代码如下：PrivatexAsIntegerPrivateSubproc（ByValaAsInteger,ByValbAsInteger）x=a*ay=b+bEndSubPrivateSubCommand1_Click（）x=5y=3Callproc（x,y）Label1.Caption=xLabel2.Caption=yEndSub程序运行后，单击命令按钮，两个标签中显示的内容分别是_。A、25和3B、25和6C、5和6D、5和3 26在窗体上画一个命令按钮（名称为Command1），然后编写如下事件过程： Private Sub Command1_Click（） Dim b as integer b=b+1 End Sub 运行程序，第3次单击命令按钮后，变量b的值为_。 A、1B、3 C、0D、2 27、阅读程序：Functionp1（aAsInteger） Staticbb=b+1 p1=a*bEndFunctionPrivateSubcommand1_click（）DimaAsInteger a=5 ForI=1To3 Printp1（a）,NextIEndSub程序运行后，单击命令按纽，输出结果为：_。 A、5 5 10B、5 10 15C、5 10 50D、10 15 2028假设希望在另一个窗体模块中调用本窗体模块的某个过程，应在此过程前加上_。 A、PrivateB、Static C、DimD、Public 29假定Picture1和Text1分别为图片框和文本框的名称，下列不正确的语句是_。 A、Picture1.Print 25B、Debug.print 25 C、Print 25D、Text1.Print 25 30下列描述中，错误的是_。 A、单选按钮可以接收Click事件 B、当单选按钮的Value属性值为True时表示选中 C、在一组单选按钮中，可以选择一个，也可以选择多个 D、复选框中为空白时表示未选中31表示滚动条控件取值范围最大值的属性是_。A、ValueB、Max C、LargeChangeD、Max-Min 32要使定时器控件每隔3秒钟产生一个Timer事件，应将其Interval属性值设置为_。 A、300B、3000 C、3D、3033复选框的Value属性为1时，表示_。 A、复选框未被选中B、复选框被选中C、复选框内有灰色的勾D、复选框操作有错误34退出For循环可使用的语句为_。 、Exit For 、Exit Do、End For、End Do 35假定有一个菜单项，取名为MenuItem。为了在运行时使该菜单项失效（变灰），应使用的语句为_。 A、MenuItem.Visible=FalseB、MenuItem.Enabled=False C、MenuItem.Enabled=TrueD、MenuItem.Visible=True36窗体的标题栏显示内容由窗体对象的_属性决定。 、BackColor、BackStyle、Text 、Caption 37设a=“Visual Basic”，下面使b=“Visual”的语句是_。 、b=Left(a,8,12) 、b=Mid(a,8,5) C、b=Rigth(a,6)D、b=Left(a,6) 38若要使命令按钮不可用，则可设置其_属性为False来实现。 、Value、Cancel、Enabled、Default 39复选框或单选钮的当前状态可通过_属性来返回或设置。 、Checked、Value、Selected、Caption40VB提供_属性用于控制对象是否可用。 、Default、Cancel、Enabled、Visible得分二、填空题（共20分，每题2分）1表示x是5的倍数或是9的倍数的VB逻辑表达式为_。2若要卸载一个窗体，可以使用该窗体的_语句。3在Visual Basic 6.0中，过程有子程序过程和函数过程，其中_只是执行一系列动作没有返回值。4若定义二维数组为：Dim W（N，M），则该数组的元素共有_个。5在中若要让某对对象获取焦点，则可通过_方法来实现。6a 和b 中有仅只有一个不为1，相应的Visual Basic逻辑表达式为_。7函数Ucase（Mid（visual basic,8,5）的值为_。8在Visual Basic 中，变量从它的作用范围来看，可分为全局变量、_和过程级变量。9过程调用时，参数传递的两种主要方式是按值传递和_。10执行下面的语句后，分别输入1和2，输出结果是_。 Private Sub Form_Click（） a = InputBox（1） b = InputBox（2） Print a + b + 1 End Sub得分三、读程序（共20分，每题4分）1.从计算机输入三个数,找出中间数Private Sub FindMidNum( ) X=INPUTBOX(“PLEASE INPUT THE FIRST NUMBER”) Y=INPUTBOX(“PLEASE INPUT THE SECOND NUMBER) Z=INPUTBOX(“PLESSE INPUT THE THIRD NUMBER) IF（ ）THEN A=X X=Y Y=A END IF IF （ ）THEN PRINT Y ELSEIF （ ） THEN PRINT Z ELSE PRINT X END IFEnd Sub2.程序说明:利用一个计时器、一个标签框和二个命令按钮制作一个动态秒表，单击“开始“命令按钮，秒表开始计时 ，单击“结束“命令按钮， 秒表结束计时，并在标签框显示运行时间，如“运行了小时分秒“。 （假设对象的属性都在程序代码中设定）。Dim x As LongDim h As Integer, m As Integer, s As IntegerPrivate Sub Form_Load()Form1.Caption = 动态秒表（小时：分：秒）Command1.Caption = 开始&SCommand2.Caption = 结束&ELabel1.Alignment = 2 居中对齐Label1.Caption = 0:0:0timer1.Interval =_Timer1.Enabled = Falsex = 0End SubPrivate Sub Command1_Click()_End SubPrivate Sub Command2_Click()Timer1.Enabled = Falsex= 0Label1.Caption = 运行了 + Str(h) + 小时 + Str(m) + 分 + Str(s) + 秒End SubPrivate Sub Timer1_Timer()x = x + 1h=_m = (x Mod 3600) 60s=_(x mod 3600) mod 60_Label1.Caption = Str(h) + : + Str(m) + : + Str(s)End Sub3.程序说明: 已知自然对数的底数e的级数表示如下: e=1+1/1!+1/2!+1/3!+.+1/n!+.本程序利用函数过程fact()求e，其中绝对值小于1E-8的项被忽略。程序代码如下:Private Function fact(m As Integer) As Single 求！的函数 Dim x As Single, i As Integer x = 1 For i=1 to m x= _ Next fact = xEnd FunctionPrivate Sub Form_Click()Dim e As Single, item As SingleDim n As Integere=1 n=_Do n = n + 1 item=_ e = e + itemLoop while item = 1E-8_Form1.Print e=; eEnd Sub4. 阅读下面的程序Private Sub Form_Click( )Static Sum As IntegerFor I=1 To 10 Sum= Sum+INext IPrint SumEnd Sub 运行结果：（ ）5.阅读下面的程序Private Static Sub Command1_Click() Dim x As Integer, s As Integer x = Val(InputBox(请输入一个正整数) If x 5 Then s = s * x Elses = s + x End If Text1.Text = s= + Str(s)End Sub程序运行时连续三次单击Command1，且设输入的数是5，2和4时，分别写出文本框Text1.Text的值。运行结果：（ ）得分四、程序设计题（共20分，每题5分）1编程计算自然数n的阶乘。在命令按钮Commond1的单击事件过程中用InputBox函数输入n，然后计算n的阶乘，并将计算结果显示在窗体上。2用随机函数产生10个正整数，其范围为10x100用一维数组存放，求10个数中的最大数和最大数所在数组中的下标，在窗体上输出这10个数、最大数和下标。3. 编写一个计算圆面积的函数，在文本框Text1中输入圆半径r，然后在命令按钮Command1的单击事件过程中调用该函数计算圆面积，并将计算结果显示在窗体上。4.一个球从100米高度自由下落，每次下落后反跳回原高度的一半，再落下。求它在第10次落地时，共经过多少米？落地10次反弹高度是多少？姓名: 学号: 系别: 年级专业: ( 密 封 线 内 不 答 题 )密封线线_ _ 姓名: 学号: 学院: 专业班级: ( 密 封 线 内 不 答 题 )密封线线_ _ （本科）试卷（A卷）2013 - 2014 学年第 二 学期VB答题卡题序一二三四五六七八总 分得分评卷人得分一、选择题（ 共 40 分，每题 1 分）12345678910111213141516171819202122232425262728293031323334353637383940得分二、填空题（共20分，每题2分）1、 2、 3、 4、 5、 6、 7、 8、 9、 10、 得分三、读程序（共20分，每题4分）1、 2、 3、 4、 5、 得分四、程序设计题（共20分，每题5分）1、 答：2、 答：姓名: 学号: 学院: 专业班级: ( 密 封 线 内 不 答 题 )密封线线3、 答：4、 答：参考答案及评分标准得分一、选择题（ 共 40 分，每题 1 分）参考答案12345678910AABDBCDACC11121314151617181920BBDDDBBCDC21222324252627282930ADADAABDDC31323334353637383940BBBABDDCBC评分标准：每一小题答对计1分，答错计0分。得分二、填空题（共20分，每题2分）参考答案：1、 x mod5 =0 or x mod 9=0 2、 Unload 3、 子程序过程 4、 (N+1) *(M+1) 5、 Setfocus 6、 a1 xor b1 7、 BASIC 8、 模块级变量 9、 按址传递 10、 13 （写为“13”不得分）评分标准：每一小题学生所填内容与参考答案一致，计2分，答错计0分，其余情况酌情给分。得分三、读程序（共20分，每题4分）参考答案：1 X=Z X=Z2 1000 Timer1.enabled=True x36003 x*i 0 1/fact(n)4