郑州大学2013vb机试题库4

【HNCE网上考试系统 v9.6】 本套软件使用权属于：郑州大学 考试课程: 考试时间:100分钟 考场:第一考场 考试日期:2013.05.24

考号： 姓名：

剩余时间： 99:46

保存交卷退出帮助

本卷共有3道大题:

一、单项选择题（50道小题，共50分） 1、下列叙述中，错误的是( )。（1分） A、一条语句可以分为多行书写，但要在上行末加上VBCrLf C、可以用Rem或'注释单行语句 B、在同一行上书写多条语句，应在两两语句中加上:号 D、VB程序代码不区分字母的大小写 2、( )是对象的一个基本要素，它描述了对象在程序中的外观特点。（1分） A、事件 B、属性 C、方法 D、事件程序 3、下列关于VB编码规则的叙述中，错误的是( )。（1分） B、多条语句可以书写在同一行上，每条语句之间用逗号隔开 C、可以用Rem<注释内容>给语句或程序段加上注释，以提高可读性 A、一条语句可以分为多行书写 D、不区分程序代码中变量名的字母的大小写 4、在Visual Basic中，系统为每个对象预先定义好了一系列的事件。下列事件中，不属于VB系统提供的事件是( )。（1分） A、Click() B、Change() C、MyFirst() D、DblClick() 5、被对象所识别的动作与对象可执行的动作分别称为对象的( )。（1分） A、方法、事件 B、事件、方法 C、事件、属性 D、过程、属性 6、下列叙述中，正确的是( )。（1分） A、事件可以由用户触发，也可以由系统触发 B、Visual Basic应用程序只能以解释方式执行 C、保存Visual Basic程序时，只需保存窗体文件即可 D、所有控件都有DblClick事件 7、以下关于VB代码书写规则的叙述中，错误的是( )。（1分） A、一条语句可以分为多行书写 B、多条语句可以书写在同一行上 C、可以用Rem 注释单行语句 D、区分应用程序代码字母的大小写 8、如果要向工具箱中加入控件的部件，可以利用“工程”菜单中的( )命令 （1分） A、引用 B、部件 C、工程属性 D、加窗体 9、双击窗体中的对象后，VB将显示的窗口是( )。（1分） A、工程窗口 B、工具箱 C、属性窗口 D、代码窗口 10、工程资源管理器窗口上有三个按钮，( )不在其中。（1分） A、“查看代码”按钮 B、“查看对象”按钮 C、“切换文件夹”按钮 D、“启动”按钮 11、刚建立一个新的标准EXE工程后，没有出现在工具箱中的控件是( )。（1分） A、单选按纽 B、图片框 C、通用对话框 D、文本框 12、当程序中断修改后再运行时，VB进入( )模式。（1分） A、设计 B、运行 C、中断 D、编程 13、使用Visual Basic编程，我们把工具箱内的工具称为( )。（1分） A、事件 B、工具 C、控件 D、窗体 14、下列不能打开代码窗口的操作是( )。（1分） A、双击窗体上的某个控件 B、双击窗体 C、单击视图菜单中的“代码窗口” D、单击窗体或控件 15、在VB程序中，逐语句调试的操作键是( )。（1分） A、F8键 B、F9键 C、F2键 D、F1键 16、窗体文件的扩展名是( )。（1分） A、bas B、exe C、vbp D、frm 17、后缀为.vbp的文件表示VB的( )。（1分） A、窗体文件 B、类模块文件 C、工程文件 D、标准类模块文件 18、不属于一个工程文件里的文件是( )。（1分） A、.txt B、.frm C、.bas D、.cls 19、启动VB应用程序后，就意味着可以建立一个新( )。（1分） A、文件 B、窗体 C、程序 D、工程 20、Visual Basic的自动语法检测功能可以帮助设计者排除( )。（1分） A、编辑时错误 B、编译时错误 C、运行时错误 D、逻辑错误 21、Visual Basic可以开发基于( )环境的应用程序。（1分） A、Windows B、Dos C、Linux D、Unix 22、阅读如下程序， a = 1: b = 2: plus S, a, b: Print S:不能使其输出结果为3的plus过程为( )。（1分） B、Sub plus(ByVal sum , a , b ): sum = a + b: End Sub C、Sub plus(sum , ByVal a, ByVal b ): sum = a + b: End Sub A、Sub plus(sum, a , b ): sum = a + b: End Sub D、Sub plus(sum , ByRef a , ByRef b ): sum = a + b: End Sub 23、下列叙述中，错误的是( )。（1分） A、函数过程的函数名有返回值 B、窗体可以作为过程的参数 C、数组作为过程的参数时，使用“传地址”方式 D、只有函数过程能够将过程中处理的数据传回到主调程序中 24、窗体上有命令按钮Command1和Command2，阅读下列程序： Private Sub Command1_Click() : a = a + 1 : Print a，: End Sub: Private Sub Command2_Click() : a = a + 1 : Print a: End Sub:运行时，先后单击Command1和Command2按钮，输出的结果为( )。（1分） A、1 1 B、2 2 C、1 2 D、2 1 25、窗体上有一个命令按钮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 4 B、1 2 C、2 4 D、2 2 26、下列说法中，不正确的说法是( )。（1分） A、一般用Dim声明窗体级变量 B、声明窗体级变量的位置可以任意 C、不能在“通用声明”段中为变量赋值 D、不能在窗体的某个子程序中定义窗体级变量 27、窗体上有命令按钮Command1和Command2，请阅读下列程序： Dim a As Integer: Private Sub Command1_Click() : a = a + 3 : Print a: End Sub: Private Sub Command2_Click() : a = a + 2 : Print a: End Sub，运行时，分别单击Command1和Command2按钮，输出的结果为( )。（1分） A、3 5 B、3 2 C、2 5 D、2 3 28、在窗体的“通用”段声明变量时，可以声明( )。（1分） A、全局变量 B、局部常量 C、静态型变量 D、全局自定义类型 29、在窗体的“通用”段声明变量时，不能使用( )关键字。（1分） A、Dim B、Static C、Public D、Private 30、以下四个用于变量声明的关键字中，不能在模块通用声明段中使用的是( )。（1分） A、Static B、Public C、Private D、Dim 31、能够被模块内的所有过程引用的变量是( )。（1分） A、过程级变量 B、模块级变量 C、静态变量 D、动态变量 32、关键字( )声明的局部变量在整个程序运行中一直存在。（1分） A、Dim B、Public C、Static D、Private 33、以( )保留字开始的为事件过程。（1分） A、Sub B、Event C、Function D、Property 34、对于VB语言的过程，下列叙述中正确的是( )。（1分） A、过程的定义不能嵌套，但过程调用可以嵌套 B、过程的定义可以嵌套，但过程调用不能嵌套 C、过程的定义和调用不能嵌套 D、过程的定义和调用可以嵌套

35、下列说法中，正确的说法是( )。（1分） A、在定义子过程时，应至少有一个形式参量 B、若形参名字的前面没有ByVal，则默认传值 C、只要使用了子过程，就一定会返回多个结果值 D、在函数过程体中，函数过程名至少被赋值一次 36、Function函数过程用的结束语句是( )。（1分） A、End Sub B、Exit Sub C、End Function D、Exit Function 37、有过程定义如下：Private Sub fun(ByVal x As Integer, ByVal y As Integer, ByVal z As Integer), 则下列调用语句不正确的是( )。（1分） A、Call Fun(a,b,c) B、Call Fun(3,4,c) C、Fun a,,5 D、Fun 3,4,c 38、假定一个工程有三个窗体，下列说法中，正确的说法是( )。（1分） A、该工程包含三个窗体文件 B、该工程包含一个窗体文件 C、该工程的窗体文件必须和工程文件在同一文件夹中 D、该工程的窗体文件不能小于3k 39、在VB中，建立新窗体的方法是( )。（1分） A、利用标准工具箱中的窗体控件 B、利用\工程\下拉菜单中的命令 C、由系统自动生成 D、利用VB命令生成 40、在一个工程中如果想添加一个标准模块，不能实现的操作是( )。（1分） A、使用“工程”菜单中的相应命令 B、使用工具栏上的相应命令按钮 C、在工程资源管理窗口按右键调出相应命令 D、使用“编辑”菜单中的相应命令 41、如果一个工程含有多个窗体及标准模块，则以下叙述中，错误的是( )。（1分） A、不能设置对象 B、任何时刻最多只有一个窗体是活动窗体 C、用Hide方法可将窗体隐藏 D、如果工程中含Sub Main过程，则程序可能首先执行该过程 42、如果Form1是启动窗体，并且Form1的Load事件过程中有Form2.Show，则启动后( )。（1分） A、发生一个运行时错误 B、在所有的初始化代码运行后，Form1是活动窗体 C、发生一个编译错误 D、在所有的初始化代码运行后，Form2是活动窗体 43、把一个窗体装入内存的语句是( )。（1分） A、Show B、Load C、Input D、Activate 44、一旦装载窗体，系统自动触发的第一个事件是( )。（1分） A、Click B、Dblclick C、Initialize D、Load 45、窗体的显示和隐藏方法是( )。（1分） A、print，hide B、move，hide C、show，hide D、show，Print 46、以下关于文件的叙述中，错误的是( )。（1分） A、随机文件每条记录的长度可以不同 B、任何文件都可以用二进制模式访问 C、按数据的编码方式，文件可以分ASCII文件和二进制文件 D、按文件的访问模式可将文件分为顺序文件、随机文件和二进制文件 47、在Visual Basic中，按文件的编码方式的不同，可将文件分为( )。（1分） A、数据文件和程序文件 B、文本文件和数据文件 C、顺序文件和随机文件 D、ACSII文件和二进制文件 48、如果准备从顺序文件“text.dat”中读数据到计算机，正确的VB语句是( )。（1分） A、open \ B、open \ C、open \ D、open \ 49、要从顺序文件中读出一个数据项，可以用( )函数。（1分） A、Input B、Write C、InputBox D、InputString 50、设有语句Open \，以下叙述错误的是( )。（1分） B、该语句可以在当前目录下创建一个名为Datafile.txt的文件 D、如果当前目录下文件Datafile.txt不存在，系统显C、执行该语句后可以向文件Datafile.txt中写入信息 示出错信息 A、该语句以文件号1打开文件 二、填空题（7道小题，共30分） 1、* 能被3整除的3位数共有多少个？ * 程序代码如下： Sub Command1_Click() Dim i As Integer, n As Integer n =0 m=100 Do While If m m = m+1 Loop Print n End Sub （4分） <= 999 3=0 Then n = n + 1 2、* 使用双循环实现三角形输出 ***** **** *** ** * 程序代码如下： Private Sub Command1_Click() For i = 1 To Print Tab(25 + i ); For j = 1 To 6 - i Print \Next j Print Next i End Sub （4分）

3、* 输出Fibonacci数列1，1，2，3，5，8，?的前20项，按每行5个数显示。 程序代码如下：

Private Sub Command1_Click（） Dim

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 Next i End Sub （4分）

（20）,n%,i%

mod 5=0 Then Print

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 For = 1 To 9 = 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); = Next j Print Next i Print Sum End Sub （4分） + R(i, j) 6、* 下面程序计算1!+3!+5!+...+9!的值， 请将其补充完整。 * 程序代码如下： Private Sub (ByVal n!,jc!)

Dim i As Integer jc = 1 For i = 1 To n jc = jc * i Next i End Sub

Private Sub Form_Click() Dim sum!, x%,y! sum = 0

For x = 1 To 9 Step 2 Call aa (x,y) sum = sum + Next x Print sum End Sub （4分）

7、* 设计一文本框属性设置程序,如图{<4-1.jpg>}

* 在“系统登录”窗体中，输入正确的用户名和以“@”显示的密码。若两者输入都正确则显示图片框，并且在图片框中显示“you are welcome！！！”；否则，若密码错误，则清空text2并且光标回到text2中；其他情况，则清空text1和text2。 '4-1.jpg

Private Sub Form_Load() Text1 = \Text2 = \Text2.Picture1.

= \ = False

Picture1.AutoRedraw = True End Sub

Private Sub Command1_Click()

If Text1 = \Picture1.Visible = True

Picture1.Print \ElseIf Text1 = \MsgBox \密码错，请重新输入！\Text2 = \

Text2.Else

MsgBox \请重新输入！\Text1 = \Text2 = \End If End Sub （6分）

三、编程题（2道小题，共20分）

1、* 编写程序，求10000至20000之间的从小到大的第100个素数。

（10分）

必须将本题程序最后的运行结果填入下面的框中。否则，该题以零分计!

10939

请将你解答本题所写的源程序粘贴到下面或者上载源程序 Private Sub Command1_Click() Dim i&, j&, n&, a&(10000) i = 0

For j = 10000 To 20000 flag = 1

For n = 2 To Sqr(j)

If j Mod n = 0 Then flag = 0: Exit For Next n

If flag = 1 Then i = i + 1 a(i) = j End If Next j Print a(100)

End Sub

2、* 下载数据文件data0002.txt到自己的机器中，编程求出该数据文件里的前10000个数中最大的奇数是多少。

（【下载文件“data0002.txt”】；）下载方法：在链接上右击打开弹出菜单，选择“目标另存为”。 （10分）

必须将本题程序最后的运行结果填入下面的框中。否则，该题以零分计!

29993

请将你解答本题所写的源程序粘贴到下面或者上载源程序 Private Sub Command1_Click() Dim i&, j&, n&, a&(10000)

Open \课件\\计算机\\nn\\2.txt\ Do While Not EOF(1) For i = 1 To 10000 Input #1, a(i) Print a(i); Next i Loop Close #1 Print

For i = 1 To 10000 - 1 For j = 1 To 10000 - i If a(j) < a(j + 1) Then t = a(j) a(j) = a(j + 1) a(j + 1) = t End If Next j Next i

For i = 1 To 10000 Print a(i); Next i Print

For i = 1 To 10000

If a(i) Mod 2 = 1 Then Print a(i): Exit For Next i

End Sub

考号： 姓名：

剩余时间： 99:46

保存交卷退出帮助

强烈建议您使用IE5.0以上，屏幕分辨率800X600以上，真彩，小字体浏览

本文来源：https://www.bwwdw.com/article/wtix.html