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

admin2019-05-14 30

问题在考生文件夹下有一个工程文件sjt5．vbp，窗口有2个名称分别为Command1和Command2、标题分别为“读数据”和“排序”的命令按钮，有2个标题分别为“数组A”和“数组B”的标签。请将窗体标题设置为“完全平方数排序”；再画2个名称分别为Text1和Text2、初始内容都为空的文本框，并且可多行显示，有垂直滚动条，如图3—55所示。

程序功能如下：
1)单击“读数据”按钮，则把考生文件夹下in5．dat文件中的100个正整数读入数组A，并将它们显示在Text1文本框中。
2)单击“排序”按钮，则首先将这100个数中的所有完全平方数放入数组B中，并将它们按降序排列显示在Text2文本框中。
提示：一个整数若是另一个整数的平方，那么它就是完全平方数。如144＝12²，所以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：按要求将文件保存至考生文件夹中。

解析

转载请注明原文地址:https://kaotiyun.com/show/HTUp777K

本试题收录于：二级VB题库NCRE全国计算机二级分类