【正确答案】正确答案： 本题主要考查定义结构体变量，其格式如下： Private type结构体名 参数名as参数类型 End type 程序中在同一个过程打开两个文件，因此要用两个文件号，一个用来读入(文件号#1)，一个用来输出(文件号#2)。利用EOF来判断是否读取完，先对文件进行一次读取，计算出平均值，然后再根据条件进行边读取边写入的操作，补充后的具体代码如下： Private Type Person'声明结构体 num As String*12 Nam As String*12 Yea As Long End Type Private Sub Commandl_Click() Dim per As Person Dim arg As Long Dim num As Integer arg=0'算平均值 num=0 '计数 Open"App．Path&＼sjin．dat"For Input As#1 While EOF(1)= False '当没有读取完则继续读取 Input#1，per．num Input#l，per．Nam Input#l，per．Yea arg=arg+per．Yea'累加年龄 num=num+1'累加计数 Wend Close#l arg=arg＼num Open"App．Pathg&＼sjin．dat"For Input As#1 Open"App．Pathg&＼sjout．dat"For Output As#2'打开输出文件 While EOF(1)= False Input#1，per．num Input#1，per．Nam Input#1，per．Yea If per．Yea Enabled=False'完成后Commandl不可用 Commandl．Caption="完成" 'Commandl的标签改为完成 End Sub Private Sub Command2 Click() Unload Me'关闭对话框 End Sub 单击[*]按钮运行程序，并按要求保存。