3. 综合应用(1小题,计30分)
注意:下面出现的“考生文件夹”均为%USER%
在考生文件夹下有一个工程文件sjt5.vbp,界面如图所示,其功能如下:
1)单击“读数据”按钮,则把考生文件夹下文件in5.dat中的12组整数(其中每组含有10个数,共计120个整数)读到数组a 中;
2)单击“计算”按钮,则对每组数求平均值,并将所求各组数的平均值截尾取整后存入s 数组中;
3)单击“显示”按钮,则将所求各组数的平均值显示在文本框Text1中;
4)单击“存盘”按钮则把计算结果存盘。
在给出的窗体文件中已经有了全部控件,且“读数据”、“显示”和“存盘”按钮的Click事件过程已经给出,请为“计算”按钮编写适当的事件过 程以实现上述功能。
注意:
不得修改已经存在的程序,在结束程序运行之前,必须用“存盘”按钮存储计算结果,否则无成绩。最后,程序按原文件名存盘。
解题思路:
启动Visual Basic系统,打开考生文件夹下需编辑的工程文件sjt5.vbp,相应的窗体文件名为sjt5.frm。
由于所提供的窗体程序不完整,需添加事件过程。
单击“计算”按钮(即运行Click事件过程),在该Click事件过程中加入语句:
Private Sub Command2_Click()
’考生编写
For i = 1 To 12
Sum = a(i, 1)
For j = 2 To 10
Sum = Sum + a(i, j)
Next j
s(i) = Int(Sum / 10)
Next i
End Sub
参考文件:c:/wexam/26990001/hlpsys/参考答案/sjt5.vbp、sjt5.frm、sjt5.vbw、out5.dat
请把这些文件复制到c:/wexam/26990001中,然后打开sjt5.vbp文件并运行。
① 凡本网注明稿件来源为"原创"的所有文字、图片和音视频稿件,版权均属本网所有。任何媒体、网站或个人转载、链接转贴或以其他方式复制发表时必须注明"稿件来源:我考网",违者本网将依法追究责任;
② 本网部分稿件来源于网络,任何单位或个人认为我考网发布的内容可能涉嫌侵犯其合法权益,应该及时向我考网书面反馈,并提供身份证明、权属证明及详细侵权情况证明,我考网在收到上述法律文件后,将会尽快移除被控侵权内容。