问答题
18分
考生文件夹下的工程文件sjt5.vbp中有1个初始内容为空的文本框Text1,2个标题分别是"读数据"和"计算"的命令按钮。请画1个名称为Label2、标题为"各行平均值的最小值为"的标签,再画1个名...
考生文件夹下的工程文件sjt5.vbp中有1个初始内容为空的文本框Text1,2个标题分别是"读数据"和"计算"的命令按钮。请画1个名称为Label2、标题为"各行平均值的最小值为"的标签,再画1个名称为Text2、初始内容为空的文本框。如图所示。
程序功能如下:
1)单击"读数据"按钮,则将考生文件夹下in5.dat文件的内容读入到20行6列的二维数组a中,并同时显示在Text1文本框内;
2)单击"计算"按钮,则自动统计二维数组a中各行的平均值,并将这些平均值中的最小值显示在Text2文本框内。
"读数据"按钮的Click事件过程已经给出,请编写"计算"按钮的Click事件过程实现上述功能。
注意:
考生不得修改窗体文件中已经存在的控件和程序,结束程序运行之前,必须进行"计算",且必须用窗体右上角的关闭按钮结束程序,否则无成绩。最后,程序按原文件名存盘。
程序功能如下:
1)单击"读数据"按钮,则将考生文件夹下in5.dat文件的内容读入到20行6列的二维数组a中,并同时显示在Text1文本框内;
2)单击"计算"按钮,则自动统计二维数组a中各行的平均值,并将这些平均值中的最小值显示在Text2文本框内。
"读数据"按钮的Click事件过程已经给出,请编写"计算"按钮的Click事件过程实现上述功能。
注意:
考生不得修改窗体文件中已经存在的控件和程序,结束程序运行之前,必须进行"计算",且必须用窗体右上角的关闭按钮结束程序,否则无成绩。最后,程序按原文件名存盘。
参考解析: 【考点分析】本题考点有标签控件caption属性,文本框控件的text属性,二维数组的赋值与运算,for循环语句,自定义过程及调用,求极值等。
【解题思路】在按钮事件中用For循环找出各行平均值的最小值。
【操作步骤】
步骤1:打开工程文件。
步骤2:根据要求添加控件,并修改对应属性。
步骤3:打开代码编辑窗口。在指定位置编写代码。
参考答案
Private Sub Command2_Click()
'=======以下由考生编写=====================
Dim average As Integer
Dim Min As Integer
Min = 1000
For i = 1 To 20
average = 0
For j = 1 To 6
average = average + a(i, j)
Next j
average = average / 6
If Min > average Then
Min = average
End If
Next i
Text2.Text = Min
'=======考生编写程序结束===================
End Sub
代码结束
步骤4:调试并运行程序,关闭程序后按题目要求存盘。