窗体上有一个名称为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

育红幼儿园开园，中班新来了一名叫龙龙的小朋友，龙龙上课时不是坐不住，就是随便说话，乱动别的小朋友；午休时，别的小朋友都睡觉了，就他自己怎么也不去睡，非要去玩玩具，这样一来，别的小朋友也不想睡觉，也想去玩玩具。王老师看到这一情况后，就对所有小朋友说：“谁能先躺到床上睡10分钟，谁就可以先玩玩具，谁今天中午不睡觉，下午准就不能玩玩具。”这时，小朋友都迅速地跑到自己的床上安静地躺下了。

这是在幼儿园教学中经常遇见的问题，试结合教育心理学中所学的心理发展理沦对这位幼儿教师的做法进行分析。