VisualBasic程序设计(第2次考试)带答案

《VisualBasic程序设计(第2次考试)带答案》由会员分享，可在线阅读，更多相关《VisualBasic程序设计(第2次考试)带答案（5页珍藏版）》请在装配图网上搜索。

1、【ZZJ网上考试系统 v10.1】 本套软件使用权属于：郑州大学远程教育学院 （学期：132）考试课程:9023.Visual Basic程序设计(第2次考试) 考试时间:120分钟 考场:考试日期:2014-04-07考号： 姓名：剩余时间：50:14保存交卷帮助本卷共有3大题。一、单项选择题（35道小题，共70分）1、Timer控件决定该控件是否对时间的推移做响应的属性是（2分）A、EnabledB、VisibleC、TimeD、Capable2、在用菜单编辑器设计菜单时，必须输入的项目是（2分）A、标题B、名称C、快捷键D、索引3、下列能返回文件字节数的函数为（2分）A、EOF（）B、L

2、OF（）C、Long（）D、SizeOf（）4、如果VB环境中缺少某个窗口，一般应从主菜单( )的下拉菜单中找到相应的激活命令。（2分）A、编辑B、文件C、调试D、视图5、如果列表框（Listl）中只有一个项目被用户选定，则执行Debug.Print Listl.seleced(Listl.ListIndex)语句的结果是（2分）A、在Debug窗口输出被选定项目的索引值B、在Debug窗口输出TrueC、在窗体上输出被选定的项目的索引值D、在窗体上输出True6、打开菜单编辑器的热键为（2分）A、Alt+MB、Ctrl+EC、Alt+ED、Ctrl+M7、实现参数的传值方式的关键字为（2分）

3、A、ByRefB、ByValC、ByDataD、ByNum8、在通用对话框中，打开“颜色对话框”的方法是（2分）A、ShowColorB、ShowOpenC、ShowFontD、ShowSave9、窗体文件的扩展名（）。（2分）A、bas B、vbpC、exeD、frm10、复选框的Value属性为0时，表示（2分）A、复选框未被选中B、复选框内有灰色的勾C、复选框被选中D、复选框操作有错误11、可以用来清除数组内容或对数组重新定义的语句是（2分）A、UnloadB、FreeC、EraseD、Cls12、在随机文件中，记录长度为L，则第n个记录与第1个记录的相对地址为（2分）A、（n1）LB、

4、nLC、（n+1）LD、nL13、能将文件“aa.dat”改名为“bb.txt”的代码为（2分）A、Rename “aa.dat” “bb.txt” B、Name “aa.dat” “bb.txt”C、Rename “aa.dat” As “bb.txt”D、Name “aa.dat” As “bb.txt”14、设菜单项名称为M，若想运行时是该菜单项变为灰色（失效），应使用语句为（2分）A、MEnabledFalseB、MEnabledTrueC、MVisibleFalseD、MVisibleTrue15、根据文件的存取方式和结构，下列正确的分类为（2分）A、文本文件和随机文件B、顺序文件和

5、二进制文件C、顺序文件和随机文件D、ASCII文件和二进制文件16、表达式 25.28 Mod 6.99 的值是 。（2分）A、1B、4C、5D、出错17、使用Windows98保存一新建的工程，其默认的路径是。（2分）A、VBB、VB98C、WindowsD、My Documents18、退出Visual Basic的快捷键是()。（2分）A、Ctrl+Q B、Shift+QC、Alt+QD、Ctrl+Alt+Q19、下列关于局部变量的错误叙述为（2分）A、在过程内不加声明直接使用的变量B、在过程内用Dim声明的变量C、只能在定义的过程内使用D、过程调用结束，内存单元保留20、要使菜单项居中

6、显示，需要在“协调位置”列表框中选择（2分）A、0NoneB、1LeftC、2MiddleD、3Right21、启动Visual Basic后, VB为用户新建立的工程的名字是()。（2分）A、窗体1B、工程1C、窗体D、工程22、如果将布尔常量值True赋给一个整型变量，则整型变量的值为（2分）A、OB、-1C、TrueD、False23、下列能实现菜单项增减的是（2分）A、数组B、控件数组C、函数D、过程24、能是窗体隐藏但仍存在于内存的方法为（2分）A、HideB、ShowC、UnloadD、Open25、要使菜单命令能通过Alt+M键打开，正确的做法为（2分）A、在菜单编辑器的“名称”

7、栏中的“M”字符前加上“&”字符B、在菜单编辑器的“名称”栏中的“M”字符后加上“&”字符C、在菜单编辑器的“标题”栏中的“M”字符前加上“&”字符D、在菜单编辑器的“标题”栏中的“M”字符后加上“&”字符26、某控件在程序运行后，在窗体中没有出现，是因为该控件的属性设置为False（2分）A、窗体B、VisibleC、EnabledD、AutoRedraw27、运行下列程序段后，输出结果为：（） 。Private Sub FormClick(): Dim i As Integer: For i 0 To 15 Step 1: Print i,: i 2 * i + 1: Next i: En

8、d Sub（2分）A、0，2，6，14B、0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15C、0 1 3 5 7 9 11 13 15D、0 2 6 1428、假如列表框（Listl）有六个数据项，那么把数据项“hello”添加到列表框的最后，应使用的语句为（2分）A、Listl.AddItem 5, “hello”B、Listl.AddItem “hello”,Listl.ListCount-1C、Listl.AddItem “hello”,5D、Listl.AddItem “hello”,Listl.ListCount29、使用Windows XP保存一新建的工程

9、，其默认的路径是。（2分）A、VBB、VB98C、WindowsD、My Documents30、工程资源管理器窗口包含的文件类型有( )种。（2分）A、1B、2C、3D、431、使用pinrt方法，将计算结果显示在窗体（ Form1）上，必须将窗体属性设置成True。（2分）A、EnabledB、MaxButtonC、AutoRedrawD、Moveable32、下列不属于Visual Basic循环格式的是：（）。（2分）A、Do ：x 5：Loop Until x 5B、Do ：x 5：Loop While x 5C、Do While x 5 ：x 5 ：LoopD、Do：x 5：Whi

10、le x 533、将显示弹出式菜单的语句放在鼠标事件中，最合适的是（2分）A、DblClickB、MouseOverC、ClickD、MouseDown34、Visual Basic文件是由下列内容组成的（2分）A、扩展名B、字段C、记录D、字符35、引用列表框（Listl）最后一个数据项应使用（2分）A、Listl.List(List.ListCount)B、Listl.List(List.ListCount-1)C、Listl.List(ListCount)D、Listl.List(ListCount-1)二、简答题（2道小题，共10分）1、从代码窗口返回到设计窗体窗口（VB集成开发环境）

11、有几种方法？（5分）1、快捷键操作。在代码窗口，按键盘上的 Shift + F7 可以返回设计窗体在设计窗体，按键盘上的 F7 可以切换到代码窗口 2、菜单命令“视图”-“代码窗口”“视图”-“对象窗口”3、工程资源管理器双击那个窗体，返回对应的窗体设计窗口工程资源管理器上边还有两个小按钮，“查看代码”，“查看对象”4、工具栏命令默认界面上可能没有，可以通过自定义工具栏命令，添加上那两个命令按钮。2、窗体、标签、命令按钮、文本框的默认属性分别是什么？（5分）窗体的默认属性是hWnd标签的默认属性是Caption命令按钮的默认属性是Value文本框的默认属性是Text三、编程题（2道小题，共20

12、分）1、编写程序，计算并输出下面级数前n项(n30)的部分和。 1/(1*2)+1/(2*3)+1/(3*4)+1/(n*(n+1)+ （10分）请将你解答本题所写的源程序粘贴到下面Private Sub Command1Click() Dim s As Double, i As Integer For i 1 To 30 s s + 1 / (i * (i + 1) Next i Print 该数列前30项的和是：, sEnd Sub2、编写程序，用普通迭代法求方程f(x)x+lgx-2.50的近似实根r，迭代初值为1.5，精确到0.0001。提示：必须把方程f(x)0化成其等价形式xg(x

13、)。（允许使用其他迭代法）（10分）请将你解答本题所写的源程序粘贴到下面Private Sub FormLoad() Me.AutoRedraw True Dim x# x 1.5 Do Until Abs(f(x) 0.0001 x x - f(x) / df(x) Loop Print Format(x, 0.0000) Print Format(f(x), 0.0000) End Sub Private Function f(x#) As Double f x + lg(x) - 2.5 End Function Private Function df(x#) As Double df 1 + 1 / (x * Log(10) End Function Private Function lg(x#) As Double lg Log(x) / Log(10) End Function