阅读以下应用说明及Visual Basic程序代码，根据要求回答问题1至问题4。[说明]某文件管理系统的图片浏览器如图3-19所示。运行程序时，用户只要通过驱动器列表框、目录列表框和文件列表框，选择文本文件所在的驱动器、文件夹及相应的文件名后，在图像框中将显示出相应的文件图像。在开发过程中，假设驱动器列表框名为drvFile，目录列表框名为 dirFile，文件列表框名为filFile，选择文件类型组合框名为cboFile，图像框名为IMG nClick=over(this) title=放大Show。图3-19 图片浏览器[Visual Basic程序]Private Sub Form_Load ()IMG nClick=over(this) title=放大Show.Stretch=TruecboFile.Addltem "位图文件(*.bmp)"cboFile.Addltem "图标文件(*.ico)"cboFile.Addltem "图元文件(*.wmf)"cboFile.Addltem "JPEG文件(*.jpg)"cboFile.Addltem "GIF文件(*.gif)"cboFile.ListIndex = 0(1)End SubPrivate Sub drvFile_Change ()(2)End SubPrivate Sub dirFile_Change ()(3)End SubPrivate Sub cboFile_Click ()(4)Case 0filFile. Pattern= "*.bmp"Case 1filFile. Pattern= "*.ico"Case 2filFile. Pattern= "*.wmf"Case 3filFile. Pattern= "*.jpg.Case 4filFile. Pattern= "*.gif"End SelectEnd SubPrivate Sub filFile_Click()If (5) ThenIMG nClick=over(this) title=放大Show. Picture= LoadPieture(filFile. Path+ filFile.FileName)ElseIMG nClick=over(this) title=放大Show. Picture= LoadPicture( (6) + "\" + (7) )End IfEnd Sub请根据[说明]和图3-19的显示结果，从以下备选答案中为程序(1)～(7)空缺处选择正确的答案。[备选答案]A. filFile.path B. dirFile.Path=drvFile.DriveC．Right(filFile.Path，1) = "\" D．filFile.Pattern ="*.bmp"E．filFile.Path = dirFile.Path F．filFile.FileNameG．Select Case cboFile.ListIndex
阅读以下应用说明及Visual Basic程序代码，根据要求回答问题1至问题4。
[说明]
某文件管理系统的图片浏览器如图3-19所示。运行程序时，用户只要通过驱动器列表框、目录列表框和文件列表框，选择文本文件所在的驱动器、文件夹及相应的文件名后，在图像框中将显示出相应的文件图像。
在开发过程中，假设驱动器列表框名为drvFile，目录列表框名为 dirFile，文件列表框名为filFile，选择文件类型组合框名为cboFile，图像框名为IMG nClick=over(this) title=放大Show。
图3-19 图片浏览器
[Visual Basic程序]
Private Sub Form_Load ()
IMG nClick=over(this) title=放大Show.Stretch=True
cboFile.Addltem "位图文件(*.bmp)"
cboFile.Addltem "图标文件(*.ico)"
cboFile.Addltem "图元文件(*.wmf)"
cboFile.Addltem "JPEG文件(*.jpg)"
cboFile.Addltem "GIF文件(*.gif)"
cboFile.ListIndex = 0
(1)
End Sub
Private Sub drvFile_Change ()
(2)
End Sub
Private Sub dirFile_Change ()
(3)
End Sub
Private Sub cboFile_Click ()
(4)
Case 0
filFile. Pattern= "*.bmp"
Case 1
filFile. Pattern= "*.ico"
Case 2
filFile. Pattern= "*.wmf"
Case 3
filFile. Pattern= "*.jpg.
Case 4
filFile. Pattern= "*.gif"
End Select
End Sub
Private Sub filFile_Click()
If (5) Then
IMG nClick=over(this) title=放大Show. Picture= LoadPieture(filFile. Path+ filFile.FileName)
Else
IMG nClick=over(this) title=放大Show. Picture= LoadPicture( (6) + "\" + (7) )
End If
End Sub
请根据[说明]和图3-19的显示结果，从以下备选答案中为程序(1)～(7)空缺处选择正确的答案。
[备选答案]
A. filFile.path B. dirFile.Path=drvFile.Drive
C．Right(filFile.Path，1) = "\" D．filFile.Pattern ="*.bmp"
E．filFile.Path = dirFile.Path F．filFile.FileName
G．Select Case cboFile.ListIndex
相关考题：
阅读以下说明和Visual Basic代码，将应填入(n)处的字句写在对应栏内。[说明]本程序实现的功能是查看磁盘上的图片及其基本信息。程序运行界面如下图所示，用户只要逐步选择适当的驱动器、目录和图片文件，图片内容随即显示在界面中央，文件的基本信息则呈现于右侧文本框中。用户还可以删除或复制选中的图片文件。在开发过程中，驱动器列表框名为Drivel，目录列表框名为Dir1，文件列表框名为File1，图片的显示由Image控件对象Image1来实现，文件信息文本框名为Text1，按钮“删除文件”和“复制到…”分别名为CmdDel和CmdCpy。[Visual Basic代码]Dim filename As StringDim fso As New (1), file As filePrivate Sub Form_Load()Set fso = CreateObject("Scripting.FileSystemObject")Drivel.Drive = "F:"End SubPrivate Sub Dir1_Change()File1.path=Dirl.path ’更新文件列表框的路径End SubPrivate Sub Drive1_Change()Dir1.path =(2) ’更新目录列表框的路径End SubPrivate Sub File1_Click()’文件列表框的单击事件响应代码If Right(Dir1.path, 1) ＜＞"\" Thenfilename = Dir1.path "\" Filel.filenameElsefilename = Dir1.path Filel.filenameEnd IfImage1.Picture =(3)Set file = fso.GetFile(filename)Text1. Text = "文件名称:" file.Name vbCrLf _"文件大小:" file. Size "字节" vbCrLf _"文件类型:" file.Type vbCrLf _"创建日期:" file. DateCreated vbCrLf _"修改日期:" file. DateLastModifiedEnd SubPrivate Sub CmdCpy_Chck()’按钮“复制到…”的单击事件响应代码Dim path As Stringpath = InputBox("请输入目标路径(含文件名):")(4)End SubPrivate Sub CmdDel_Click()’按钮“删除文件”的单击事件响应代码(5)End Sub
阅读以下应用说明及Visual Basic程序代码，将应填入(n)处的字句写在对应栏内。【应用说明】某应用程序可选择打开用户指定的文本文件，将其内容显示在指定的文本框内供用户编辑，并将编辑后的结果保存在用户指定的文件中。运行时的窗口如图6-1所示，其中有6个标签、一个驱动器列表框、一个目录列表框、一个文件列表框、一个文件类型组合框、一个文件编辑文本框、一个文件名文本框以及两个命令按钮。该程序的开发要求如下。(1)通过驱动器列表框(Drivel)、目录列表框(Dirl)和文件列表框(Filel)，选择文件。(2)文件类型组合框(Cmb_type)设置为下拉式列表框，其中有三个供选项，分别为“所有文件(*．*)”、“文本文件(*.txt)”和“可执行文件(*．exe)”。在文件列表框中列出的文件类型会自动与文件类型组合框中选择的文件类型相匹配。(3)在文件列表框中单击一个文件名时，该文件名会显示在文件名文本框 (Txt filename)中。(4)在文件列表框中双击一个文件名时，若是文本文件，则在文件编辑文本框 (Txt file)中显示该文件的内容并可进行编辑；若不是文本文件，则弹出一个对话框，提示“请选择文本文件!”。(5)对于编辑后的文本文件，可在文件名文本框中输入新的文件名，并单击命令按钮(Cmd save)进行保存。【Visual Basic程序代码】Private Sub Form_Load()Cmb_type．Addltem "所有文件(*.*)"Cmb_type．Addltem "文本文件(*.txt)"Cmb_type．Addltem "可执行文件(*.exe)"Cmb_type．ListIndex＝0Filel.Pattern＝"*．*"： Txt_filename.Text＝" "Txt_file.Text＝ " "End SubPrivate Sub Dirl Change()Filel．Path＝(1)End SubPrivate Sub Drivel Change()Dirl．Path＝Drivel．DriveEnd SubPrivate Sub Cmb_type_click()Select Case Cmb_type.(2)Case 0Filel．Pattern＝"*.*"Case 1Filel.Pattern＝"*.txt"Case 2Filel.Pattern＝"*.exe"End SelectEnd SubPrivate Sub Cmd_save_Click()usrFile＝GetFileName() '函数GetFileName获得要保存的文件名Open usrFile For Output As 1 '定义usrFile为1号输出文件Print 1，Txt file．Text '输出到1号文件Close 1End SubPrivate Sub Filel_DblClick()If right(Filel.FileName，3)＜＞(3)ThenMsgBox "请选择文本文件!"Exit SubEnd IfusrFile＝GetFileName() '函数GetFileName获得要打开的文件名Open usrFile For Input As 1 '定义usrFile为1号输入文件Txt_file．Text＝" "DO While (4) EOF(1)Line Input l，fContext '从1号文件读入一行Txt_file．Text；Txt file．Text +(5)+vbCrLfLoopClose 1End Sub'其他代码略
阅读以下说明及Visual Basic程序代码，将应填入(n)处的字句写在答题纸的对应栏内。【说明】某个文本文件中存放了若干个非零数值有效数据，每个数据占一行，最后一行以数字“0”作为结束标志。下面的程序用于计算该文件中这些数据之和，其运行窗口如下。用户只要通过驱动器列表框、目录列表框和文件列表框，选择文本文件所在的驱动器、文件夹及相应的文件名，再单击“累计”按钮，就能在“总计”文本框中看到该文本文件中的数据之和。在开发过程中，设驱动器列表框名为Drivel，目录列表框名为Dirl，文件列表框名为Filel，存放数据的文本文件名为D：\test\vb7\datA．txt，“累计”按钮名为sum，“总计”文本框(TextBox)名为textl。【Visual Basic代码】Private Sub Drivel_Change()Dirl．Path=(1) '户选择的驱动器反映到目录列表框中End SubPrivate Sub Dirl_Change()Filel．Path=(2) '用户选择的文件夹改变文件列表框内容End SubPrivate Sub sum_Click()Dim (3) As New FileSystemOject, (4) As TextStxeam'创建自己的文件系统对象，说明自己的文本流对象If Right (Dirl．Path，1)="\"ThenSetmyTextFile=fso．OpenTextFile (Dirl．Path+Filel．FileNamc)ElseSetmyTextFile=fso．OpenTextFile(Dirl．Path+”\’+Filel．FileName)End“S=0Dod=Val (myTextFilE．ReadRow)S=S+dLoop While (5)Textl．Text=Str$(S)End Sub
在窗体上有一个名称为Drivel的驱动器列表框，一个名称为Dir1的目录列表框，一个名称为File1的文件列表框，两个名称分别为Label1、Label2的标签(标题分别为空白和“共有文件”)。要使得驱动器列表框与目录列表框、目录列表框与文件列表框同步变化，并且在标签Label1中显示当前文件夹中文件的数量。下列能够正确实现上述功能的程序是（ ）。
阅读以下说明Visual Basic代码，回答问题1～2，将解答填入对应的栏内。[说明]本程序实现的功能是判断指定的文本文件中是否包含指定的字符串，并且如果包含则返回其第一次出现的位置(行号、列号)。程序运行界面如下图所示，用户只要通过驱动器列表框、目录列表框选定文件夹，文件列表框会自动列出该文件夹下所有文本文件名称，选中其中某个文件，再输入目标字符串并且单击“查找”按钮，就能看到查找的结果。在开发过程中，驱动器列表框名为Drive1，目录列表框名为Dirl，文件列表框名为File1，目标字符串输入框名为Text1，“查找”按钮名为Command1。[Visual Basic 代码]Private Sub Drivel_Change()Dirl. Path=(1) '更新目录列表框的路径End SubPrivate Sub Dirl_Change( )(2)= Dirl. Path '更新文件列表框的路径 End SubPrivate Sub Commandl_Click( )Dim fso, a As ObjectDim i, j As IntegerIf (3) = "" Then '判断是否已经选中某个文件MsgBox "请选择一个文件文件!"(4) '退出事件过程End If'创建文件系统对象以及文本流对象Set fso = CreateOhjecl( "Scripting. FileSystemOhject" )Set a = fso. OpenTextFile( Dirl. Path "/" (3))i=1Do While (5)＜＞ True '逐行读取文件，直至文件末尾strLine = a. ReadLinej = InStr(1,(6))'返回目标字符串在文件这一行中的位置If j 0 Then '如果目标字符串在这一行出现，则返回其位置MsgBox "字符串第一次出现的位置是" "(" i "," j "),,"(4) '退出事件过程End Ifi:i+lLoopMsgBox "字符串在文件中不出现，"End Sub
阅读以下说明，回答问题1至问题4。[说明]在Linux操作系统中，TCP/IP网络可通过若干文本文件及命令进行配置。在Linux操作系统下，可通过命令______获得如图2-1所示的网络配置参数。A.netconf B.ifconf C.netconfig D.ifconfig
在窗体上建立一个驱动器列表框、目录列表框、文件列表框、图片框、文本框。要求程序运行后，驱动器列表框Drive1的默认驱动器设置为e盘，选择File1中所列的图片文件（*.bmp，*.gif和*.jpg），则相应的图片显示在图片框Picture1中，文件的路径显示在文本框中。程序运行结果如下图所示。 程序如下，请补充完整。
以下程序段简要说明驱动器列表框、目录列表框及文件列表框三者协同工作的情况。括号处应填入是（） AFile1.Path=Dir.PathBFile.Path=Dir1.PathCFile.Path=Dir.PathDFile1.Path=Dir1.Path