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

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

admin2018-10-29  58
问题 考生文件夹下的工程文件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＝1 To 20 b(i)＝0 For j＝1 To 6 b(i)＝b(i)＋a(i，j) Next j b(i)＝b(i)／6 Next i j＝10000 For i＝1 To 20 If b(i)＜J Then j＝b(i) Next Text2．Text＝j ’＝＝＝＝＝＝＝＝＝考生编写程序结束＝＝＝＝＝＝＝＝＝ End Sub 步骤3：按＜F5＞运行程序，单击各按钮测试验证。 步骤4：按要求将文件保存至考生文件夹中。
解析
转载请注明原文地址:https://www.kaotiyun.com/show/KCFp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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