我的美女院长:VB高手入内

来源：百度文库编辑：杭州交通信息网时间：2024/04/29 03:08:36

（1）属性设置及程序改错题:属性设置(4分*2题=8分),程序改错(6分*2题=12分),计20分.
gc316.frm的功能是：设计一个窗体，当在文件控件File1中单击相应图形文件时能实现在Image1中进行浏览，要求文件控件中只显示扩展名为BMP的文件，图形要求按同样大小进行显示。
具体要求：
①设置文件控件File1和图像控件Image1的属性。
②在编写的二个过程代码Dir1_Change()，File1_Click()中各有一处错误，请调试改正。
调试改正中，每个过程代码只能改一处，并不得增删语句。
问题补充：Private Sub Dir1_Change()
File1.Path = Dir1.Drive
End Sub

Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub

Private Sub File1_Click()
Dim fname As String
If Right(Dir1.Path, 1) = "\" Then
fname = Dir1.Path & File1.FileName
Else
fname = Dir1.Path & "\" & File1.FileName
End If
Image1.Picture = fname
End Sub

对的，我的答案和上面这个仁兄一样。这样做比较简便

VB高手入内好急呀 VB的高手入内好急呀 VB的高手入内好急 VB高手入内好急 VB的高手入内。帮我做道题高手入内硬件高手入内！ CS高手入内。 CS1.6高手入内语法知识高手入内