l Basic程序设计期末综合练习二.doc

Visual Basic程序设计期末综合练习二2009年6月7日一、单项选择题（将正确答案填在括号内）1下列关于窗体的说法不正确的是（ ）。A窗体的标题由Caption属性确定 B窗体的Name属性与Caption属性相同C窗体的背景图片由其Picture属性设定 D通过设置Icon属性可使窗体获得最小化时的图标2在Visual Basic中，窗体文件的扩展名为（ ）。A.vbp B.frm C.cls D.bas3将一个VB程序保存在磁盘上，至少会产生的文件是（ ）。A.doc、.txt B.txt、.exeC.vbp、.frm D.bat、.frm4如果对象的名称为Mytext，而且对象有一个属性Text，那么在代码中引用该属性的正确格式是（ ）AText.Mytext BMytext.Text CMytext.(Text) DMytext*Text5将调试通过的工程经“文件”菜单的“生成.exe文件”编译成.exe后，将该可执行文件拿到其它机器上不能运行的主要原因是（ ）。A缺少.frm窗体文件 B该可执行文件有病毒 C运行的机器上无VB系统 D以上原因都不对6关于对象的属性不正确的是（ ）。A对象的属性一般有属性名和属性值 B可通过属性窗口设置属性的值C可通过程序代码设置属性的值 D对象的所有属性值均可在设计时设计7后缀为.vbp的文件表示VB 的（）。A窗体文件 B工程文件C类模块文件 D标准类模块文件8在设计阶段，双击窗体上的某个控件时，打开的窗体是（ ）。A工程资源管理器窗口 B工具箱窗口 C代码编辑器窗口 D属性窗口9要在窗体的标题内显示“我的第一个应用程序”,使用的语句是（ ）。AForm1.Print我的第一个应用程序 BForm.Print我的第一个应用程序 CForm.caption=我的第一个应用程序 DForm1.caption=我的第一个应用程序10下列符号不能作为VB中变量名的是（ ）。 AABCD BX00000 C60XYZ Dxyz11将文本框的ScrollBars属性设置为非零值，却没有效果，原因是（ ）。A文本框中没有内容 B文本框的MultiLine属性值为FalseC文本框的MultiLine属性值为TrueD文本框的Locked属性值为True12在设计动画时，用时钟控件来控制动画速度的属性是（ ）。 AEnabled BMove CTimer DInterval 13下列可作为Visual Basic变量名的是（ ）。AA（A+B） BAlpha C4ABC DABp14文本框ScrollBars属性设置了非零值，却没有效果，原因是（ ）。 A文本框中没有内容 B文本框的Locked属性为TrueC文本框的MultiLine属性为True D文本框的MultiLine属性为False15表达式7+10 Mod 3*2+2（ ）。A1 B7 C6 D1316要退出ForNext循环，应使用的语句是（ ）。AExit BStop Loop CExit For DContinue17 赋值语句：a = 123 + MID(“123456”,3,2)执行后，a变量中的值是（ ）。A123 B34C12334 D15718下列关于变量的说法不正确的是（ ）。A局部变量在声明它的过程执行完毕后就被释放了 B局部变量的作用域仅限于声明它的过程C静态局部变量是在过程中用Static语句声明的 D局部变量是指那些在过程中用Dim语句或Static语句声明的变量 19Line(200,200)-Step(500,500)将在窗体（ ）画一直线。A、（200，200）到（500，500） B、（200，200）到（300，300）C、（200，200）到（700，700） D、（300，300）到（500，500）20下列数据对象模型中采用OLE DB访问数据库的是（）。ADAOBRDOCADODRDO和ADO21VB程序中设置断点的按键是（）。AF5键BF6键CF9键DF10键22下列数组声明语句，正确的是（）ADim a3,4 As Integer BDim a(3 4) As Integer CDim a(n,n) As Integer D Dim a(3,4) As Integer二、填空题1. 当进入VB集成开发环境后，发现没有显示“工具箱”窗口，应选择 菜单的 选项，使“工具箱”窗口显示。2. 欲设置定时器的时间间隔为2秒，则属性Interval的值为 。3定时器（Timer）控件可识别的事件是 ，发生该事件的时间间隔由定时器的 属性设置，其单位为 。4列表框中项目的序号是从 开始的。5控件数组的名字由 属性指定，而数组中的每个元素由 属性决定。6表达式3+ 10 Mod 23 + 2的值是 。7列表框中项目的序号是从 开始的。8执行赋值语句a = 123 + 456，变量a的值是 。9VB的代码存储在模块中。在VB中提供了三种类型的模块： 、 和类模块。10在VB中，将Foxpro称为外部数据库，Access称为 ，SQL Server称为 。11在Visual Basic语言中有三种形式的循环结构。其中，若循环的次数可以适先确定，可使用 循环；若要求先判断循环进行的条件，可使用 循环或Do循环。 12VB中将数据库分为本地数据库、 和 三种类型。13将图片框PictureBox的AutoSize属性设置成 时，图片框能自动调整大小，以适应其中的图片。14在VB中，除了可以指定某个窗体作为启动对象之外，还可以指定 作为启动对象。15Winsock1.Listen语句的含义是 。三、阅读程序题（阅读下列程序并写出程序运行结果）1Private Sub Command1_Click() Dim x As IntegerStatic s As Integer x = Val(InputBox(请输入一个正整数=) If x 3 Then c = c + 5 Exit For Else k = k + 5End IfNext jPrint c, kEnd Sub写出程序运行时单击窗体后，Form1上的输出结果。5. Private Sub Form_Click() Dim I As Integer, j As Integer Dim c As Integer c = 0 For I = 1 To 3 For j = 1 To 3 c = c + 4 Next j Next I Print cEnd Sub写出程序运行时,单击窗体后显示的值。6. Private Sub Command1_Click() Dim A(1 To 5) As Integer Dim x As Integer For I = 1 To 5 A(I) = I Next I I = 1 Do While x 6 A(I) = A(I) + x x = x + 2 I = I + 2 Loop Text1.Text = A(1) Text2.Text = A(3)End Sub写出程序运行时单击Command1按纽，文本框Text1和Text2上的输出结果。四、完善程序题图片浏览器程序运行界面如图1所示。要求程序运行后，驱动器列表框Drive1的默认驱动器设置为d盘，选择驱动器的盘符，则在目录列表框中显示该该驱动器下的目录；点击目录列表框中的某一目录，在文件列表框File1中显示该目录下的图片文件（*.jpg）；选择File1中所列的图片文件，则相应的图片显示在图片框Picture1中。 图1程序代码如下，请补充完整。Private Sub Form_Load() Drive1.Drive = 1 File1.Pattern = *.jpgEnd SubPrivate Sub Drive1_change() 2 Text1.Text = Drive1.DriveEnd SubPrivate Sub Dir1_Change() 3 4 End SubPrivate Sub File1_click() Picture1.Picture = LoadPicture(File1.Path + + File1.FileName) FileName = 5 Text1.Text = FileNameEnd Sub五、编写程序题1列表框应用程序。要求从文本框中输入课程名称，然后按“添加”按钮，把课程名称添加到列表框中；当选择列表框中某一项时，按“删除”按钮，从列表框中删除；当选择列表框中某一项时，按“修改”按钮，把列表框中选取的项送往文本框且“修改”按钮变为“修改确认”。在文本框的内容修改好后，按“修改确认”按钮，再把文本框中修改后的信息送到列表框且“修改确认”按钮变为“修改”。程序运行结果如图2所示。 图22请根据下列描述编写购物优惠程序。某商场为了加速促成商品流通，采用购物打折的优惠办法，每位顾客一次购物（1）在300元以上者，按九五折优惠；（2）在500元以上者，按九折优惠；（3）1000元以上者，按八折优惠。在窗体上添加两个文本框和一个命令按钮，要求在Text1中输入购物商品总金额，单击命令按钮，在Text2中输出优惠价。程序运行结果如图3所示。 图3答案：一、单项选择题1.B 2.B 3.C 4.B 5.C 6.D 7.B 8.C 9.D 10.C 11.B 12.D 13.B 14.D 15.D 16.C 17.D 18.A 19C 20C 21.C 22.D二、填空题1视图 工具箱220003Timer Interval 405Name Index677081234569窗体模块 标准模块10本地数据库 远程数据库11For While 12.外部数据库 远程数据库13Ture14Main子过程15使用服务程序处于侦听状态；三、阅读程序题1.s= 5 s= 20 s= 602.6 123. 7 44.8 175 366 1 5四、完善程序题1 d:2 Dir1.Path = Drive1.Drive3 File1.Path = Dir1.Path4 Text1.Text = Dir1.Path5 File1.Path + + File1.FileName五、编写程序题1.参考答案：Private Sub Form_Load() List1.AddItem Visual Basic程序设计 List1.AddItem 数据库基础与应用 List1.AddItem 信息系统测试 List1.AddItem 计算机应用基础 End SubPrivate Sub Command1_Click() If Text1.Text Then List1.AddItem Text1.Text Text1.Text = Else MsgBox 请在文本框中输入信息！ End IfEnd SubPrivate Sub Command2_Click() List1.RemoveItem List1.ListIndexEnd SubPrivate Sub Command3_Click() If Command3.Caption = 修改 Then Text1.Text = List1.Text Text1.SetFocus Command1.Enabled = False Command2.Enabled = False Command3.Caption = 修改确认 Else List1.List(List1.ListIndex) = Text1.Text Command1.Enabled = True Command2.Enabled = True Text1.Text = Command3.Caption = 修改 End IfEnd SubPrivate Sub List1_Click() If List1.ListIndex -1 Then Command2.Enabled = True Comma