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 As1______=Len(pRec)
For i=0 To 4
Get1,i+1,p(i)
List 1,Addltem p(i)gName
Next i
Close1
End Sub
Private Sub List 1_DblClick()
For i=0 To 4
If RTrim(List1.List(i))=RTrim(________)Then
Picture1.Picture=LoadPicture(p(i)._______)
Exit For
End If
Next
End Sub
第2题
第3题
第4题
第5题
在窗体上画一个名称为List1的列表框,为了对列表框中的每个项目都能进行处理,应使用的循环语句为
A. For i=0 To List1.ListCount-1 …… Next
B.For i=0 To ListCount-1 …… Next
C.For i=1 To List1.listCount …… Next
D.For i=1 To ListCount …… Next
第6题
窗体上有l个名称为Command1的命令按钮;1个名称为List1、没有列表项的列表框。编写如下程序:
程序运行后,单击命令按钮Command1,并输入“Happynewyear”,则在Listl中显示的内容为
第8题
在窗体上画一个名称为List1的列表框,然后编写如下程序:
程序运行时,单击窗体,所完成的功能是
A.向列表框中添加10个项目
B.向列表框中添加11个项目
C.向列表框中添加10个数字
D.向列表框中添加1~10的和
为了保护您的账号安全,请在“上学吧”公众号进行验证,点击“官网服务”-“账号验证”后输入验证码“”完成验证,验证成功后方可继续查看答案!