[填空题] 窗体上有一个名称为List1的列表框，一个名称为Picture1的图片框。Form_Load事件过程的作用是，把Datal.txt文件中的物品名称添加到列表框中。运行程序，当双击列表框中的

[填空题] 窗体上有一个名称为List1的列表框，一个名称为Picture1的图片框。Form_Load事件过程的作用是，把Datal.txt文件中的物品名称添加到列表框中。运行程序，当双击列表框中的物品名称时，可以把该物品对应的图片显示在图片框中如图所示。以下是类型定义及程序，请填空。

Private Type PicgName As String*10 物品名称picFile As String*20 物品图片的图片文件名End TypeDim p(4)As Pic，pRec As PicPrivate Sub Form Load()Open"Datal.txt" For Random As#1 (1) =Len(pRec)For i=0 To 4Get#1，i+1，P(i)List1.AddItem p(i).gNaineNext iClose#1End SubPrivate Sub List I-DbICIickOFor i=OTo4If RTrim(List-List(i))=RTrim( (2) )ThenPicture1，Picture=LoadPicture(p(i)． (3) )Exit ForEnd IfNextEnd Sub

参考答案：

问题解析: