2. 计算机
  3. 在考生文件夹下有一个工程文件sjt5.vbp，其功能是： ①单击“读数据”按钮，则把考生文件夹下in5.dat文件中的100个正整数读入数组a中，同时显示在Text1，文本框中； ②单击“分组”按钮，则将数组a中所有3的倍数的元素存入数

在考生文件夹下有一个工程文件sjt5.vbp，其功能是： ①单击“读数据”按钮，则把考生文件夹下in5.dat文件中的100个正整数读入数组a中，同时显示在Text1，文本框中； ②单击“分组”按钮，则将数组a中所有3的倍数的元素存入数

admin2018-10-29  18
问题 在考生文件夹下有一个工程文件sjt5.vbp，其功能是：
     ①单击“读数据”按钮，则把考生文件夹下in5.dat文件中的100个正整数读入数组a中，同时显示在Text1，文本框中；
     ②单击“分组”按钮，则将数组a中所有3的倍数的元素存入数组b中，并对数组b中的元素从小到大排序后显示在文本框Text2中。在给出的窗体文件中已经有了全部控件（如图1－206所示），但程序不完整。

     要求：编写适当的程序部分使其实现上述功能。
     注意：考生不得修改窗体文件中已经存在的控件和程序，在结束程序运行之前，必须先执行“分组”操作，然后再用窗体右上角的关闭按钮结束程序，否则无成绩。最后，程序按原文件名存盘。
选项
答案【操作步骤】 步骤1：打开考生文件夹中的本题工程文件sjt5.vbp，在代码编辑窗口指定位置编写以下代码： 参考代码： For i = 1 To 100 If a(i) / 3 = Fix(a(i) / 3) Then num = num + 1 b(num) = a(i) End If Next For i = 1 To num - 1 For j = i + 1 To num If b(i) ＞ b(j) Then tem = b(i) b(i) = b(j) b(j) = tem End If Next Next 步骤2：按＜F5＞键运行程序，先单击“读数据” 按钮，再单击“分组”按钮，最后单击窗体右上角的关闭按钮结束程序。 步骤3：按要求将文件保存至考生文件夹中。
解析
转载请注明原文地址:https://kaotiyun.com/show/YtFp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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