在考生文件夹下有工程文件sj5.vbp及窗体文件sj5.frm。在名为Forml的窗体上有5个Label控件和2个命令按钮,数据文件inl3.dat存放学生的编号、姓名、性别和体重,如图13—5所示。 程序运行后,按“Begin”按钮后,能从考生

admin2009-03-26  22

问题  在考生文件夹下有工程文件sj5.vbp及窗体文件sj5.frm。在名为Forml的窗体上有5个Label控件和2个命令按钮,数据文件inl3.dat存放学生的编号、姓名、性别和体重,如图13—5所示。

    程序运行后,按“Begin”按钮后,能从考生文件夹下的inl3.dat中读出数据并把体重大于平均体重的学生的所有数据写入考生文件夹下的outl3.dat文件中。执行完毕,“Begin”按钮变成“完成”按钮,且无效。
    注意:该程序不完整,请在有问号“?”的地方填入正确内容,然后删除问号“?”及所有注释符“’”,但不能修改其他部分。存盘时不得改变文件名和文件夹,相应的数据文件也保存到考生文件夹下,否则没有成绩。

选项

答案根据题目 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.按要求保存文件即完成本题。

解析
转载请注明原文地址:https://kaotiyun.com/show/nN1p777K
0

最新回复(0)