2. 计算机
  3. 在考生文件夹下有一个工程文件sjt5．vbp，窗口有2个名称分别为Command1和Command2、标题分别为“读数据"和“排序”的命令按钮，有2个标题分别为“数组A”和“数组B”的标签。请将窗体标题设置为“完全平方数排序”；再画2个名称分别为Text1

在考生文件夹下有一个工程文件sjt5．vbp，窗口有2个名称分别为Command1和Command2、标题分别为“读数据"和“排序”的命令按钮，有2个标题分别为“数组A”和“数组B”的标签。请将窗体标题设置为“完全平方数排序”；再画2个名称分别为Text1

admin2020-07-22  53
问题 在考生文件夹下有一个工程文件sjt5．vbp，窗口有2个名称分别为Command1和Command2、标题分别为“读数据"和“排序”的命令按钮，有2个标题分别为“数组A”和“数组B”的标签。请将窗体标题设置为“完全平方数排序”；再画2个名称分别为Text1和Text2、初始内容都为空的文本框，并且可多行显示，有垂直滚动条，如图3．55所示。程序功能如下：
    1)单击“读数据”按钮，则把考生文件夹下in5．dat文件中的100个正整数读入数组A，并将它们显示在Text1文本框中。
    2)单击“排序”按钮，则首先将这100个数中的所有完全平方数放入数组B中，并将它们按降序排列显示在Text2文本框中。
    提示：一个整数若是另一个整数的平方，那么它就是完全平方数。如144=122，所以144就是一个完全平方数。

    要求：去掉注释符，把?改为正确内容，并添加代码使得“排序”命令按钮的Click事件过程可以实现上述功能。
    提示：Sort过程可以把求出的完全平方数进行排序，可以直接调用。
    注意：考生不得修改窗体文件中已经存在的控件和程序，在结束程序运行之前，必须进行“排序”，且须用窗体右上角的关闭按钮结束程序，否则无成绩。最后，程序按原文件名存盘。
选项
答案步骤1：打开考生文件夹下的工程文件sjt5．vbp，在码编辑窗口的指定位置输入以下代码。参考代码： ’考生编写的代码 n=0 For k=1 To 100 If a(k) >0 Then d=Sqr(a(k)) If Int(d)=d Then n=n+1 ： b(n) =a(k) End If End If Next 步骤2：在代码编辑窗口中，去掉程序中的注释符“’”，将问号“?”改为正确的内容。参考代码： Call sort(b，n) 步骤3：按键运行程序，单击“读数据”按钮，然后单击“排序”按钮，最后单击窗体右上角的关闭按钮结束程序。 步骤4：按要求将文件保存至考生文件夹中。
解析 程序设计思路：通过For循环逐一取出数组a中的100个元素，依次判断每个元素是否是完全平方数。判断完全平方数的过程只需要将该数组元素开平方根以后取整，若其和数组元素开平方根的结果相等，则意味着该数组元素的平方根是一个整数，该数为完全平方数，将该数放入数组b中。sort过程的作用是将数组进行排序，该过程有两个参数，第一个参数为待排序的数组，第二个参数为要排序的元素个数，根据题意为数组b排序的语句为Call sort(1)，n)。
转载请注明原文地址:https://kaotiyun.com/show/e8Hp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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