窗体上有一个名称为List1的列表框，一个名称为Picture1的图片框。Form. Load事件过程的作用是，把Da

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