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

24 查阅

[填空题] 窗体上有一个名称为List1的列表框,一个名称为Picture 1的图片框。Form_ Load事件过程的作用是,把Datal.txt文件中的物品名称添加到列表框中。运行程序,当双击列表框中的物品名称时,可以把该物品对应的图片显示在图片框中如图所示。以下是类型定义及程序,请填空。 Private Type Pic  gName As String*10‘物品名称  picFile As String*20 ‘物品图片的图片文件名  End Type  Dim p(4)As Pic,pRec As Pic  Private Sub Form Load()  Open”Datal.txt" For Random As#1 _【11】_=Len(pRec)  For i=0 To 4  Get#1,i+l,P(i)  LIStI.AddItem p(i).gNaine  Next i  Close#1  End Sub    Private Sub List I-DbICIickO  For i=OTo4  If RTrim(List一List(i))=RTrim(_【12】_)Then  Picture l.,Picture=LoadPicture(p(i)._【13】_)  Exit For  End If  Next  End Sub

参考答案:

picFile

计算机考试