[填空題] 窗體上有一個(gè)名稱(chēng)為L(zhǎng)ist1的列表框，一個(gè)名稱(chēng)為Picture1的圖片框。Form_Load事件過(guò)程的作用是把Data1.txt文件中的物品名稱(chēng)添加到列表框中。運(yùn)行程序，當(dāng)雙擊列表框中的物品名稱(chēng)時(shí)，可以把該物品對(duì)應(yīng)的圖片顯示在圖片框中，如圖所示，以下是類(lèi)型定義及程序，請(qǐng)?zhí)羁铡?/p>

Private Type Pic

gNane As String*10’物品名稱(chēng)

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語(yǔ)句格式Open filename For Random as[#]filenumber Len=Reclength。(1)參數(shù)filename和filenumber分別表示文件名或文件號(hào)。(2)關(guān)鍵字Random表示打開(kāi)的是隨機(jī)文件。(3)Len子句用于設(shè)置記錄長(zhǎng)度，長(zhǎng)度由參數(shù)Reclength指定，Reclength的值必須大于0，而且必須與定義的記錄結(jié)構(gòu)的長(zhǎng)度一致。本題中Len(pRec)是求pic結(jié)構(gòu)類(lèi)型的長(zhǎng)度，也就是設(shè)置欲讀取的結(jié)構(gòu)類(lèi)型的長(zhǎng)度，所以第一空填Len。RTtim(List1.List(i))=RTrim()，此判定表達(dá)式的作用是判定列表框中的列表項(xiàng)的值和物品名是否相同，函數(shù)trim是去字符串中的空格，是干擾項(xiàng)，對(duì)本題沒(méi)什么影響，所以第二空填p(i)．gName。語(yǔ)句Picturel.Picture=LoadPicture(p(i).picFile)的作用是裝載指定的圖片，loadPicture函數(shù)的參數(shù)是所要載入圖片的圖片名，所以第三空填picFile。