【审题分析】本题源程序已提供 ReadData 和 WriteData 两个自定义过程,只需编写"读数"、"计算"和"保存"命令的单击事件过程,并在事件过程中调用 ReadData 和 WriteData自定义过程。程序设计思路:在"读数"菜单项的 Click 事件过程中,通过调用 ReadData过程将数据从 dr1.dat 文件读入到数组 Arr(窗体变)中;在"计算"菜单项的 Click 事 件过程中,利用 For 循环语句(循环变i 的初值为 1,终值为 100)依次将数组 Arr 中小于 50 的元素的值显示在文本框中(条件表达式为 Arr(i)<50),并将其值累加到变 Sum,循环结束后将结果显示在窗体上。在"保存"菜单项的 Click 事件过程中,通过调用WriteData 过程将 Sum 的值写入数据文件 dw3.dat。
注意:调用 WriteData 过程时需传递参数 dw3.dat 和 Sum,变Sum 应声明为窗体变
【操作步骤】
步骤 1:打开考生文件下的本题工程文件 vbsj5.vbp,利用菜单设计器,按表 57-5 中的设置建立菜单项。
步骤 2:在窗体 Form1 中画一个文本框,其相关属性及其值见表 57-6。
步骤 3:在代码编辑窗口,分别编写"读数"、"计算"和"保存"按钮的 Click 事件过程。
参考代码:
Dim sum As Integer
Private Sub mnuCalc_Click()
For i = 1 To 100
If Arr(i) < 50 Then
Txt1.Text = Txt1.Text & Arr(i) & Space(5)
sum = sum + Arr(i)
End If
Next
Print sum
End Sub
Private Sub mnuRead_Click()
ReadData
End Sub
Private Sub mnuSave_Click()
WriteData "dw3.dat", sum
End Sub
步骤 4:按要求将文件保存至考生文件夹中。