考生文件夹下的工程文件sjt5.Vbp中有一个初始内容为空的文本框Textl,两个标题分别是“读数据”和“计算”的命令按钮;请画一个标题为“各行平均数的最大值为”的标签LabeL2,再画一个初始内容为空的文本框Text2,如图1-195所示。 程序功能如下

admin2010-09-02  20

问题 考生文件夹下的工程文件sjt5.Vbp中有一个初始内容为空的文本框Textl,两个标题分别是“读数据”和“计算”的命令按钮;请画一个标题为“各行平均数的最大值为”的标签LabeL2,再画一个初始内容为空的文本框Text2,如图1-195所示。
程序功能如下:
①单击“读数据”按钮,则将考生文件夹下in5.dat文件的内容读入20行5列的二维数组a中,并同时显示在Textl文本框内;
②单击“计算”按钮,则自动统计二维数组a中各行的平均数,并将这些平均数中的最大值显示在Text2文本框内。“读数据”按钮的Click事件过程已经给出,请编写“计算”按钮的Click事件过程实现上述功能。
注意:考生不得修改窗体文件中已经存在的控件和程序,在结束程序运行之前,必须用“计算”按钮进行计算,且必须用窗体右上角的关闭按钮结束程序,否则无成绩。最后,程序按原文件名存盘。

选项

答案 【操作步骤】 步骤l:打开考生文件中的本题工程文件sjt5.vbp,在窗体。Forml中画一个标签和一个文本框,其属性及值如表2-111所示。 [*] 步骤2:打开代码编辑窗口,在指定位置编写以下代码: 参考代码: For i=1 To 20 Sum=0 For j=1 To 5 Sum=Sum+a(i,j) Next Avg=Sum/5 If i=1 Then Max=Avg ElseIf Max键运行程序,先单击“读数据”按钮,接着单击“计算”按钮,然后单击窗体右上角的关闭按钮结束程序。

解析 本题可利用一个嵌套的For循环来完成计算工作:在外循环(循环变量的取值为1~20)体中,先初始设置记录每行数据之和的变量Sum的初值为O,接着通过内循环(循环变量的取值为1~5)体完成对每行数据的累加工作。内循环结束后,用表达式Avg=Sum/5计算出该行的平均值。如果是第一次执行外循环的循环体,则将当前Avg的值记录在变量Max中,否则仅在其他行Avg值大于Max的值时,才将其记录在变量Max中。嵌套For循环结束时,变量Max的值即为每行平均数中的最大值,将其显示在文本框txtMax中。
转载请注明原文地址:https://jikaoti.com/ti/XNg0FFFM
0

最新回复(0)