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

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

admin2018-10-29  61
问题 考生文件夹下的工程文件sjt5.vbp 中的窗体如图1－40 所示。考生文件夹下的随机文件in5.dat 中有20条记录，每条记录含姓名和三个分数（均为100 以内的正整数）。在程序中已经定义了类型Recordtype，此类型变量可以存放一条记录。要求如下：
    ①请为“计算最大最小值”按钮编写Click事件过程，其功能是：读取文件中的记录，计算每人的总分，找出其中最大总分和最小总分，分别放入变量maxval，minval 中（这两个变量已经给出，不得修改）。
    ②运行程序，单击“计算最大最小值”按钮后再单击“存盘”按钮。

    注意：考生不得修改窗体文件中已经存在的控件和程序，在结束程序运行之前，必须依次单击“计算最大最小值”、“存盘”按钮，否则无成绩。最后，程序按原文件名存盘。
选项
答案【操作步骤】 步骤1：打开考生文件夹中的本题工程文件factsjt5.vbp，在代码编辑窗口的适当位置编写代码。 参考代码： Private Sub Command1_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 = sumval2i-1（i 为行号） If sumval < minval Then minval = sumval Next k Close #1 End Sub 步骤2：运行程序，单击“计算最大最小值”命令按钮，然后单击“存盘”按钮。 步骤3：按要求将文件保存至考生文件夹中。
解析
转载请注明原文地址:https://www.kaotiyun.com/show/S3Fp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)