Question

VB6.0的考试题目 急求！~~~~~~马上就要考试了！~

【VB 6.0 部分】
一、 填空题
1．常量是指在程序运行过程中，固定不变 的量。
2、在VB中若要让某对对象获取焦点，则可通过 SetFocus 方法来实现。
3、在过程内声明静态变量采用的关键字是 Static ，在执行一个过程结束时，过程中所用到的静态变量的值会保留，下次再调用此过程时，变量的初值是上次调用结束时被保留的值。
4、在模块文件中的声明部分用 Private 或 Dim 定义的变量为模块级变量。用 Public 声明为全局变量
5．计时器控件通过定期激活Timer事件，使得Timer控件 每隔一段时间 就执行一次Timer事件中的代码。对应的属性是 Interval 。
6．关闭正在运行的VB窗口将自动触发的事件是 Unload（这个不一定，如果是用“End”语句关闭，则不触发任何事件） 。
二、选择题
1．工程文件的扩展名是（ ）。
A、vbg B、vbp C、vbw D、vbl
2、用于从字符串左边截取字符的函数是（ ）
A、Ltrim( ) B、Trim( ) C、Left( ) D、Instr( )
3、可获得当前系统日期的函数是（ ）
A、Date( ) B、Time( ) C、IsDate( ) D、Year( )
4、退出For循环可使用的语句为（ ）
A、Exit For B、Exit Do C、End For D、End Do
5、窗体的标题栏显示内容由窗体对象的（ ）属性决定。
A、BackColor B、BackStyle C、Text D、Caption

三、判断题(判断下列正确与否，正确的打√，错误的打ⅹ。)
1、设置属性的语句格式为：“对象名.属性名＝属性值”． ( )
2、若用户在键盘上按下一个键，则会产生一个单击事件（Click事件）． ( )
3．在定义了一个函数后，可以象调用任何一个VB内部函数一样使用它，即可以在任何表达式、语句或函数中引用它。（ ）
4、VB程序语言两个基本特点是：可视化和事件驱动编程。 （ ）
5、工程资源管理器用于查看和管理工程类的文件，不能删除文件。 （ ）
四、读程序题，写出程序运行结果
1.
Private Sub Form_Click( )
Static Sum As Integer
For I=1 To 10
Sum= Sum+I
Next I
Print Sum
End Sub
（ ）
五、编程题
1、在窗体上有一个文本框控件，名称为TxtTime；一个计时器控件，名称为Timer1。要求每一秒钟在文本框中显示一次当前的时间。程序如下，请在下划线上填入恰当的内容。
Private Sub Timer1（ ）
TxtTime.text= （ ）
End Sub

2、在窗体上画一个图片框pictures1，并预先放有CommonDialog控件CommonDialog1，再放一按钮控件command1,要求程序执行时单击command1时弹出打开文件对话框，选中图片后，图片在pictures1中显示，请写出command1_click事件的代码：
（ ）

Answer 1

二、选择题

4、退出For循环可使用的语句为（ ）
A、Exit For
===================
BCAAD
===================

三、判断题(判断下列正确与否，正确的打√，错误的打ⅹ。)

2、若用户在键盘上按下一个键，则会产生一个键盘事件(KeyPress事件)。
4、VB程序语言两个基本特点是：结构化和事件驱动编程。
5、工程资源管理器用于查看和管理工程类的文件，能删除文件。
===================
√ × √ × ×
===================

四、读程序题，写出程序运行结果

1、(55)

五、编程题

1、(要设置Timer1的Interval属性为1000)
===============================
Private Sub Timer1_Timer()
TxtTime.Text = Time()
End Sub
===============================

2、
===============================
Private Sub Command1_Click()
CommonDialog1.ShowOpen
Picture1.Picture = LoadPicture(CommonDialog1.FileName)
End Sub
===============================

Answer 2

BCADD
对错错错对
55

(i as interger)
TxtTime.text=i + Me.Timer1.Interval / 1000