(1)在考生文件夹下有一个工程文件sjt3．vbp，其功能是： ①单击“读数据”按钮，则把考生文件夹下in3．dat文件中的100个正整数读入数组a中； ②单击“统计”按钮，则找出这100个正整数中的所有完全平方数(一个整数若是另外一个整数的平方，那么它就

admin2015-05-30 25

问题 (1)在考生文件夹下有一个工程文件sjt3．vbp，其功能是：
①单击“读数据”按钮，则把考生文件夹下in3．dat文件中的100个正整数读入数组a中；
②单击“统计”按钮，则找出这100个正整数中的所有完全平方数(一个整数若是另外一个整数的平方，那么它就是完全平方数。例如，36=62，所以36就是一个完全平方数)，并将这些完全平方数的最大值与个数分别显示在文本框Text1、Text2中。在给出的窗体文件中有了全部控件(如图6所示)，但程序不完整，请将程序中的注释符去掉，把?号改为正确的内容，实现上述功能。

注意：考生不得修改窗体文件已存在的控件和程序，最后将程序原文件名存盘。
(2)在考生文件夹下有一个工程文件sjt4．vbp，其窗体上有两个标题分别为“添加”和“退出”的命令按钮，一个内容为空的列表框List 1。请画一个标签，其名称为Label1，标题为“请输入编号”；再画一个名称为Text1，初始值为空的文本框，如图7所示。程序功能如下：
①系统启动时，自动向列表框添加一个编号信息“a0001”。

②系统运行时，在文本框’Fextl中输入一个编号，并单击“添加”按钮时，如果该编号与已存在于列表框中的其他编号不重复，则将其添加到列表框List 1已有项目之后；否则，将弹出“不允许重复输入，请重新输入!”对话框，单击该对话框中的“确定”按钮，可以重新输入。
③单击“退出”按钮，则结束程序运行。要求：请去掉程序中的注释符，把程序中的?改为正确的内容，使其实现上述功能，但不能修改窗体文件中已经存在的控件和程序。最后把修改后的文件按原文件名存盘。

选项

答案第1小题【操作步骤】步骤1：打开考生文件夹下的本题工程文件sjt3．vbp，去掉程序中的注释符“’”，将问号“?”改为正确的内容。参考代码： Ifx=m“^”then：is_square=flag Ifa(k)>max Then Text1．Text=max：Fext2．Text=num 步骤2：按要求将文件保存至考生文件夹中。第2小题【操作步骤】步骤1：打开考生文件中的本题工程文件sjt4．vbp，如表12-5在窗体中画出控件并设置其相关属性。 [*] 步骤2：在代码编辑窗口，去掉程序中的注释符“’”，将问号“?”改为正确的内容。参考代码： List 1．Addltem"a000 1" For i=0 To List1．ListCount-1 List1．List1ndex=I：List1．Addltem Text1．Text End 步骤3：按要求将文件保存至考生文件夹中。

解析 (1)Sqr(N)求平方根函数，用于返回N的算术平方根。is square(1函数用于判断参数x是否为完全平方数，方法是从1到x的平方根进行循环，依次判断x是否能等于循环变量的平方，若等于则退出循环，返回True，若循环结束后都没有等于某个循环变量的平方则返回False，求完全平方数的最大值，只需要先预设最大值为0，然后在循环中每次找到一个完全平方数就将其与最大值比较，若大于预设最大值则令其为新的最大值，同时令计数器加1，循环结束后可得最大值与个数。
(2)若要在系统启动时，自动向列表框添加一个编号信息“a0001”，需要在窗体的Load事件中调用列表框的AddItem方法向列表框中添加列表项。在“添加”按钮的单击事件中，需要判断输入的值是否在列表框中己存在，为了实现这个功能，需要遍历整个列表框，其循环条件为For i=0 To List1．ListCount-1：在循环中首先令List1ndex属性值为i，这样第i个列表项的内容就是列表框的Text属性值，可以与文本框中的内容进行比较，若已经存在则弹出提示信息，并退出事件过程，若循环结束后还没有重复，则调用列表框的AddItem方法将文本框的内容加入列表框。
在“退出”按钮的单击事件过程中，使用End语句结束整个程序的运行。

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

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

二级VB

NCRE全国计算机二级

相关试题推荐

随机试题

最新回复(0)

二级VB

NCRE全国计算机二级

在一个窗体上添加一命令按钮控件，名为Command1，事件过程如下，则执行结果是()。OptionBase1PrivateSubCommand1_Click()Dima(5)AsIntegerDimk

在窗体上画一个名称为List1的列表框，一个名称为Label1的标签。列表框中显示若干国家的名称，当单击列表中的某个国家名时，在标签中显示选中国家的名称。下列正确实现上述功能的程序是()。

要在文本框获得焦点时操作文本框中的内容，应该在()事件过程中编写程序。

下列程序段运行后窗体上输出结果为()。PrivateSubCommand1_Click()a=5:b=4:c=3:d=2x=3＞2*bOra=cAndb＜＞cOrc＞d

下列程序的输出结果为______。SubPrin()DimBAsStringA=1B=A&Space(4)&APrintAPrintTrim(B)

如果准备读文件，打开随机文件“text.dat”的正确语句是()。

有下列两个过程：SubS1(ByValxAsInteger,ByValyAsInteger)DimtAsIntegert=Xx=yy=tEndSubSub

下面的程序代码实现将一个一维数组中元素向右循环移动，移位次数由文本框Text1输入。例如数组各元素的值依次为0,1,2,3,4,5,6,7,8,9,10;移动三次后，各元素的值依次为8,9,10,0,1,23,4,5,6,

设有下列二叉树：对此二叉树前序遍历的结果为

《子虚赋》和《上林赋》是司马相如的代表作，它们虽有二名，实为一篇，统称________。

如果投资者想要快速的将证券兑现为货币，在证券投资中他应该把握()

Windows中“资源管理器”中部的窗口分隔条

制定《执业医师法》的目的不包括

男，40岁。术后粘连性肠梗阻3天，加重1天。查体：可见肠蠕动波，肠鸣音亢进，右下腹有局限性压痛。多次立位腹部X线平片可见固定肠襻。正确的治疗措施是()

在Word编辑状态下，选择整个文档内容可通过()实现。

项目评估财务报表的特点不包括()。

注册会计师编制的每一张审计工作底稿，都应使()清楚地了解实施的审计程序、获取的审计证据和形成的审计结论。

学生品德形成的基础是()。