2. 计算机
  3. 窗体上有一个名称为List1的列表框，一个名称为Picture1的图片框。Form Load事件过程的作用是，把Data1．txt文件中的物品名称添加到列表框中。运行程序，当双击列表框中的物品名称时，可以把该物品对应的图片显示在图片框中，如图所示，以下是类

窗体上有一个名称为List1的列表框，一个名称为Picture1的图片框。Form Load事件过程的作用是，把Data1．txt文件中的物品名称添加到列表框中。运行程序，当双击列表框中的物品名称时，可以把该物品对应的图片显示在图片框中，如图所示，以下是类

admin2010-11-02  27
问题 窗体上有一个名称为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)
    List 1，Addltem p(i)gName
    Next i
    Close#1
    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
选项
答案len p(i)．gName picFile
解析 Open语句格式Open filename For Random as[#]filenumber Len=Reclength。(1)参数filename和filenumber分别表示文件名或文件号。(2)关键字Random表示打开的是随机文件。(3)Len子句用于设置记录长度，长度由参数Reclength指定，Reclength的值必须大于0，而且必须与定义的记录结构的长度一致。本题中len(pRec)是求pic结构类型的长度，也就是设置欲读取的结构类型的长度。所以第一空填Len。RTtim(List1．List(i))=RTrim()，此判定表达式的作用是判定列表框中的列表项的值和物品名是否相同，函数trim是去字符串中的空格，是干扰项对本题没什么影响，所以第二空填p(i)．gName。语句Picture 1．Picture=LoadPicture(p(i)．picFile)的作用是装载指定的图片，loadPicture函数的参数是所要载入图片的图片名，所以第三空填picFile。
转载请注明原文地址:https://kaotiyun.com/show/eMmp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)