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