《Visual Basic编程与应用》综合练习.doc

《《Visual Basic编程与应用》综合练习.doc》由会员上传分享，免费在线阅读，更多相关内容在学术论文-天天文库。

1、《VisualBasic编程与应用》综合练习 一、填空题1.VB6.0是运行于①_________操作系统环境下的一个快速可视化程序开发工具，用它进行程序设计，有两个基本的特点，即②_________和③_________。2.在VB6.0中，变量名最长可达④_________个字符。3.VB6.0的基本表达式包括算术表达式、⑤_________表达式和⑥_________表达式。4.静态数组是指⑦_________的数组。5.在VB中，若要求在模块中强制显式地指定变量的数据类型，应当在模块首部的申明

2、部分使用⑧_________语句。6.在VB中，若要使一个文本框（Text）中的内容在超过文本框的宽度时能够自动换行显示，应当将这个文本框的⑨_________属性的值设置为True。7.在VB中，若要将字符串“12345”转换成数字值应使用的类型转换函数是⑩_________。二、选择题1.设使用隐式类型说明，以下关于变量的类型说明符的使用中，惟一正确的是______。A.Dima%:a%=90000B.Dima:a=2000%C.Dima&:a&=90000D.Dima%:a%=”true”2.在

3、VB中，若要改变一个标签（Label）上显示的内容，应当在属性窗口中改变这个标签的______属性的值。A.TextB.ListC.NameD.Caption3.在VB中，运算“123”+12的结果是______。A.“12312”B.135C.“12132”D.出错4.在VB中，工程文件的扩展名是______。A..vgbB..vbpC..vbwD..vbl5.以下选项中，不属于文本框（Text）的属性是______。A.EnabledB.VisibleC.NameD.Caption6.下列控件中可

4、自动设置滚动条是______。A.复选框B.框架C.文本框D.标签框7.以下______是执行程序段Print"x=";25.6;"y=";-90.2PrintSpc(3);"z=";Tab(10);"abcd"的正确的结果。A.B.C.D.8.以下关于VB菜单编辑器中“索引”项的叙述中，错误的是______。A.“索引”确定了菜单项显示的顺序。B.“索引”是控件数组的下标。C.使用“索引”时，可有一组菜单项具有相同的“名字”。D.使用“索引”后，在单击菜单项的事件过程中可以通过“索引”引用菜单项。9

5、.使用下列______语句可以对文件进行改名操作。A.ShellB.FileCopyC.NameD.RmDir10.以下关于VB列表框的叙述中，除______外均是正确的。A.可通过属性“Item”，返回列表框中的项目。B.可通过属性“Text”，返回列表框中的已选项目。C.可通过属性“ListIndex”返回列表框中的已选项目。D.可通过属性“ListCount”返回列表框中项目的数目。三、判断题1.通过改变属性窗口中的Name属性，可以改变窗体上显示的标题。（）2.在窗体模块的声明部分中用Priv

6、ate声明的变量的有效范围是其所在的工程。（）3.在多文档应用中，每次只能有一个活动的子窗体可以进行输入/编辑。（）4.在VB中，运算“ABCDE123A”Like“[a*a]”的结果是True。（）5.多文档界面是指在一个父窗口下面可以同时打开多个子窗口。子窗口归属于父窗口，当父窗口关闭时，所有子窗口全部关闭。（）6.计时器（Timer）控件的Interval属性的单位是毫秒，即若将此属性值设为10，则每0.01秒产生一次Timer事件。　（）7.用VB6.0仅能开发具有窗口菜单的应用程序，开发的应

7、用中不能支持弹出式菜单。（）8.Image控件使用的资源比Picture控件使用的多。（）9.函数过程（FunctionProcedure）用来完成特定的功能，但不返回相应的结果。（）10.在VB6.0中，如果要使窗体上的多个控件具有相同的尺寸，在选择了这些控件之后，应执行VB“格式”菜单中的命令。（）四、读程序题1.设在一个窗体模块中已设计有如下过程，请写出运行的结果。OptionExplicitDimThisArray()AsIntegerPrivateSubCommand1_Click()Dim

8、ttAsIntegerDimssAsIntegerDimiiAsIntegerForii=1ToLen(Text1.Text)IfMid(Text1.Text,ii,1)<"0"OrMid(Text1.Text,ii,1)>"9"ThenMsgBox("错误！")EndIfNextiitt=Val(Text1)CallMyPro(tt,ss)Text2.Text=ttText3.Text=ssEndSubPrivateSubForm_Load()ReDi