《郑州大学vb机试题库7-.pdf》由会员分享，可在线阅读，更多相关《郑州大学vb机试题库7-.pdf（13页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、【HNCE 网上考试系统 v9.6】本套软件使用权属于：郑州大学考试课程:考试时间:100 分钟 考场:第一考场考试日期:2013.05.24考号：姓名：剩余时间：99:46 保存交卷退出帮助本卷共有 3 道大题:一、单项选择题（50 道小题，共50 分）1、下列叙述中，正确的是()。（1 分）A、VB的事件由用户定义B、VB程序以顺序方式执行C、每一个 VB程序都是从 Main()函数开始执行D、VB运行时，系统等待事件的发生，事件的执行顺序与书写顺序无关2、对象能够识别的操作称为()。（1 分）A、属性B、方法C、事件D、过程3、Visual Basic程序中语句行的续行符是()。（1 分
2、）A、B、:C、D、_ 4、下列关于VB编码规则的叙述中，错误的是()。（1 分）A、一条语句可以分为多行书写B、多条语句可以书写在同一行上，每条语句之间用逗号隔开C、可以用 Rem给语句或程序段加上注释，以提高可读性D、不区分程序代码中变量名的字母的大小写5、VB中，窗体可视化部分的数据存放在窗体模块中。若针对该窗体中的某一命令按钮对象编写代码，则该程序代码应存放在()中。（1 分）A、窗体模块B、标准代码模块C、类模块D、命令按钮模块6、下列叙述中，错误的是()。（1 分）A、VB是可视化程序设计语言B、VB采用事件驱动编程机制C、VB是面向过程的程序设计语言D、VB应用程序可以以编译方式
3、执行7、Visual Basic程序中的注释所使用的字符是()。（1 分）A、B、:C、D、_ 8、下列不能打开属性窗口的操作是()。（1 分）A、执行“视图”菜单中的“属性窗口”命令B、按 F4 键C、按 Ctrl+T D、单击工具栏上的“属性窗口”图标9、在设计阶段，双击窗体上的某个控件，可以打开()。（1 分）A、代码窗口B、属性窗口C、工具箱窗口D、工程资源管理器窗口10、语句 Debug.Print 郑州大学 被执行后,在()上将显示:郑州大学。（1 分）A、窗体B、立即窗口C、属性窗口D、图形框11、调试程序时需要设置断点，设置断点在()窗口。（1 分）A、立即B、调试C、代码D、
4、工程资源管理器12、双击窗体的任何地方，可以打开的窗口是()。（1 分）A、代码窗口B、属性窗口C、立即窗口D、工程管理窗口13、如果要向工具箱中加入控件的部件，可以利用“工程”菜单中的()命令（1 分）A、引用B、部件C、工程属性D、加窗体14、使用 Visual Basic编程，我们把工具箱内的工具称为()。（1 分）A、事件B、工具C、控件D、窗体15、在 Visual Basic的设计模式下，如果按下功能键F5，则()。（1 分）A、开始运行正在设计的程序B、执行一句代码C、编译当前正在设计的程序D、退出 Visual Basic16、不属于一个工程文件里的文件是()。（1 分）A、.
5、txtB、.frmC、.basD、.cls17、每建立一个窗体，工程管理器窗口中就会增加一个()。（1 分）A、工程文件B、窗体文件C、程序模块文件D、类模块文件18、下列说法中，正确的说法是()。（1 分）A、窗体名称和该窗体文件名必须一致B、窗体名称和该窗体文件名可以不相同C、窗体名称和该窗体文件名不能使用汉字D、窗体名称不能使用汉字、但该窗体文件名能使用汉字19、下列说法中正确的是:为了保存一个Visual Basic应用程序，应当()。（1 分）A、只保存窗体模块文件(.frm)B、只保存工程文件(.vbp)C、分别保存工程文件和标准模块文件(.bas)D、分别保存工程文件、窗体文件和
6、标准模块文件20、面向对象的程序设计语言的基本编程模式是()驱动。（1 分）A、事件B、对象C、方法D、类驱动21、VB是一种面向()的程序设计设计语言。（1 分）A、过程B、用户C、对象D、方法22、阅读如下程序，a=1:b=2:plus S,a,b:Print S:不能使其输出结果为3 的 plus 过程为()。（1 分）A、Sub plus(sum,a,b):sum=a+b:End SubB、Sub plus(ByVal sum,a,b):sum=a+b:End SubC、Sub plus(sum,ByVal a,ByVal b):sum=a+b:End SubD、Sub plus(su
7、m,ByRef a,ByRef b):sum=a+b:End Sub23、有如下两个过程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 都不能实现交换两个变量值24、阅读下列程序：Sub Med(x%,ByVal y%):x=3*x:y=x+y:E
8、nd Sub:Private Sub Form_Click():Dim a%,b%:a=3:b=8:Med a,b:Print a,b:End Sub:运行后，单击窗体，输出结果为()。（1 分）A、3 8B、3 17C、9 8D、9 1725、窗体上有一个命令按钮Command1，编写如下事件过程：Private Sub Command1_Click():Dim x As Integer:Static y As Integer:x=x+1:y=y+2:End Sub,运行后，连续两次单击Command1,x、y 的值分别为()。（1 分）A、1 4B、1 2C、2 4D、2 226、下列叙述
9、中，正确的叙述是()。（1 分）A、局部变量的作用域可以超出所定义的过程B、在窗体的Form_Load事件过程中定义的变量是全局变量C、在调用过程时，所有局部变量被系统初始化为0 或空字符串D、在 Sub 过程 A中定义的局部变量可以与其他事件过程中定义的局部变量同名，但其作用域只限于过程A27、在窗体的“通用”段声明变量时，可以声明()。（1 分）A、全局变量B、局部常量C、静态型变量D、全局自定义类型28、在过程内定义的变量（不在语句块中）为()。（1 分）A、全局变量B、模块变量C、局部变量D、静态变量29、通过关键字()声明的局部变量，在整个程序运行中一直存在。（1 分）A、DimB、
10、PublicC、StaticD、Private30、在过程定义中，Private表示()。（1 分）A、此过程可以被其他过程调用B、此过程不可以被任何其他过程调用C、此过程只可以被本工程中的其他过程调用D、此过程只可以被本窗体模块中的其他过程调用31、下列关于过程的说法中，正确的说法是()。（1 分）A、所有在过程中定义的变量在过程调用后均不保存值B、用 Static定义的过程里的所有变量都是Static型的变量C、用 Private定义的过程里的所有变量都是Private型的变量D、用 Public定义的过程里面的所有变量都是非全局Public型的变量32、下列说法中，不正确的说法是()。（
11、1 分）A、可以在窗体的某个子程序中定义窗体级变量B、声明窗体级变量的位置是在窗体所有过程的最前面C、窗体级变量声明后，窗体内的各个过程都能使用它并能改变其值D、程序运行时，先执行窗体级变量声明语句，再去执行窗体上的过程33、Sub 子过程用的结束语句是()。（1 分）A、End SubB、Exit SubC、End FunctionD、Exit Function34、在过程调用语句中，过程名后面的常数或变量被称为()。（1 分）A、属性B、形参C、实参D、对象35、以()保留字开始的为子过程。（1 分）A、SubB、EventC、FunctionD、Property36、Function函数
12、过程用的退出语句是()。（1 分）A、End SubB、Exit SubC、End FunctionD、Exit Function37、以下关于函数过程的叙述中，正确的是()。（1 分）A、函数过程形参的类型与函数返回值的类型没有关系B、在函数过程中，可以通过函数名返回一个值C、当数组作为函数过程的参数时，只能以传值方式传递，不能以传址方式传递D、如果不指明函数过程参数的类型，则该参数没有数据类型38、在下列叙述中，错误的叙述是()。（1 分）A、一个工程中只能有一个Sub Main 过程B、窗体的 Show方法的作用是将指定的窗体载入内存并显示该窗体C、窗体的 Hide 方法和 Unload
13、 方法的作用完全相同D、若工程文件中有多个窗体，可以根据需要指定一个窗体为启动窗体39、如果一个工程含有多个窗体及标准模块，则以下叙述中，错误的是()。（1 分）A、不能把标准模块设置为启动模块B、任何时刻最多只有一个窗体是活动窗体C、用 Hide 方法将把窗体隐藏起来D、如果工程中含Sub Main 过程，则程序可能首先执行该过程40、以下关于窗体的叙述中，错误的是()。（1 分）A、一个 VB工程中可以有多个窗体，但最多只能有一个窗体作为启动窗体B、窗体之间可以通过在通用段声明Public类型的变量来传递数据C、窗体启动之初可以呈现为最大化、最小化或正常（保持设计时大小）等三种状态D、只有
14、启动窗体才有菜单41、下列说法中，正确的说法是()。（1 分）A、一个窗体文件只能被一个工程使用B、一个窗体文件可以被多个工程使用C、一个窗体文件可以被多个工程使用，但必须和这些工程文件位于同一文件夹D、一个窗体文件的文件名和窗体名必须一致42、多窗体程序是由多个窗体组成，在缺省情况下，VB在应用程序执行时，总是把()指定为启动窗体。（1 分）A、不包含任何控件的窗体B、命名为 Frm1的窗体C、包含控件最多的窗体D、设计时的第一个窗体43、如果 Form1是启动窗体，并且Form1的 Load 事件过程中有Form2.Show，则启动后()。（1 分）A、发生一个运行时错误B、在所有的初始化
15、代码运行后，Form1是活动窗体C、发生一个编译错误D、在所有的初始化代码运行后，Form2是活动窗体44、在窗体的创建状态中，会触发()事件。（1 分）A、Form_CreatB、Form_LoadC、Form_InitializeD、Form_Unload 45、以下叙述中，错误的叙述是()。（1 分）A、打开一个工程时，系统自动装入与该工程有关的窗体、标准模块等文件B、保存 Visual Basic 程序时，应分别保存窗体文件及工程文件C、Visual Basic应用程序只能以解释方式执行D、事件可以由用户引发，也可以由系统引发46、按照文件访问方式分类，不正确的被访问文件是()。（1
16、分）A、顺序文件B、随机文件C、二进制文件D、数据文件47、关于 Visual Basic6.0文件的命名原则，下列说法正确的是()。（1 分）A、可以在文件名中使用*和?B、支持文件名为任意长度C、与 Windows命名方式不一致D、支持传统的命名方式：8 位主文件名，3 位扩展名48、要以读方式打开D盘根目录上的一个顺序文件 Test.txt，应使用的语句是()。（1 分）A、Open Test.txt For Output As#1 B、Open D:Test.txt For Input As#1C、Open D:Test.txt For Output As#1 D、Open Test.
17、txt For Input As#1 49、用()语句可以读入磁盘上的顺序文件“C:Sequ.txt”。（1 分）A、F C:Sequ.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、如果准备向顺序文件中写入数据，正确的语句是()。（1 分）A、Write#1,recB、input#1,recC、Get#1,recD、Put#1,rec 二、填空题（7 道小题，共30 分）1、*输出
18、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()For=1 To 5 Print Tab(25-i)For j=1 To 2*i-1 If i Mod 2=0 Then Print$;Else Print*;Next j Print Next i End Sub（4 分）3、*输出 F
19、ibonacci数列 1，1，2，3，5，8，,的前20 项，按每行5 个数显示。程序代码如下：Private Sub Command1_Click（）Dim（20）,n%,i%Fib（1）=1 Fib（2）=1 For i=3 To 20 Fib（i）=Fib（i-1）+Fib（i-2）Next i For i=1 To 20 Print Fib（i）,If mod 5=0 Then Print Next i End Sub（4 分）4、*对 10 个 100以内的整数，用选择法按递增顺序排序。程序代码如下：Private Sub Command1_Click（）Dim a(10)As In
20、teger,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
21、%,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、*设计一个子过程S,输出一个最大的三位整数使得该数除以正整数x(x100)的余数为 y,若该数不存在则输出“该数不存在！”。*程序代码如下：Private Sub S(ByVal x%,ByVal y%)Dim i%For i=999 To 100 step If i mod x=y Then print 该数是：;i
22、 Exit For End if Next i if 100 then print 该数不存在！End Sub （4 分）7、*设计一前景背景色互换程序,如图 *单击命令按钮“换”，互换窗体中标签的前景色和背景色。1-1.jpg Private Sub Form_Load()Label1=“大象无形大音希声”End Sub Private Sub Command1_Click()Dim t As Variant Dim i As Integer i=MsgBox(确定换吗？,vbOkCancel)If i=1 Then=Label1.Label1.ForeColor=Label1.BackCo
23、lor Label1.=t End If End Sub（6 分）三、编程题（2 道小题，共20 分）1、*编写程序，统计出从100 到 10000 中，所有素数的和是多少？（10 分）必须将本题程序最后的运行结果填入下面的框中。否则，该题以零分计!请将你解答本题所写的源程序粘贴到下面或者上载源程序2、*下载数据文件data0002.txt到自己的机器中，编程统计出该数据文件中，在第51 个-第 10000 个数据之间，末位是 1 的数字的个数。（【下载文件“data0002.txt”】；）下载方法：在链接上右击打开弹出菜单，选择“目标另存为”。（10 分）必须将本题程序最后的运行结果填入下面的框中。否则，该题以零分计!请将你解答本题所写的源程序粘贴到下面或者上载源程序考号：姓名：剩余时间：99:46 保存交卷退出帮助强烈建议您使用IE5.0 以上，屏幕分辨率800X600以上，真彩，小字体浏览