期末综合练习一答案
一、单项选择题
1.B 2.C 3.D 4.D 5.B 6.B 7.D 8.B 9.A 10.A 11.B 12.C 13.B 14.B 15．D 16.C 17．B 18.D 19．A 20.D 21．D 22.B 23.C 24.C 25.A 26.B 27.B 28.D 29.C 30.A
二、填空题
1．F1 F9
2．\或空字符串)，Variant(或变体型) 3．.frm .vbp
4.Timer Interval 5．Name Index 6．123456
7．Dim ADOcn As New Connection 8．12 9. 1
10．Form1.print \欢迎您！\ 11．1
12．显示 0
13. 整个应用程序 Public
14．Dim A(-1 To 2,1To 4) As Integer 15．0
16．整个模块或窗体 整个应用程序（或工程中所有的模块和所有的过程）17．引用参数传递（或按址传递） 按值传递 18．TCP/IP UDP
三、阅读程序题 1． 19
2.
3 42 9 3． 29
4.
s =6 s =11 s =44 5． 6
11
7 8 6.
8 10 7．
A1= 10 B1= 20 A2= 20 B2= 10 8.
11 14 17
四、完善程序题 1．
[1] Set ADOcn = New Connection [2] New
[3] ADOrs.Open strSQL [4] Not
[5]Text1.SetFocus 2．
[1] Drive1.Drive =\[2] Drive1.Drive
[3] File1.Path = Dir1.Path [4] Dir1.Path [5] Picture
五、编写程序题 1.参考答案
Private Sub Command1_Click() Dim x As Integer, y As Single x = Val(Text1.Text) Select Case x
Case Is >= 3000 y = x * 1.1
Case Is >= 2000 y = x * 1.15 Case Else y = x * 1.18
12
End Select
Label3.Caption = y End Sub
Private Sub Command2_Click() Unload Me End Sub
2.参考答案
Private Sub Form_Load()
List1.AddItem \程序设计\ List1.AddItem \数据库基础与应用\ List1.AddItem \信息系统测试\ List1.AddItem \计算机应用基础\ End Sub
Private Sub Command1_Click() If Text1.Text <> \ List1.AddItem Text1.Text Text1.Text = \ Else
MsgBox \请在文本框中输入信息！\ End If End Sub
Private Sub Command2_Click()
List1.RemoveItem List1.ListIndex End Sub
Private Sub Command3_Click()
If Command3.Caption = \修改\ 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 If End Sub
Private Sub List1_Click()
If List1.ListIndex <> -1 Then
13
Command2.Enabled = True Command3.Enabled = True End If End Sub
期末综合练习二
一、单项选择题
1．VB工程文件的后缀是（ ）。 A．.frm B．.vbp
C．.cls D．.bas
2．在一个语句行内写多条语句时，语句之间应该用（ ）分隔。 A．逗号 B．分号 C．顿号 D．冒号 3．与传统的设计语言相比，Visual Basic最突出的特点是（ ）。 A．程序开发环境 B．结构化程序设计 C．事件驱动的编程机制 D．程序调试技术 4．在Visual Basic中，变量的默认类型是（ ）。 A．Double B．Integer C．Currency D．Variant
5．当一个工程中含有多个窗体时，其中的启动窗体是（ ）。 A．启动VB时创建的第一个窗体 B．第一个添加的窗体
C．最后一个添加的窗体 D．在“工程属性”对话框中指定的窗体 6．目录列表框的Path属性的作用是（ ）。 A．显示当前驱动器或指定驱动器上的某目录下的文件名 B．显示当前驱动器或指定驱动器上的路径 C．显示根目录下的文件名 D．只显示当前路径下的文件
7．VB集成开发环境中，提供控件的窗口是（ ）。 A．工具栏 B．工具箱 C．属性窗 D．工程管理器
8．要退出Do…Loop循环，可使用的语句是（ ）语句。 A．Exit B．Exit For C．Exit Do D． End Do
9．将调试通过的工程经“文件”菜单的“生成.exe文件”编译成.exe后，将该可执行文件拿到其它机器上不能运行的主要原因是（ ）。
A．缺少.frm窗体文件 B．该可执行文件有病毒 C．运行的机器上无VB系统 D．以上原因都不对 10．有程序代码如下：
Text1.Text = \欢迎参加Visual Basic程序设计课程的学习！\
则Text1，Text ，和\，你好！\分别代表（ ）。
A．对象，值，属性 C．属性，对象，值 C．对象，方法，属性 D．对象，属性，值
14
11．刚建立一个新的标准EXE工程后，不在工具箱中出现的控件是（ ）。 A．单选按纽 B．通用对话框
C．框架 D．图片框 12．下列关于变量的说法不正确的是（ ）。
A．局部变量是指那些在过程中用Dim语句或Static语句声明的变量
B．局部变量的作用域仅限于声明它的过程
C．静态局部变量是在过程中用Static语句声明的 D．局部变量在声明它的过程执行完毕后就被释放了 13．为使文本框显示滚动条，必须首先设置的属性是（ ）。
A．AutoSize B．Alignment C．Multiline D．TabStop 14．要绘制多种形状的图形，需要设置Shape控件的（ ）属性。 A．Style B．Borderstyle C．Shape D．FillStyle
15．在VB6.0集成开发环境中有三种工作模式，下列不属于三种工作模式之一的是（ A．设计模式 B．中断模式 C．执行模式 D．编写代码模式
16．为了使图像框中的图形自动适应图像框的大小，则应（ ）。
A．将其AutoSize属性值设置为True B．将其AutoSize属性值设置为False C．将其Stretch属性值设置为True D．将其Stretch属性值设置为False 17．要在窗体Form1内显示“myfrm”，使用的语句是（ ）。 A．Form.caption=\ B．Form1.caption=\C．Form1.print \ D．Form. print \
18．如果要在窗体代码编辑器的”通用”部分定义私有Sub过程，则正确的语句是（ A．Public Sub B．Private Sub C．Public Function D．Private Function
19．要设置命令按钮的背景图形，必须设置的两个属性是（ ）。
A．Value和Icon B．Style和Icon C．Caption和Picture D． Style和Picture 20．不属于VB数据库引擎的是（ ）。
A．ODBC B．OLE DB
C．Jet引擎 D．BDE
21．在设计动画时，用时钟控件来控制动画速度的属性是（ ）。 A．Enabled B．Interval C．Timer D．Move
22. 在VB应用程序中，进行断点设置的按键是（ ）。
A．F9键 B．Ctrl+F9键 C．F8键 D．Ctrl+F8键 23．如果创建了命令按钮数组控件，那么Click事件的参数是（ ）。
A．Caption B． Index C．Tag D．没有参数
24．ADO对象模型含有七种对象，其中用于建立一个和数据源的连接的对象是（ A．Command B．Connection
）。。15
）
）