2. 计算机
  3. 窗体上已有名称分别为Drivel、Dirl、Filel的驱动器列表框、目录列表框和文件列表框，且有1个名称为Textl的文本框。以下程序的功能是：将指定位置中扩展名为“．txt”的文件显示在Filel中，如果双击FileI中的某个文件，则在Textl中显示

窗体上已有名称分别为Drivel、Dirl、Filel的驱动器列表框、目录列表框和文件列表框，且有1个名称为Textl的文本框。以下程序的功能是：将指定位置中扩展名为“．txt”的文件显示在Filel中，如果双击FileI中的某个文件，则在Textl中显示

admin2011-04-29  79
问题 窗体上已有名称分别为Drivel、Dirl、Filel的驱动器列表框、目录列表框和文件列表框，且有1个名称为Textl的文本框。以下程序的功能是：将指定位置中扩展名为“．txt”的文件显示在Filel中，如果双击FileI中的某个文件，则在Textl中显示该文件的内容。请填空。
    Private Sub Form_Load()
    Filel．Pattern=   
    End Sub
    Private Sub Drivel_Change()
    Dirl．Path=Drivel．Drive
    End Sub
    Private Sub Dirl_Change()
    Filel．Path—Dirl．Path
    End Sub
        Private Sub Filel_DblCliek()    ‘
    Dim s As String姜1
    If Right(Filel．Path，1)=“＼”Then
    f_name!=Filel,Path+Filel．FileName
    Else  
    f_name=Filel．Path+“＼”+File1．FileName
    End 1f
    Open f_name   As#1  
    Textl．Text=“”
    Do while    
    s=Input(1，#1)
    Textl．Text=Textl．Text+s
   Loop  
    Close-#1
   End Sub
选项
答案*．txt For Input NOT EOF(1)
解析
转载请注明原文地址:https://www.kaotiyun.com/show/5nhp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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