2007年9月全国计算机等级考试二级VB笔试试卷(3)

（22）窗体上有文本框Text1和一个菜单，菜单标题、名称如表，结构见图。要求程序执行时单击“保存”菜单项，则把其标题显示在Text1文本框中。下面可实现此功能的事件过程是：

标题 名称
 
文件 file
 
新建 new

保存 save

A）Private Sub save_Click()                B）Private Sub save_Click()

Text1.Text=file.save.Caption           Text1.Text=save.Caption

End Sub                                End Sub

C）Private Sub file_Click()                 D）Private Sub file_Click()

Text1.Text=file.save.Caption           Text1.Text=save.Caption

End Sub                                 End Sub

（23）某人在窗体上画了一个名称为Timer1的计时器和一个名称为Lab

的属性设置为Enabled=True,  Interval=0,并编程如下。希望在每2秒在标签上显示一次系统当前时间。

Private Sub Timer1_Timer()

Label1.Caption=Time$

End Sub

在程序执行时发现未能实现上述目的，那么，他应做的修改是

A）通过属性窗口把计时器的Interval属性设置为2000

B）通过属性窗口把计时器的Enabled属生设置为False

C)把事件过程中的Label1.Caption=Time$语句改为Timer1.Interval=Tims$

D)把事件过程中的Label1.Caption=Time$语句改为Label1.Caption=Timer1.Time

（24）形状控件的Shape属性有6种取值，分别代表6种几何图形。下列不属于这6种几何图形的是

（25）下面关于文件的叙述中错误的是

A）随机文件中各条记录的长度是相同的]

B）打开随机文件时采用的文件存取方式应该是Random

C）向随机文件中写数据应使用语句Print#文件号

D）打开随机文件与打开顺序文件一样，都使用Open语句

（26）设窗体上有一个图片框Picture1，要在程序运行期间装入当前文件夹下的图形文件File1.jpg，能实现此功能的语句是

A）Picture1.Picture=”Flie1.jpg

 B）Picture1.Picture=LoadPicture(“File1.jpg”)

C) LoadPicture(“File1.jpg”)             

D）Call LoadPicture(“File1.jpg”)

（27）下面程序执行时，在窗体上显示的是

Private Sub Command1_Click()

Dim a(10)

For k = 1 To 10

a(k) = 11 – k

Next k

Print a(a(3)\a(7) Mod a(5))

End Sub

A）3        B）5          C）7

（28）为达到把a、b中的值交换后输出的目的，某人编程如下：

Private Sub Command1_Click()

a% = 10:b% = 20

Call swap(a,b)

Print a,b

End Sub

Private Sub swap(ByVal a As Integer,ByVal b As Integer)

c= a:a=b:b=c

End Sub

在运行时发现输出结果错了，需要修改。下面列出的错误原因和修改方案中正确的是

A）调用swap过程的语句错误，应改为Call swap a,b

B）输出语句错误，应改为：Print ”a”,”b”

C）过程的形式参数有错，应改为：swap(ByRef a As Integer,ByRef b As Integer)

D）swap中3条赋值语句的顺序是错误的，应改为a=b:b=c:c=a