VB第八章作业

1. 新建一个工程，完成如下图所示的“图片欣赏”程序的设计，具体要求如下： 1) 窗体上放置驱动器列表框（Drive1）、目录列表框（Dir1）和文件列表框（File1）

三个控件，设置属性使得三个控件能够联动。

2) 编写相关代码，使得文件列表框只显示*.bmp和*.jpg类型的图片文件，单击

文件列表框上的图片文件名时，图片显示在图片框（pictrue1）中。

2. 阅读下面的程序，写出a1.dat文件的最终结果：

private sub form_click()

dim f1 as integer,f2 as integer,f3 as integer open”c:\\a1.dat” for output as #1 f1=2:f2=3

print #1,”NO.”;3,f1 print #1,”NO.”;4,f2 for I=5 to 7 f3=f1+f2

print #1,”NO.”;I,F3 F1=F2 F2=F3 Next I Close End sub

3. 完成下面的程序，将顺序文本文件D:\\MYFILE.TXT的内容一个字符一个字符地读入文本框txtTest中，程序段如下：

Private Sub Form_Click() Dim InputData As String*1 txtTest.Text=”” _________A_________ Do While _________B_________ _________C_________ txtTest.Text= txtTest.Text+InputData Loop _________D_________ End Sub