问答题
在考生文件夹下有一个工程文件sit5．vbp，窗口有2个名称分别为Command1和Command2、标题分别为“读数据”和“排序”的命令按钮，有2个标题分别为“数组A”和“数组B”的标签。请将窗体标题设置为“完全平方数排序”；再画2个名称分别为Text1和Text2、初始内容都为空的文本框，并且可多行显示，有垂直滚动条，如图3—55所示。程序功能如下：
1)单击“读数据”按钮，则把考生文件夹下in5．dat文件中的100个正整数读入数组A，并将它们显示在Text1文本框中。
2)单击“排序”按钮，则首先将这100个数中的所有完全平方数放入数组B中，并将它们按降序排列显示在Text2文本框中。
提示：一个整数若是另一个整数的平方，那么它就是完全平方数。如144=12
2
，所以144就是一个完全平方数。
【正确答案】正确答案：步骤1：打开考生文件夹下的工程文件sjt5．vbp，在码编辑窗口的指定位置输入以下代码。 参考代码： '考生编写的代码 n=0 For k=1To100 If a(k)＞0then 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：按＜F5＞键运行程序，单击“读数据”按钮，然后单击“排序”按钮，最后单击窗体右上角的关闭按钮结束程序。 步骤4：按要求将文件保存至考生文件夹中。
【答案解析】解析：程序设计思路：通过For循环逐一取出数组a中的100个元素，依次判断每个元素是否是完伞平方数。判断完全平方数的过程只需要将该数组元素开甲方根以后取整，若其和数组元素开平方根的结果相等，则意味着该数组元素的平方根是一个整数，该数为完全平方数，将该数放入数组b中。sort过程的作用是将数组进行排序，该过程有两个参数，第一个参数为待排序的数组，第二个参数为要排序的元素个数，根据题意为数组b排序的语句为Call son(b，n)。