问答题
在考生文件夹下有工程文件sj5.vbp及窗体文件sj5.frm。在名为Form1的窗体上有5个Label控件和2个命令按钮，数据文件in13.dat存放学生的编号、姓名、性别和体重，如下图所示。
程序运行后，按"Begin"按钮后，能从考生文件夹下的in13.dat中读出数据并把体重大于平均体重的学生的所有数据写入考生文件夹下的out13.dat文件中。执行完毕，“Begin"按钮变成“完成”按钮，且无效。
要求：该程序不完整，请在有问号“?”的地方填入正确内容，然后删除问号“?”及所有注释符“'”，但不能修改其他部分。存盘时不得改变文件名和文件夹，相应的数据文件也保存到考生文件夹下。
程序运行后，按"Begin"按钮后，能从考生文件夹下的in13.dat中读出数据并把体重大于平均体重的学生的所有数据写入考生文件夹下的out13.dat文件中。执行完毕，“Begin"按钮变成“完成”按钮，且无效。
要求：该程序不完整，请在有问号“?”的地方填入正确内容，然后删除问号“?”及所有注释符“'”，但不能修改其他部分。存盘时不得改变文件名和文件夹，相应的数据文件也保存到考生文件夹下。
【正确答案】根据题目
1．打开题目所给工程文件；
2．打开代码窗口输入如下代码：
Private Sub Cmd1_Click()
Dim i As Integer
Dim total As Integer
Dim aver As Single
Dim num(10),namstring(10),sexstring(10),wages(10)
MyFile1=App.Path & "/" & "in13.dat" "out13.dat"
Open MyFile1 For Input As # 1
Open MyFile2 For Output As # 2
For i=1 To 10
Input # 1,num(i),namstring(i),sexstring(i),wages(i)
total=total+wages(i)
Next i
aver=total/10
For i=1 To 10
If wages(i)＞aver Then Write # 2,num(i),namstring(i),sexstring(i),
wages(i)
Next i
Cmd1.Caption="完成"
Cmd1.Enabled=False
End Sub
3．按要求保存文件即完成本题。
1．打开题目所给工程文件；
2．打开代码窗口输入如下代码：
Private Sub Cmd1_Click()
Dim i As Integer
Dim total As Integer
Dim aver As Single
Dim num(10),namstring(10),sexstring(10),wages(10)
MyFile1=App.Path & "/" & "in13.dat" "out13.dat"
Open MyFile1 For Input As # 1
Open MyFile2 For Output As # 2
For i=1 To 10
Input # 1,num(i),namstring(i),sexstring(i),wages(i)
total=total+wages(i)
Next i
aver=total/10
For i=1 To 10
If wages(i)＞aver Then Write # 2,num(i),namstring(i),sexstring(i),
wages(i)
Next i
Cmd1.Caption="完成"
Cmd1.Enabled=False
End Sub
3．按要求保存文件即完成本题。
【答案解析】