窗体上有一个名称为List1的列表框,一个名称为Picture1的图片框。Form. Load事件过程的作用是,把Data1.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