郑州大学2013vb机试题库3

【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、 设计 领导形象设计圆作业设计ao工艺污水处理厂设计附属工程施工组织设计清扫机器人结构设计 B、运行 C、代码 D、中断 3、有程序代码：Picture1.Picture = LoadPicture("C:\Pict.bmp") ,则：Picture1、Picture和LoadPicture分别代 表 关于同志近三年现实表现材料材料类招标技术评分表图表与交易pdf视力表打印pdf用图表说话 pdf ( )。（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应用程序可以以编译方式执行 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应用程序在( )模式下不能编辑代码和设计界面。（1分） A、运行 B、中断 C、设计 D、以上均不能 11、通过( )窗口可以在设计时直观的调整窗体在屏幕上的位置。 （1分） A、代码窗口 B、窗体布局窗口 C、窗体设计窗口 D、属性窗口 12、在Visual Basic的中断模式下，按下功能键F8，则( )。（1分） A、执行中断时的下一个语句 B、执行中断时的下一个模块 C、退出Visual Basic D、结束当前的运行 13、在设计模式下，双击窗体上的一个控件，则会打开( )。（1分） A、属性窗口 B、工程资源窗口 C、代码窗口 D、窗体布局窗口 14、在设计阶段，当双击窗体上的某个控件时，所打开的窗口是( )。（1分） A、工程资源管理器窗口 B、工具箱窗口 C、代码窗口 D、属性窗口 15、在工具栏中有一个“启动”按钮，这个按钮的作用是( )。（1分） A、运行一个应用程序 B、运行一个窗体 C、打开被选中对象的属性窗口 D、打开被选中对象的代码窗口 16、以下叙述中，错误的是( )。（1分） A、一个工程可以含有多个 标准 excel标准偏差excel标准偏差函数exl标准差函数国标检验抽样标准表免费下载红头文件格式标准下载 模块文件 B、窗体文件包含该窗体及其控件的属性 C、以BAS为扩展名的文件是资源文件 D、在工程资源管理器窗口可以包含多个工程文件及属于该工程的其他文件 17、如果在一个工程中移除了一个窗体，则( )。（1分） A、工程不再包含这个窗体，但该窗体文件并没有被删除 B、工程不再包含这个窗体，该窗体文件被删除 C、该窗体文件从内存清除，工程仍然包含这个窗体 D、以上说法都不对 18、在VB中，保存一个编写好的程序，“工程名”是以( )作为扩展名的。（1分） A、frm B、vbp C、bat D、bas 19、窗体文件中的信息是( )和其他信息。（1分） A、窗体的形状及其特征 B、窗体中控件的形状及其特性 C、窗体及其控件的属性 D、运行窗体的代码 20、VB是一种面向( )的程序设计设计语言。（1分） A、过程 B、用户 C、对象 D、方法 21、Visual Basic可以开发基于( )环境的应用程序。（1分） A、Windows B、Dos C、Linux D、Unix 22、有如下两个过程S1和S2：Sub S1(ByVal 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(): Dim a%, b%: a = 3: b = 8: Med a, b: Print a, b: End Sub:运行后，单击窗体，输出结果为( )。（1分） A、3 8 B、3 17 C、9 8 D、9 17 24、在定义过程时，若将参数传递方式指定为传值方式，应该用关键字( )。（1分） A、Dim B、Var C、ByVal D、Byadr 25、下列关于过程的说法中，正确的说法是( )。（1分） A、所有在过程中定义的变量在过程调用后均不保存值 B、用Static定义的过程里的所有变量都是Static型的变量 C、用Private定义的过程里的所有变量都是Private型的变量 D、用Public定义的过程里面的所有变量都是非全局Public型的变量 26、下列关于变量的说法，不正确的是( )。（1分） A、局部变量是指那些在过程中用Dim语句或Static语句声明的变量 B、局部变量的作用域仅限于声明它的过程 C、静态局部变量是在过程中用Static语句声明的 D、静态局部变量在声明它的过程执行完毕后就被释放了 27、过程的作用域分为( )。（1分） A、窗体级和局部级 B、模块级和局部级 C、窗体/模块级和全局级 D、窗体/模块级和局部级 28、在窗体的“通用”处用Private定义的变量，其作用域是( )。（1分） A、局部变量 B、窗体/模块级变量 C、全局变量 D、静态变量 29、在一个应用程序中，若同在一个窗体模块中的三个事件过程要借助一个变量进行通讯，则此变量应声明为( )。（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、以( )保留字开始的为事件过程。（1分） A、Sub B、Event C、Function D、Property 34、在声明一个过程中必须有的是( )。（1分） A、Private关键字 B、SUB关键字 C、返回值类型说明 D、参数 35、以( )保留字开始的为子过程。（1分） A、Sub B、Event C、Function D、Property 36、Function函数过程用的结束语句是( )。（1分） A、End Sub B、Exit Sub C、End Function D、Exit Function 37、Sub过程与Function过程最根本的区别是( )。（1分） A、两种过程参数的传递方式不同 B、Function过程可以有参数，Sub过程不可以 C、Sub过程的过程名不能返回值，而Function过程能通过过程名返回值 D、Sub过程可以使用Call语句或直接使用过程名调用，而Function过程不可以 38、以下关于窗体的叙述中，错误的是( )。（1分） A、一个VB工程中可以有多个窗体，但最多只能有一个窗体作为启动窗体 B、窗体之间可以通过在通用段声明Public类型的变量来传递数据 C、窗体启动之初可以呈现为最大化、最小化或正常（保持设计时大小）等三种状态 D、只有启动窗体才有菜单 39、以下关于窗体的描述正确的是( )。（1分） A、只有用于启动的窗体可以有菜单 B、窗体和其中所有控件的事件过程代码都放在窗体文件中 C、窗体名字和存盘的窗体文件名必须相同 D、开始运行时窗体的位置只能是设计阶段时显示的位置 40、以下叙述中，错误的是( )。（1分） A、一个工程中只能有一个Sub Main过程 B、窗体的Show方法的作用是将指定的窗体装入内存并显示该窗体 C、窗体的Hide方法和Unload方法的作用完全相同 D、若工程文件中有多个窗体，可以根据需要指定一个窗体为启动窗体 41、下列叙述中，错误的叙述是( )。（1分） A、一个应用程序可以只有一个窗体 B、一个应用程序通常由多个窗体组成 C、一个窗体一定对应一个窗体文件，所以一个应用程序只能包含一个窗体 D、一个应用程序只能有一个启动窗体 42、一旦装载窗体，系统自动触发的第一个事件是( )。（1分） A、Click B、Dblclick C、Initialize D、Load 43、把一个窗体装入内存的语句是( )。（1分） A、Show B、Load C、Input D、Activate 44、使用( )方法可隐藏窗体，但不从内存中释放。（1分） A、Show B、Load C、Hide D、UnLoad 45、程序运行时，不是由系统触发的事件是( )。（1分） A、Initialize B、Click C、Load D、Activate 46、关于Visual Basic6.0文件的命名 原则 组织架构调整原则组织架构设计原则组织架构设置原则财政预算编制原则问卷调查设计原则 ，下列说法正确的是( )。（1分） A、可以在文件名中使用*和? B、支持文件名为任意长度 C、与Windows命名方式不一致 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:\Sequ.txt"：Open F For Input As #1 B、F＝ "C:\Sequ.txt"：Open "F" For Input As #1 C、Open "C:\Sequ.txt" For Output As #1 D、Open C:\Sequ.txt For Output As #1 50、设有语句Open "Datafile.txt" For Output As #1，以下叙述错误的是( )。（1分） A、该语句以文件号1打开文件 B、该语句可以在当前目录下创建一个名为Datafile.txt的文件 C、执行该语句后可以向文件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 i Next i End Sub （4分） 2、* 输出九九乘法表的左下角 程序代码如下： Private Sub Command1_Click() Dim se As String Print Tab(35); "九九乘法表" For =1 To 9 For j = 1 to i se = i & "×" & j & "=" & i*j Print Tab((j - 1) * 9 + 1); ; Next j Print Next i End Sub （4分） 3、* 用随机函数产生n个10～99之间的随机整数存入一维数组A，通过键盘输入X，然后在数组中查找。如果找到了，就把这个数从数组中删去；如果没有找到，则给出“无可删除的元素”信息。 Private Sub Form_Click() Dim n As Integer, a(100) As Integer Dim x As Integer, i As Integer Dim k As Integer, flag As Boolean n = InputBox("N=") For i = 1 To a(i) = Int(90 * Rnd + 10) Print a(i); Next i：Print x = InputBox("X=") : Print "X="; x flag = False For i = 1 To n If a(i) = x Then = True k = i Exit For End If Next i If Not flag Then Print "无可删除的元素" Else For i = k To n - 1 a(i) = a(i + 1) Next i: n = n - 1 For i = 1 To n Print a(i); Next i End If End 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 i Print For = 1 To 9 For = i+1 To 10 If a(i)>a(j) then t=a(i) ：a(i) =a(j) ：a(j) =t Next j Next i For i = 1 To 10 Print a(i); Next i End Sub （4分） 5、* 随机生成一个4行4列元素为三位整数的是下三角方阵，计算所有元素之和。 程序代码如下： Private Sub Command1_Click() Dim R(1 To 4, 1 To 4) As Integer Dim i%, j%, Sum% Sum = 0 For i = 1 To 4 For j = 5 - i To 4 R(i, j) = Int(900 * Rnd + 100) Print Tab((j - 1) * 6); R(i, j); = + R(i, j) Next j Print Next i Print Sum End Sub （4分） 6、* 用子过程输出Fibonacci（斐波那契）数列（1、1、2、3、5、8...）的前20项及前20项的和。 * 程序代码如下： Private Sub Command1_Click() Dim s&, a%, b%, c% a = 1: b = 1 s = a + b Print a Print b For i = 1 To 18 fib a, b, c s = s + Next i Print "Fibonacci（斐波那契）数列的前20项的和为："; s End Sub Private Sub (a, b, c) c = a + b a = b b = c End Sub （4分） 7、* 设计一前景背景色互换程序,如图{<1-2.jpg>} * 单击命令按钮“换”，互换窗体中文本框的前景色和背景色。 '1-2.jpg Private Sub Form_Load() Text1 = “大象无形 大音希声” End Sub Private Sub Command1_Click() Dim t As Variant Dim i As Integer i = MsgBox("确定换吗？", ) If i = 1 Then t = text1.ForeColor text1.ForeColor = text1. .BackColor = t End If End Sub （6分） 三、编程题（2道小题，共20分） 1、* 在8000和9000之间有且只有一个完数，请找出这个完数（一个数正好等于它所有因子之和，就称为完数。例如6=1+2+3，6就是完数）。 （10分） 必须将本题程序最后的运行结果填入下面的框中。否则，该题以零分计! 请将你解答本题所写的源程序粘贴到下面或者上载源程序 2、* 下载数据文件data0002.txt到自己的机器中，编程统计出该数据文件中，在第51个-第10000个数据之间，末位是3的数字的个数。 （【下载文件“data0002.txt”】；）下载方法：在链接上右击打开弹出菜单，选择“目标另存为”。 （10分） 必须将本题程序最后的运行结果填入下面的框中。否则，该题以零分计! 请将你解答本题所写的源程序粘贴到下面或者上载源程序 HTMLCONTROL Forms.HTML:Hidden.1 HTMLCONTROL Forms.HTML:Hidden.1 HTMLCONTROL Forms.HTML:Hidden.1 HTMLCONTROL Forms.HTML:Hidden.1 窗体底端 考号： 姓名： 剩余时间： 99:42 保存交卷退出帮助 强烈建议您使用IE5.0以上，屏幕分辨率800X600以上，真彩，小字体浏览