问答题
从下列3道试题(试题5至试题7)中任选1道解答。如果解答的试题数超过1道，则题号小的1道解答有效。
阅读以下应用说明及Visual Basic程序代码，根据要求回答问题1至问题4。
[说明]
某文件管理系统的图片浏览器如图3-19所示。运行程序时，用户只要通过驱动器列表框、目录列表框和文件列表框，选择文本文件所在的驱动器、文件夹及相应的文件名后，在图像框中将显示出相应的文件图像。
在开发过程中，假设驱动器列表框名为drvFile，目录列表框名为
dirFile，文件列表框名为filFile，选择文件类型组合框名为cboFile，图像框名为IMG onClick=over(this)
title=放大Show。
图3-19 图片浏览器
[Visual Basic程序]
Private Sub Form_Load ()
IMG onClick=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 onClick=over(this)
title=放大Show. Picture= LoadPieture(filFile. Path+ filFile.FileName)
Else
IMG
onClick=over(this) title=放大Show. Picture= LoadPicture( (6) +
"\" + (7) )
End If
End Sub
| [问题1] 请根据[说明]和图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应用程序中显示磁盘驱动器、目录和文件的有关信息(如设计资源管理器)，除了使用对话框外，VB提供......
(↓↓↓ 点击下方‘点击查看答案’看完整答案 ↓↓↓)
在Visual Basic应用程序中显示磁盘驱动器、目录和文件的有关信息(如设计资源管理器)，除了使用对话框外，VB提供......
(↓↓↓ 点击下方‘点击查看答案’看完整答案 ↓↓↓)
热门
试题