Visual 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(“”,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 < 5 Then    s = s * x  Else    s = s + x  End If    Text1.Text = "s=" & Str(s)End Sub程序运行时连续3次单击Command按纽，且设输入的数据为5、4、3时，分别写出文本框Text1中的值。  2Private Sub Form_Click()    Static Sum As Integer    For i = 1 To 3      Sum = Sum + i    Next i    Print SumEnd Sub写出程序运行时点击窗体两次后，变量Sum的值。 3Sub test(i As Integer)  i = i + 3End Sub Private Sub Form_Click()  Dim x As Integer  x = 8  Print "x=" xCall test(x) Print "x=" xEnd Sub    写出程序运行时,单击窗体后显示的值。       4Private Sub Form_Click()Dim c As Integer, j As Integer, k As Integerk = 2c = 3For j = 1 To 5  If j > 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 = "*.jpg"End 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所示。             图2    2请根据下列描述编写购物优惠程序。某商场为了加速促成商品流通，采用购物打折的优惠办法，每位顾客一次购物（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  Index677089窗体模块    标准模块10本地数据库  远程数据库11For   While        12.外部数据库  远程数据库13Ture14Main子过程15使用服务程序处于侦听状态； 三、阅读程序题1.s= 5   s= 20   s= 60 2.6    123. 7        4 4.8       17 5       36  6   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      Command3.Enabled = True   End IfEnd Sub 2.参考答案：Private Sub Command1_Click()    Dim x As Single, y As Single    x = Val(Text1.Text)    If x < 300 Then      y = x    Else      If x < 500 Then       y = 0.95 * x      Else       If x < 1000 Then         y = 0.9 * x       Else         y = 0.8 * x       End If      End If    End If    Text2.Text = yEnd Sub