[VB实验报告9-201102201613096.docVIP

台州学院 《VB程序设计》实验报告 实验九：文 件 班级：环境工程3班 学号：1331240082 姓名：吕姗姗 实验日期：2014.6.16 一、实验目的和要求 1．熟练掌握顺序文件的基本操作； 2．熟练掌握驱动器列表框、目录列表框和文件列表框等三个文件操作控件的功能和建立。 二、实验主要仪器和设备计算机一台，Windows XP操作系统，Visual Basic环境实验.1 编程，设计如图9-1所示的图片欣赏程序，其中窗体上放置驱动列表框、目录列表框和文件列表框三个控件，设置属性使得三个控件能够联运；设置文件列表框只显示*.bmp和*.jpg类型的图片文件；当单击文件列表框上的某图片文件名时，图片显示在图片框中。 图9-1 图片欣赏运行界面 实验.2 某文本文件以下列格式存储若干学生的学号和两门课成绩，编写单击窗体的事件过程： （1）用通用对话框控件Commondialog1选择该文件； （2）在Label1(0)～Label1(1)显示总分最高的学生之学号、总分。 文本文件格式 ,78,89 ,83,79 …… 四、实验原始纪录实验.1 程序的界面设计。 程序代码。 Private Sub Form_Load() Drive1.Drive = c: file1.Pattern = *.bmp;*jpg End Sub Private Sub drivel_change() Dir1.Path = Drive1.Drive End Sub Private Sub dir1_change() file1.Path = Dir1.Path End Sub Private Sub file1_click() imge1.Picture = LoadPicture(file1.Path + / + file.FileName) End Sub 实验.2 程序的界面设计。 程序代码。 Private Sub Form_Click() Dim xh As String, cj1 As Integer, cj2 As Integer Dim topxh As String, topcj As Integer CommonDialog1.ShowOpen Open CommonDialog1.FileName For Input As #1 Do While Not EOF(1) Input #1, xh, cj1, cj2 If cj1 + cj2 topcj Then topcj = cj1 + cj2 topxh = xh End If Loop Close #1 Label1(0).Caption = topxh Label1(1).Caption = topcj End Sub 五、实验结果及分析实验.1运行结果。 实验.2运行结果。 六、实验总结与思考（主要写一些在实验过程中，遇到的问题、所犯的错误，以及是如何发现纠正的。大约100至200字左右。）