填空题

窗体上有一个名称为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
<上一题 目录 下一题>
热门 试题

填空题
窗体上有一个名称为CD1的通用对话框，通过菜单编辑器建立如下图左图所示的菜单。程序运行时，如果单击“文件”菜单项，则执行打开文件的操作，当选定了文件(例如G: VB 2010-9 in.txt)并打开后，该文件的文件名会被添加到菜单中，如下图右图所示，各菜单项的名称和标题等定义如下表所示。 各菜单项的名称和标题 标题 名称 内缩 索引 可见 文件 File 无 无 True 打开 mnuOpen … 无 True 关闭 mnuClose … 无 True mnu … 无 True (空) FName … 0 False 以下是单击“文件”菜单项的事件过程，请填空。 Dim mnuCounter As Integer Pivate Sub mnuOpen_Click() CDl ShowOpen If CD1.FileName＜＞ Then Open______For Input As#1 mnuCounter=mnuCounter+1 Load FName(mnuCounter) FName(mnuCounter).Caption=CD1.FileName FName(mnuCounter).______=True Close#1 End If End Sub
填空题
窗体上有一个名称为Text1的文本框和一个名称为Command1、标题为“计算”的命令按钮，如图所示。函数fun及命令按钮的单击事件过程如下，请填空。 Private Sub Command1_Click() Dim x As Integer x=Val(InputBox( 输入数据 )) Text1=Str(fun(x)+fun(x)+fun(x)) End Sub Private Function fun(ByRef n As Integer) If n Mod 3=0 Then n=n+n Else n=n*n End If ______n End Function 当单击命令按钮，在输入对话框中输入2时，文本框中显示的是______。
相关试题