[填空题] 窗体上有一个名称为List1的列表框，一个名称为Picture1的图片框。Form

[填空题] 窗体上有一个名称为List1的列表框，一个名称为Picture1的图片框。Form

[填空题] 窗体上有一个名称为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 As#1______Len(pRec)

For i=0 To 4

Get#1,i+1,p(i)

List1.AddItem p(i) gName

Next i

Close#1

End Sub

Private Sub List1_DblClick()

For i=0 To 4

If RTrim(List.List(i))=RTrim(______)Then

Picture1.Picture=LoadPicture(p(i)．______)

Exit For

End If

Next

End Sub

正确答案：

Len p(i).gName picFile

参考解析：

Open语句格式Open filename For Random as[#]filenumber Len=Reclength。(1)参数filename和filenumber分别表示文件名或文件号。(2)关键字Random表示打开的是随机文件。(3)Len子句用于设置记录长度，长度由参数Reclength指定，Reclength的值必须大于0，而且必须与定义的记录结构的长度一致。本题中Len(pRec)是求pic结构类型的长度，也就是设置欲读取的结构类型的长度，所以第一空填Len。RTtim(List1.List(i))=RTrim()，此判定表达式的作用是判定列表框中的列表项的值和物品名是否相同，函数trim是去字符串中的空格，是干扰项，对本题没什么影响，所以第二空填p(i)．gName。语句Picturel.Picture=LoadPicture(p(i).picFile)的作用是装载指定的图片，loadPicture函数的参数是所要载入图片的图片名，所以第三空填picFile。