实验8(文件和图形).docVIP

实验8 文件和图形(设计性) 实验目的： 掌握文件的概念 掌握文件的打开、读写和关闭方法 了解顺序文件和随机文件的使用 4. 了解VB图形坐标系的概念 5. 了解与绘图有关的常用属性、事件和方法 实验内容： 实验1：建立一个学生成绩文件，将输入的学生成绩添加到stud.txt文件中。界面设置如下图所示。 Private Sub Form_Load() CommonDialog1.ShowSave Open CommonDialog1.FileName For Output As #2 End Sub Private Sub Command1_Click() 添加 no = Text1.Text : na = Text2.Text g1 = Val(Text3.Text) : g2 = Val(Text4.Text) Write #2, no, na, g1, g2 Text1.Text = : Text2.Text = Text3.Text = : Text4.Text = End Sub Private Sub Command2_Click() 退出 Close #2 End End Sub 实验2：读入上例生成的文件，并计算每个学生的平均成绩，界面如下，其中，通用对话框控件用于打开一个“打开文件”对话框，在对话框中所选择的文件将作为要显示的文件。 Private Sub Command1_Click() CommonDialog1.ShowOpen Open CommonDialog1.FileName For Input As #3 Text1.Text = Do While Not EOF(3) 装入用Write #语句生成的文件 Input #3, num, nam, s1, s2 ave = (s1 + s2) / 2 Text1.Text = Text1.Text num nam _ Str(s1) Str(s2) _ Str(ave) Chr(13) Chr(10) Loop Close #3 End Sub 实验3：建立学生成绩随机文件。界面如下图。 Private Type StudRec No As String * 6 Name As String * 8 Math As Integer English As Integer End Type Dim StudTab As StudRec Private Sub Form_Load() CommonDialog1.ShowSave Open CommonDialog1.FileName For Random As #1 Len = Len(StudTab) End Sub Private Sub Command1_Click() StudTab.No = Text1.Text StudTab.Name = Text2.Text StudTab.Math = Val(Text3.Text) StudTab.English = Val(Text4.Text) Put #1, , StudTab Text1.Text = Text2.Text = Text3.Text = Text4.Text = End Sub Private Sub Command2_Click() Close #1 End End Sub 实验4：分别使用Scale方法的属性和Scale方法自定义坐标系统。要求新坐标的左上角的坐标(100,200)，X轴为6个单位，Y轴为4个单位。以窗体的中心为圆心，绘制一个红色的圆。程序代码及窗体界面设计如下： Private Sub Form_click() Form1.ScaleLeft = 100 Form1.ScaleTop = 200 Form1.ScaleWidth = 6 Form1.ScaleHeight = 4 Form1.Circle (103, 202), 1, vbRed End Sub Private Sub Form_Click() Form1.ScaleMode = 0 Form1.Scale (100, 200)-(106, 204) Form1.Circle step(3,2), 1, vbRe