VB试卷7(考试必备).doc

装 订 线 辽源职业技术学院考试答案（七）20 20 学年第 学期期 Visual Basic程序设计考试试卷 命题教师： 审批人： 考试方式：笔试 答题时间 100 分钟 考生人数: 人题号一二三四五六七八九总分标准分20303020100一、填空题（每空1分，共20分）1、Visual Basic是一种面向对象的程序设计语言，构成对象的三要素是（ 对象的方法 ）、（ 事件 ）和（ 属性 ）。2、在VB中，执行“Dim A,B as string”语句后，A的数据类型为（ 字符型 ）3、在一行写多条语句时，每个语句之间用（ 冒号： ）分隔，一条语句要在下一行继续写时，用（ 下划线_ ）符号作为续行符。4、单精度型的类型名称是（ single ），类型声明符是（ ! ）5、函数int(-3.5),int(3.5),fix(-3.5),round(3.5)的值分别是（ -4 ）、（ 3 ）、（ -3 ）、（ 4 ）6、通过控件数组的（ index）属性，可区分控件数组中的不同元素。 7、事件过程是指（ 响应事件 ）时所执行的程序代码。 8、时钟控件的时间间隔是（ 以毫秒计 ）9、在代码窗口的声明部分用（ dim ）和（private）关键字定义的是模块级变量，用（public）定义的是全局变量。10、要想在代码中给名为txtshow的文本框赋予文本：GOOD WORK！时，应当编写的语句是 （txtshow.Text=”GOOD WORK !” ） 。11、声明一个常量PI，并赋值3.14，应使用（ const PI=3.14 ）语句二、选择题（每题2分，共30分）1、以下关于过程的叙述，错误的是（ B ）A、事件过程是由某个事件触发的过程B、通过函数过程的名可以返回多个值C、可以在事件过程中调用函数过程D、不能在事件过程中定义函数过程2、从子过程退出，并返回到主调过程，可使用语句（ B ）A、Return B、Exit Sub C、Exit D、Stop Sub3、根据变量的作用域，可以将变量分为3类，它们是（ C ）A、局部变量、窗体/模块级变量和标准变量B、局部变量、模块级变量和标准变量C、局部变量、窗体/模块级变量和全局变量D、局部变量、窗体变量和全局变量4、Sub过程的定义（ C ）A、一定要有形参 B、一定要指明是公有的还是私有的C、一定要有过程的名称 D、一定要指定其类型5、以下Case语句中错误的是（ C ）A、Case 0 to 10 B、Case Is 10C、Case Is10 And Is106、执行以下语句后显示结果为（ C ）Dim x as integerIf x Then Print x Else Print x-1A、1 B、0 C、-1 D、不确定7、关键字（ D ）用于定义变体类型数据A、Double B、Currency C、Boolean D、Variant8、整数除法的运算符是（ C ） A、% B、/ C、 D、Mod9、设a=10，则执行语句a=IIf(a,a+1,a-1)后，a的值为（ C ）A、10 B、9 C、11 D、010、用于退出for-next循环结构的语句是（ A ） AA、Exit for B、End Next C、Exit D、End For11、通过以下（ B ）窗口可以设置控件的属性。A、代码窗口 B、窗体布局窗口 C、窗体设计窗口 D、属性窗口12、有数组声明语句：Dim a(-1 to 1,-5 to -3) As Single，则该数组的大小是（ C ）A、6 B、12 C、9 D、24 13、表达式datediff(“y”,#12/30/2011#,#1/13/2012#)的结果是（ C ）A、1 B、11 C、14 D、99 14、表达式16/4-25*8/4 mod 52的值为（ B ）A、14 B、4 C、20 D、2 15、如果Form1是启动窗体，并且Form1的load事件过程中有Form2.show，则程序启动后（ C ）A、发生一个运行时错误B、发生一个编译错误C、在所有的初始化代码运行后Form1是活动窗体D、在所有的初始化代码运行后Form2是活动窗体三、读程序写相应的答案（每题6分，共30分）1、 Dim a As Integer, s As Integers = 1Do While a = 5 s = s + a a = a + 1LoopPrint s; a 结果： 16 6 2、在窗体上画一个命令按钮，然后编写如下代码Option Base 1Private Sub Command1_Click() Dim a A=Array(1,3,5,7) J=1 For i=1 to 4 S=s+a(i)*jJ=j*10 Next i Print sEnd Sub运行上面的程序，单击命令按钮，输出s的值是（ 7531 ） 3、Private Sub Command1_Click() X=inputbox() If x2=9 then y=x If x29 then y=x2+1 End Sub程序运行后，在InputBox中输入5，单击命令按钮，y的运行结果是（ 26 ） 4、下列程序段执行后 A=0:B=0 For I= -1 to -4 Step -1 For J=1 to 2B=B+1 Next J A=A+1 Next IA、B的结果分别为（ 4 8 ） 5、编写如下程序,运行后,单击command1结果为( 5a4b3c2d1e )Private Sub command1_Click() A$=”12345”:b$=”abcde” For j=1 to 5 Print Mid$(a$,6-j,1)+Mid$(b$,j,1); Next j PrintEnd sub四、编程题（每题10分，共20分） 1、键盘输入10个数，存入数组中，输出其中最大的数和其对应的位数。Option base 1Dim a(10) as integer,max as integer For i=1 to 10 A(i)=inputbox(“请输入第”& I & “个数”) Next i max=a(1) For i=2 to 10 If a(i)max then max=a(