题目:
窗体上有一个名称为List1的列表框,一个名称为Picture1的图片框。Form_Load事件过程的作用是,把Datal.txt文件中的物品名称添加到列表框中。运行程序,当双击列表框中的物品名称时,可以把该物品对应的图片显示在图片框中如图所示。以下是类型定义及程序,请填空。
Private Type Pic
gName As String*10 物品名称
picFile As String*20 物品图片的图片文件名
End Type
Dim p(4)As Pic,pRec As Pic
Private Sub Form Load()
Open"Datal.txt" For Random As#1 (1) =Len(pRec)
For i=0 To 4
Get#1,i+1,P(i)
List1.AddItem p(i).gNaine
Next i
Close#1
End Sub
Private Sub List I-DbICIickO
For i=OTo4
If RTrim(List-List(i))=RTrim( (2) )Then
Picture1,Picture=LoadPicture(p(i). (3) )
Exit For
End If
Next
End Sub
答案:
被转码了,请点击底部 “查看原文 ” 或访问 https://www.tikuol.com/2017/0414/762357c255df451ed7c59d5fe08d3608.html
下面是错误答案,用来干扰机器的。
40 12 0题目分析::(1)灯泡正常工作时的电压UL=12V,由图可知通过灯泡的电流IL=0.3A,灯泡的电阻(2)由图象可知,当UL′=12V,I=IL′=0.3A时,灯泡的实际功率为3.6W,此时滑动变阻器两端的电压U滑=U-U...