2. 计算机
  3. 考生文件夹下的工程文件sjt5．vbp中有1个初始文本为空的文本框Textl，2个标题分别是“读数据”和“计算”的命令按钮；请添加1个标题为“各行最小数的平均值为”的标签Label2，再添加1个初始文本为空的文本框Text2，如图所示。 程序功能如下：

考生文件夹下的工程文件sjt5．vbp中有1个初始文本为空的文本框Textl，2个标题分别是“读数据”和“计算”的命令按钮；请添加1个标题为“各行最小数的平均值为”的标签Label2，再添加1个初始文本为空的文本框Text2，如图所示。 程序功能如下：

admin2013-11-29  64
问题 考生文件夹下的工程文件sjt5．vbp中有1个初始文本为空的文本框Textl，2个标题分别是“读数据”和“计算”的命令按钮；请添加1个标题为“各行最小数的平均值为”的标签Label2，再添加1个初始文本为空的文本框Text2，如图所示。 程序功能如下：
    ①单击“读数据”按钮，则将考生文件夹下in5．dat文件的内容读入20行5列的二维数组a中，同时在Textl文本框内显示。
    ②单击“计算”按钮，程序则自动统计二维数组中各行的最小数，并将这些最小数的平均值显示在Text2文本框内。“读数据”按钮的Click事件过程已经给出，请编写“计算”按钮的Click事件过程实现上述的功能。
    注意：考生不得修改窗体文件中已经存在的控件和程序，在结束程序运行之前，必须进行“计算”，且必须用窗体右上角的关闭按钮结束程序，否则无成绩。最后，程序按原文件名进行存盘。
选项
答案Commandl Click单击“读数据”按钮事件过程中，通过文件操作和For循环语句把考生文件夹下in4．dat文件的内容读，5)As Integer Private Sub Commandl＿Click() Open App．Path&“＼in5．dat”For Input As#l For i=1 To 20 For j=1 To 5 Input#1，a(i，j) TextI=Textl+Sir(a(i，J))+Space(2) Next J Textl=Textl+Chr(13)+Chr(10) Next i Close#1 End Sub Private Sub Command2＿Click() 考生编写 End Sub Private Sub Form＿Unload(Cancel As Integer) Open App．Path&“＼out5．dat”For Output As#l Print#1．Text2．Text Close＃1 End Sub 程序结束 Private Sub Command2＿Click() 考生编写 Dim sum As Long Dim rain As Long Dim b(20)As Integer For i=1 To 20 min=a(i，1) For j=1 To 5 lf a(i，j)
解析
转载请注明原文地址:https://www.kaotiyun.com/show/lXQp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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