2. 计算机
  3. 考生文件夹下的工程文件sjt5．vbp中有1个初始内容为空的文本框Text1，2个标题分别是“读数据”和“计算”的命令按钮。请画1个名称为Label2、标题为“各行平均值的最小值为”的标签，再画1个名称为Text2、初始内容为空的文本框。效果如图3—18所

考生文件夹下的工程文件sjt5．vbp中有1个初始内容为空的文本框Text1，2个标题分别是“读数据”和“计算”的命令按钮。请画1个名称为Label2、标题为“各行平均值的最小值为”的标签，再画1个名称为Text2、初始内容为空的文本框。效果如图3—18所

admin2017-03-26  47
问题 考生文件夹下的工程文件sjt5．vbp中有1个初始内容为空的文本框Text1，2个标题分别是“读数据”和“计算”的命令按钮。请画1个名称为Label2、标题为“各行平均值的最小值为”的标签，再画1个名称为Text2、初始内容为空的文本框。效果如图3—18所示。程序功能如下：
1)单击“读数据”按钮，则将考生文件夹下in5．dat文件的内容读入到20行6列的二维数组a中，并同时显示在Text1文本框内。
2)单击“计算”按钮，则自动统计二维数组a中各行的平均值，并将这些平均值中的最小值显示在Text2文本框内。“读数据”按钮的Click事件过程已经给出，请编写“计算”按钮的Click事件过程实现上述功能。
注意：考生不修改窗体文件中已经存在的控件和程序，结束程序运行之前，必须进行“计算”，且必须用窗体右上角的关闭按钮结束程序，否则无成绩。最后，程序按原文件名存盘。
选项
答案步骤1：打开考生文件夹中的工程文件sjt5．vbp，在窗体上加入一个标签和文本框，并设置其属性如表4—12所示。 [*] 步骤2：在代码编辑窗口中，去掉程序中的注释符“’”，将问号“?”改为正确的内容。 参考代码： Private Sub Command2_Click() ’========以下由考生编写========== Dim b(20) As Integer For i=1To20 b(i)=0 For j=1To6 b(i)=b(i)+a(i，j) Next j b(i)=b(i)／6 Next i j=10000 For i=1To20 If b(i)＜j Then j=b(i) Next Text2．Text=1j ’========考生编写程序结束========== End Sub 步骤3：按＜F5＞运行程序，单击各按钮测试验证。 步骤4：按要求将文件保存至考生文件夹中。
解析 题目要求计算数组a的各行平均值，并查找这些平均值的最小值。可通过两次循环得到平均值的最小值，第一次循环计算各行的平均值，并保存到数组b当中。计算平均值需要首先计算数组a各行的累加和，闪此需要一个嵌套的循环来计算各行的平均值，外层循环控制第几行，在内层循环里面计算数组a一行的累加和，累加和得到之后再计算平均值。
在第二次循环中，遍历数组b的各个元素，查找最小值。
转载请注明原文地址:https://kaotiyun.com/show/l2Gp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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