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

admin2019-05-14 65

问题在考生文件夹下有一个工程文件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全国计算机二级分类

二级VB

NCRE全国计算机二级

相关试题推荐

随机试题

最新回复(0)

二级VB

NCRE全国计算机二级

请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Forml的窗体上画一个名称为Frame1、标题为“目的地”的框架，在框架中添加三个复选框，名称分别为Check1、Check2、Check3，其标题分别是“上海

请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Forml的窗体上画一个名称为Combol的组合框，其宽度为1200，其类型如图3．102所示(即简单组合框)。要求如下：①请按图中所示，通过属性窗口输入“北

(1)在名称为Forml的窗体上画一个名称为lblPwd的标签，标题为“密令”；画两个文本框，名称分别为txtPwd、txtObi，都没有初始内容；再画三个命令按钮，名称分别为cmdShow、cmdide、cmdCopy，标题分别为“显示”、“隐藏”、“复

临产的标志是()

手舞足蹈：高兴

根据施工质量事故调查处理的一般程序，事故处理的最后一步工作是()。

下列选项中，说法正确的是()。

根据《人民警察法》规定，公安机关的人民警察应当履行下列哪些职责?()

羁束行政行为是指法律明确规定了行政行为的范围、条件、程度、方法等，行政机关没有自由选择的余地，只能严格依照法律作出的行政行为。根据上述定义，下列属于羁束行政行为的是()。

2，6，15，30，45，()。

患者，男性，60岁，因口腔颌面部创伤致舌体裂伤，出血明显，口底肿胀，来院急诊，最有效合理的止血方法是()。

この作品はなんと言ってもこせいが欠けています。