【正确答案】正确答案：根据题目 1．打开题目所给工程文件。 2．打开代码窗口输入如下代码： Private Sub Cmdl Click() Dim i As Integer Dim total As Integer Dim aver As Single Dim num(10)，namstring(10)，sexstring(10)，wages(10) MyFile=App．Path&"＼"&"inl3．dat" MyFile2=App．Path&"＼"&"outl3．dat" Open MyFilel For Input As#1 Open MyFile2 For Output As#2 For i=1 To 10 Input#l，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 Cmdl．Caption="完成" Cmd1．Enabled=False End Sub 3．按要求保存文件即完成本题。