考生文件夹下的工程文件sjt5.vbp中的窗体如图2.162所示。考生文件夹下的随机文件in5.dat中有20条记录,每条记录含姓名和三个分数(均为100以内的正整数)。在程序中已经定义了类型Recordtype,此类型变量可以存放一条记录。要求如下:

admin2020-07-22  45

问题 考生文件夹下的工程文件sjt5.vbp中的窗体如图2.162所示。考生文件夹下的随机文件in5.dat中有20条记录,每条记录含姓名和三个分数(均为100以内的正整数)。在程序中已经定义了类型Recordtype,此类型变量可以存放一条记录。要求如下:
    ①请为“计算最大最小值”按钮编写Click事件过程,其功能是:读取文件中的记录,计算每人的总分,找出其中最大总分和最小总分,分别放入变量maxval,minval中(这两个变量已经给出,不得修改)。
    ②运行程序,单击“计算最大最小值”按钮后再单击“存盘”按钮。
    注意:考生不得修改窗体文件中已经存在的控件和程序,在结束程序运行之前,必须依次单击“计算最大最小值”、“存盘”按钮,否则无成绩。最后,程序按原文件名存盘。

选项

答案【操作步骤】 步骤1:打开考生文件中的本题工程文件sjt5.vbp,在代码编辑窗口的适当位置编写代码。 参考代码: Private Sub Commandl—Click() Dim s As Recordtype Open”in5.dat”For Random As#1 Len =Len(s) maxval=0 minval=300 For k=1 To 20 Get#1,,s sumval=s.a1+s.a2+S.a3 If sumval>maxval Then maxval =sumval If sumval
解析
转载请注明原文地址:https://kaotiyun.com/show/1cHp777K
0

最新回复(0)