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

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

admin2016-12-29  29
问题 在考生文件夹下有一个工程文件sit5．vbp，窗口有2个名称分别为Commandl和Command2、标题分别为“读数据”和“排序”的命令按钮，有2个标题分别为“数组A”和“数组B”的标签。请将窗体标题设置为“完全平方数排序”；再画2个名称分别为Text1和Text2、初始内容都为空的文本框，并且可多行显示，有垂直滚动条，如图2．47所示。程序功能如下：
    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/f9Gp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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