回复：代码

打开 将学生成绩录入 求平均值 再将平均值放到result文件中
Private Sub mnu_open_Click()
Dim f As String, stu_name As String, stu_score As String
Dim sum As Long, k As Integer
cd1.DialogTitle = "打开学生成绩文件"
cd1.Filter = "文本文件|*.txt|记事本文件|*ini"
cd1.InitDir = App.Path
cd1.ShowOpen
f = cd1.FileName
Open f For Input As #2
cd1.CancelError = False
Do Until EOF(2)
     Input #2, stu_name, stu_score
     k = k + 1
     sum = sum + stu_score
     Text1.Text = Text1.Text & stu_name & "," & stu_score & vbCrLf
Loop
Dim ave As Single
ave = sum / k
Text1.Text = Text1.Text & "平均分=" & ave
Close #2
Open App.Path & "\results.txt" For Append As #1
Print #1, "平均分="; ave
Close #2
End Sub

Dim f As String
Private Sub Command1_Click()
     Dim f As String
     CommonDialog1.ShowOpen
     f = CommonDialog1.FileName
     If f <> "" Then
         Picture2.Picture = LoadPicture(f)
     End If
   
     If Picture2.Width > Picture1.Width Then
         HScroll1.Enabled = True
         HScroll1.Max = Picture2.Width - Picture1.Width
         HScroll1.LargeChange = HScroll1.Max / 15
     End If
    
     If Picture2.Height > Picture1.Height Then
         VScroll1.Enabled = True
         VScroll1.Max = Picture2.Height - Picture1.Height
         VScroll1.LargeChange = VScroll1.Max / 15
     End If
    
End Sub
Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub
Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub
Private Sub File1_Click()
If Right(File1.Path, 1) <> "\" Then
              f = File1.Path & "\" & File1.FileName
         Else
             f = File1.Path & File1.FileName
         End If
Image1.Picture = LoadPicture(f)
End Sub
Private Sub File1_DblClick()
If Right(File1.Path, 1) <> "\" Then
              f = File1.Path & "\" & File1.FileName
         Else
             f = File1.Path & File1.FileName
         End If
         Picture2.Picture = LoadPicture(f)
If Picture2.Width > Picture1.Width Then
         HScroll1.Enabled = True
         HScroll1.Max = Picture2.Width - Picture1.Width
         HScroll1.LargeChange = HScroll1.Max / 15
End If
    
If Picture2.Height > Picture1.Height Then
         VScroll1.Enabled = True
         VScroll1.Max = Picture2.Height - Picture1.Height
         VScroll1.LargeChange = VScroll1.Max / 15
End If
End Sub
Private Sub Form_Load()
Drive1.Drive = "C:"
Dir1.Path = "C:\Documents and Settings\Guest\桌面\14-绘图\图片素材库"
File1.Pattern = "*.jpg"
File1.Path = "c:\"
End Sub
Private Sub HScroll1_Change()
Picture2.Left = -HScroll1.Value
End Sub
Private Sub VScroll1_Change()
Picture2.Top = -VScroll1.Value
End Sub


第五章
一、判断题
1     2     3     4     5     6     7     8     9     10
×     ×     ×     √     ×     √     ×     √     √     √
11     12     13     14     15     16     17     18     19     20
×     ×     √     √     ×     ×     ×     √     √     ×
21     22     23     24     25
√     ×     √     ×     √
二、选择题
1     2     3     4     5     6     7     8     9     10
C     D     B     B     B     C     B     B     B     A
11     12     13     14     15     16     17     18     19     20
D     C     B     B     A     D     B     B     B     A
三、填空题
1、     上     下      左      左
2、     缇     无关
3、     &    <Alt>+<Y>
4、     Enabled
5、     MaxLength
6、     Text1.SetFocus
7、     MultiLine
8、     Visible
9、     Alignment
10、     AutoSize
11、     ForeColor
12、     0或1
13、     True
14、     1
15、     AddItem
16、     1
17、     List1.Clear
18、     文本框     列表框


                                           5   5   5   5   5
五、程序填空题
1．（1）Dim n As Integer     （2）"C:\windows\calc.exe"      （3）Output       （4）End
2．（1）For Output As #2     （2）0                       （3）"temp.dat" As "c:\a1.dat"
3．（1）Open "e:\dataout.txt" For Output As #1
    （2）t1 Mod t2 = 0        （3）If flag Then               （4）Print coun
六、程序设计题
程序1．界面设计如图10-10所示，过程设计如下：
Dim fn As String
Private Sub Drive1_Change()
   Dir1.Path = Drive1.Drive
End Sub
Private Sub Dir1_Change()
   File1.Path = Dir1.Path
End Sub
Private Sub File1_Click()
   If Right(File1.Path, 1) = "\" Then
     fn = File1.Path + File1.FileName
   Else
     fn = File1.Path + "\" + File1.FileName
   End If
End Sub
Private Sub Command1_Click()
   Dim yesno As Byte
   yesno = MsgBox("确认要删除吗？", vbYesNo, "删除文件")
   If yesno = vbYes Then Kill fn
   File1.Refresh
End Sub
程序2．建立4个文本框控件依次输入姓名、出生年月、外语、计算机成绩，按“确认”按钮追加该记录到磁盘文件d:\student.dat。过程设计如下：
Private Sub Command1_Click()
   Dim b As Date, m As Byte, e As Byte
   Open "d:\student.dat" For Append As #1
   b = Text2.Text: m = Text3.Text: e = Text4.Text
   Write #1, Text1.Text, b, m, e
   Text1.Text = "": Text2.Text = "": Text3.Text = "": Text4.Text = ""
   Close #1
End Sub
程序3．界面设计如图10-11所示，过程设计如下：
Private Sub Form_Load()
   Dim ss As String
   Open "e:\student.txt" For Append As #1     '如文件不存在则先建立该文件
   Close #1
   Open "d:\student.dat" For Input As #1   '将文件中所有记录在列表框中显示
   While Not EOF(1)
     Line Input #1, ss: List1.AddItem ss
   Wend
   Close #1                       '在选中表项之前“删除”、“修改”按钮不可用
   Command2.Enabled = False: Command3.Enabled = False
End Sub
Private Sub List1_Click()      '选中表项后可“删除”或“修改”，不可“追加”。
   Command1.Enabled = False: Command2.Enabled = True
   Command3.Enabled = True: Text1.Text = List1.Text
End Sub
Private Sub Command1_Click()      '追加记录
   If Trim(Text1.Text) <> "" Then List1.AddItem Text1.Text
   Text1.Text = ""
End Sub
Private Sub Command2_Click()      '修改记录
   List1.AddItem Text1.Text, List1.ListIndex
   List1.RemoveItem List1.ListIndex
   Command1.Enabled = True: Command2.Enabled = False
   Command3.Enabled = False: Text1.Text = ""   '修改后，不可“删除”、“修改”
End Sub
Private Sub Command3_Click()      '删除记录
   List1.RemoveItem List1.ListIndex          '删除后，不可“删除”、“修改”
   Command1.Enabled = True: Command2.Enabled = False
   Command3.Enabled = False: Text1.Text = ""
End Sub
Private Sub Command4_Click()     '保存文件，将列表框中所有表项输出到文件
   Dim i As Integer
   Open "d:\student.dat" For Output As #1
   For i = 0 To List1.ListCount - 1: Print #1, List1.List(i): Next i
   Close #1
End Sub
Private Sub Command5_Click()     '退出之前先保存文件
   Call Command4_Click: End
End Sub