窗体上有一个名称为Picturel的图片框控件，一个名称为Label1的标签控件，如下图所示。 现有如下程序

窗体上已有1个名称为Picturel的图片框，要求实现下面2个功能之一：

①在窗体上移动鼠标时，立即将Picturel显示在鼠标位置

②在窗体上单击鼠标时，立即将Picturel显示在鼠标位置

下面不能实现上述任何功能的事件过程是

功能的语句是。 A．Picturel.Picture=“File1.jpg” B．Picture1.Picture=LoadPicture(“Filel.jpg”) C．LoadPicture(“Filel.jpg”) D．Call LoadPicture(“Filel.jpg”)

在窗体上有一个框架框(名称为Frame1)，一个计时器(名称为Timerl)，计时器的时间间隔属性Interval=100，在图片框中有一个复选按钮(名称为Check1)和一个命令按钮(名称为Command1)，用户界面如图1所示。

其中，计时器有Timer1_Timer事件过程如下：

Private Sub Timer1_Timer()

If Frame1.Left ＞= Form1.Width Then Frame1.Left = 0

Frame1.Move Frame1.Left + 50

End Sub

运行后，窗体中的现象是()。

A.仅框架框移动

B.框架框携带复选按钮和命令按钮同时移动

C.框架框携带复选按钮同时移动

D.框架框携带命令按钮同时移动

ta1．txt文件中的物品名称添加到列表框中。运行程序，当双击列表框中的物品名称时，可以把该物品对应的图片显示在图片框中，如图所示，以下是类型定义及程序，请填空。

Private Type Pic

gNane As String*10 ’物品名称

picFile As String*20 ’物品图片的图片文件名

End Type

Dime p(4)As Pic，pRec As Pic

Private Sub Form_Load()

Open”Data1．txt”For Random As1______=Len(pRec)

For i=0 To 4

Get1，i+1，p(i)

List 1，Addltem p(i)gName

Next i

Close1

End Sub

Private Sub List 1_DblClick()

For i=0 To 4

If RTrim(List1．List(i))=RTrim(________)Then

Picture1．Picture=LoadPicture(p(i)．_______)

Exit For

End If

Next

End Sub

窗体上有一个名称为Commandl的命令按钮，并有

运行程序，单击命令按钮后，窗体上显示的是

A.0

B.2

C.8

D.20

在窗体上有一个文本框控件，名称为TextTime，一个计时器控件，名称为Timer1。

要求每一秒在文本框中显示一次当前的时间。 Private Sub Timer1 TextTime.Text=Time End Sub 在下划线上应填入的内容是()。

A．Enabled

B．Visible

C．Timer()

D．Interval

窗体上有一个名称为Commandl的命令按钮，并有如下程序代码：

运行程序，单击命令按钮，窗体上显示的是

A.133

B.134

C.233

D.234

A.A.VB

B.B.VBProgramming

C.C.文本框被清空

D.D.c++Programming

在窗体上有若干控件，其中有一个名称为Text1文本框。影响Text1的Tab顺序的属性是 ______。

A．TabStop

B．Enabled

C．Visible

D．TabIndex