VB期末考试模拟题1

1、【HNCE网上考试系统 v9.6】 本套软件使用权属于：郑州大学考试课程: 考试时间:100分钟 考场:第一考场 考试日期:2013.05.24考号： 姓名：剩余时间：99:42保存交卷退出帮助窗体顶端本卷共有3道大题:窗体底端一、单项选择题（50道小题，共50分）1、在Visual Basic中，系统为每个对象预先定义好了一系列的事件。下列事件中，不属于VB系统提供的事件是( )。（1分）A、Click()B、Change()C、MyFirst()D、DblClick()2、下列不属于VB三种模式的是( )模式。（1分）A、设计B、运行C、代码D、中断 3、有程序代码：Picture1.Pi

2、cture = LoadPicture("C:Pict.bmp") ,则：Picture1、Picture和LoadPicture分别代表( )。（1分）A、对象、方法、值B、对象、属性、方法C、对象、属性、值D、对象、属性、函数 4、Visual Basic以( )为运行机制。（1分）A、顺序执行B、事件驱动C、执行计划D、后台作业5、( )是对象的一个基本要素，它描述了对象在程序中的外观特点。（1分）A、事件B、属性C、方法D、事件程序6、下列叙述中，错误的是( )。（1分）A、VB是可视化程序设计语言B、VB采用事件驱动编程机制C、VB是面向过程的程序设计语言D、VB

3、应用程序可以以编译方式执行7、有程序代码如下：Text1.Text = "欢迎学习VB程序设计"，则Text1、Text、"欢迎学习VB程序设计"分别代表( )。（1分）A、对象、值、属性B、对象、属性、值C、对象、方法、属性D、属性、对象、值8、在设计窗体时，如果窗体上没有显示网格会感到不方便，( )可以使网格出现。（1分）A、使用“编辑”菜单上的相关命令B、使用“格式”菜单上的相关命令C、使用“工具”菜单上的相关命令D、使用“工程”菜单上的相关命令9、在VB程序中，逐语句调试的操作键是( )。（1分）A、F8键B、F9键C、F2键D、F1键10、VB

4、应用程序在( )模式下不能编辑代码和设计界面。（1分）A、运行B、中断C、设计D、以上均不能11、通过( )窗口可以在设计时直观的调整窗体在屏幕上的位置。 （1分）A、代码窗口 B、窗体布局窗口 C、窗体设计窗口 D、属性窗口 12、在Visual Basic的中断模式下，按下功能键F8，则( )。（1分）A、执行中断时的下一个语句B、执行中断时的下一个模块C、退出Visual BasicD、结束当前的运行13、在设计模式下，双击窗体上的一个控件，则会打开( )。（1分）A、属性窗口B、工程资源窗口C、代码窗口D、窗体布局窗口14、在设计阶段，当双击窗体上的某个控件时，所打开的窗口是( )。（

5、1分）A、工程资源管理器窗口 B、工具箱窗口 C、代码窗口 D、属性窗口15、在工具栏中有一个“启动”按钮，这个按钮的作用是( )。（1分）A、运行一个应用程序B、运行一个窗体C、打开被选中对象的属性窗口D、打开被选中对象的代码窗口16、以下叙述中，错误的是( )。（1分）A、一个工程可以含有多个标准模块文件B、窗体文件包含该窗体及其控件的属性C、以BAS为扩展名的文件是资源文件D、在工程资源管理器窗口可以包含多个工程文件及属于该工程的其他文件 17、如果在一个工程中移除了一个窗体，则( )。（1分）A、工程不再包含这个窗体，但该窗体文件并没有被删除B、工程不再包含这个窗体，该窗体文件被删除C

6、、该窗体文件从内存清除，工程仍然包含这个窗体D、以上说法都不对18、在VB中，保存一个编写好的程序，“工程名”是以( )作为扩展名的。（1分）A、frm B、vbp C、bat D、bas19、窗体文件中的信息是( )和其他信息。（1分）A、窗体的形状及其特征B、窗体中控件的形状及其特性C、窗体及其控件的属性D、运行窗体的代码20、VB是一种面向( )的程序设计设计语言。（1分）A、过程B、用户C、对象D、方法 21、Visual Basic可以开发基于( )环境的应用程序。（1分）A、WindowsB、DosC、LinuxD、Unix22、有如下两个过程S1和S2：Sub S1(ByVal

7、x , ByVal y ) ：t = x: x = y: y = t：End Sub：Sub S2(x, y) ：t = x: x = y: y = t：End Sub, 下列关于S1和S2的说法，正确的是( )。（1分）A、调用过程S1可以实现交换两个变量值，而S2不能B、调用过程S2可以实现交换两个变量值，而S1不能C、调用过程S1和S2都可以实现交换两个变量值D、调用过程S1和S2都不能实现交换两个变量值 23、阅读下列程序： Sub Med(x%, ByVal y%): x = 3 * x: y = x + y: End Sub: Private Sub Form_Click(): D

8、im a%, b%: a = 3: b = 8: Med a, b: Print a, b: End Sub:运行后，单击窗体，输出结果为( )。（1分）A、3 8B、3 17C、9 8D、9 1724、在定义过程时，若将参数传递方式指定为传值方式，应该用关键字( )。（1分）A、DimB、VarC、ByValD、Byadr25、下列关于过程的说法中，正确的说法是( )。（1分）A、所有在过程中定义的变量在过程调用后均不保存值B、用Static定义的过程里的所有变量都是Static型的变量C、用Private定义的过程里的所有变量都是Private型的变量D、用Public定义的过程里面的所有

9、变量都是非全局Public型的变量26、下列关于变量的说法，不正确的是( )。（1分）A、局部变量是指那些在过程中用Dim语句或Static语句声明的变量B、局部变量的作用域仅限于声明它的过程C、静态局部变量是在过程中用Static语句声明的D、静态局部变量在声明它的过程执行完毕后就被释放了27、过程的作用域分为( )。（1分）A、窗体级和局部级B、模块级和局部级C、窗体/模块级和全局级D、窗体/模块级和局部级28、在窗体的“通用”处用Private定义的变量，其作用域是( )。（1分）A、局部变量 B、窗体/模块级变量C、全局变量 D、静态变量29、在一个应用程序中，若同在一个窗体模块中的三

10、个事件过程要借助一个变量进行通讯，则此变量应声明为( )。（1分）A、全局级变量B、窗体/模块级变量C、局部变量D、静态变量30、使用Public Const语句声明一个全局的符号常量时，应该将该语句放在( )。（1分）A、过程中B、窗体模块的通用声明段C、标准模块的通用声明段D、窗体模块或标准模块的通用声明段31、VB中有三种类型的模块，分别是类模块、( )。（1分）A、窗体模块和标准模块B、过程模块和窗体模块C、函数模块和标准模块D、全局模块和标准模块32、用Static关键字能定义的变量是( )。（1分）A、局部变量B、全局变量C、窗体级变量D、局部变量和全局变量33、以( )保留字开始

11、的为事件过程。（1分）A、SubB、EventC、FunctionD、Property34、在声明一个过程中必须有的是( )。（1分）A、Private关键字B、SUB关键字C、返回值类型说明D、参数35、以( )保留字开始的为子过程。（1分）A、SubB、EventC、FunctionD、Property36、Function函数过程用的结束语句是( )。（1分）A、End SubB、Exit SubC、End FunctionD、Exit Function37、Sub过程与Function过程最根本的区别是( )。（1分）A、两种过程参数的传递方式不同B、Function过程可以有参数，S

12、ub过程不可以C、Sub过程的过程名不能返回值，而Function过程能通过过程名返回值D、Sub过程可以使用Call语句或直接使用过程名调用，而Function过程不可以38、以下关于窗体的叙述中，错误的是( )。（1分）A、一个VB工程中可以有多个窗体，但最多只能有一个窗体作为启动窗体B、窗体之间可以通过在通用段声明Public类型的变量来传递数据C、窗体启动之初可以呈现为最大化、最小化或正常（保持设计时大小）等三种状态D、只有启动窗体才有菜单 39、以下关于窗体的描述正确的是( )。（1分）A、只有用于启动的窗体可以有菜单 B、窗体和其中所有控件的事件过程代码都放在窗体文件中C、窗体名字

13、和存盘的窗体文件名必须相同D、开始运行时窗体的位置只能是设计阶段时显示的位置 40、以下叙述中，错误的是( )。（1分）A、一个工程中只能有一个Sub Main过程B、窗体的Show方法的作用是将指定的窗体装入内存并显示该窗体C、窗体的Hide方法和Unload方法的作用完全相同D、若工程文件中有多个窗体，可以根据需要指定一个窗体为启动窗体41、下列叙述中，错误的叙述是( )。（1分）A、一个应用程序可以只有一个窗体B、一个应用程序通常由多个窗体组成C、一个窗体一定对应一个窗体文件，所以一个应用程序只能包含一个窗体D、一个应用程序只能有一个启动窗体42、一旦装载窗体，系统自动触发的第一个事件是

14、( )。（1分）A、ClickB、DblclickC、InitializeD、Load 43、把一个窗体装入内存的语句是( )。（1分）A、ShowB、LoadC、InputD、Activate44、使用( )方法可隐藏窗体，但不从内存中释放。（1分）A、ShowB、LoadC、HideD、UnLoad45、程序运行时，不是由系统触发的事件是( )。（1分）A、InitializeB、ClickC、LoadD、Activate 46、关于Visual Basic6.0文件的命名原则，下列说法正确的是( )。（1分）A、可以在文件名中使用*和?B、支持文件名为任意长度C、与Windows命名方式

15、不一致D、支持传统的命名方式：8位主文件名，3位扩展名47、以下关于文件的叙述中，错误的是( )。（1分）A、随机文件每条记录的长度可以不同 B、任何文件都可以用二进制模式访问C、按数据的编码方式，文件可以分ASCII文件和二进制文件D、按文件的访问模式可将文件分为顺序文件、随机文件和二进制文件 48、下列关于Close的说法中，错误的是( )。（1分）A、Close用来关闭文件 B、Close可以释放与文件相关联的文件号C、当读写操作结束后，必须将文件关闭D、Close中的“文件号”是必选的49、用( )语句可以读入磁盘上的顺序文件“C:Sequ.txt”。（1分）A、F "C:S

16、equ.txt"：Open F For Input As #1B、F "C:Sequ.txt"：Open "F" For Input As #1C、Open "C:Sequ.txt" For Output As #1D、Open C:Sequ.txt For Output As #150、设有语句Open "Datafile.txt" For Output As #1，以下叙述错误的是( )。（1分）A、该语句以文件号1打开文件B、该语句可以在当前目录下创建一个名为Datafile.txt的文件C、执行该

17、语句后可以向文件Datafile.txt中写入信息D、如果当前目录下文件Datafile.txt不存在，系统显示出错信息 二、填空题（7道小题，共30分）1、* 输出100以内能同时被3和5整除的数。* 程序代码如下：Private Sub Command1_Click()For =1 to 100 If i mod 3=0 i mod 5=0 then print iNext iEnd Sub（4分）2、* 输出九九乘法表的左下角程序代码如下：Private Sub Command1_Click()Dim se As StringPrint Tab(35); "九九乘法表"

18、;For =1 To 9For j = 1 to ise = i & "×" & j & "=" & i*j Print Tab(j - 1) * 9 + 1); ;Next jPrintNext iEnd Sub（4分）3、* 用随机函数产生n个1099之间的随机整数存入一维数组A，通过键盘输入X，然后在数组中查找。如果找到了，就把这个数从数组中删去；如果没有找到，则给出“无可删除的元素”信息。Private Sub Form_Click()Dim n As Integer, a(100) As Integer

19、Dim x As Integer, i As IntegerDim k As Integer, flag As Booleann = InputBox("N=")For i = 1 To a(i) = Int(90 * Rnd + 10)Print a(i);Next i：Printx = InputBox("X=") : Print "X=" xflag = FalseFor i = 1 To nIf a(i) = x Then= Truek = iExit ForEnd IfNext iIf Not flag ThenPrint

20、"无可删除的元素"ElseFor i = k To n - 1a(i) = a(i + 1)Next i: n = n - 1For i = 1 To nPrint a(i);Next iEnd IfEnd Sub（4分）4、* 对10个100以内的整数，用选择法按递增顺序排序。程序代码如下：Private Sub Command1_Click（）Dim a(10) As Integer,t%For i = 1 To 10 a(i)= int(rnd*101) Print a(i);Next iPrint For I = 1 To 9 For j = i+1 To 10 I

21、f a(i)>a(j) then t=a(i) ：a(i) =a(j) ：a(j) =t Next jNext iFor i = 1 To 10 Print a(i);Next iEnd Sub（4分）5、* 随机生成一个4行4列元素为三位整数的是下三角方阵，计算所有元素之和。程序代码如下： Private Sub Command1_Click()Dim R(1 To 4, 1 To 4) As IntegerDim i%, j%, Sum%Sum = 0For i = 1 To 4 For j = 5 - i To 4R(i, j) = Int(900 * Rnd + 100)Prin

22、t Tab(j - 1) * 6); R(i, j);= + R(i, j)Next jPrintNext iPrint SumEnd Sub（4分）6、* 用子过程输出Fibonacci（斐波那契）数列（1、1、2、3、5、8.）的前20项及前20项的和。* 程序代码如下：Private Sub Command1_Click()Dim s&, a%, b%, c%a = 1: b = 1s = a + bPrint aPrint bFor i = 1 To 18fib a, b, cs = s + Next iPrint "Fibonacci（斐波那契）数列的前20项的和为：" sEnd Sub Private Sub (a, b, c)c = a + ba = bb = cEn