首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
(1)在考生文件夹下有一个工程文件sjt3.vbp,其功能是: ①单击“读数据”按钮,则把考生文件夹下:in3.dat文件中的100个正整数读入数组a中; ②单击“统计”按钮,则找出这100个正整数中的所有完全平方数(一个整数若是另外一个整数的平方,那么它
(1)在考生文件夹下有一个工程文件sjt3.vbp,其功能是: ①单击“读数据”按钮,则把考生文件夹下:in3.dat文件中的100个正整数读入数组a中; ②单击“统计”按钮,则找出这100个正整数中的所有完全平方数(一个整数若是另外一个整数的平方,那么它
admin
2017-06-22
20
问题
(1)在考生文件夹下有一个工程文件sjt3.vbp,其功能是:
①单击“读数据”按钮,则把考生文件夹下:in3.dat文件中的100个正整数读入数组a中;
②单击“统计”按钮,则找出这100个正整数中的所有完全平方数(一个整数若是另外一个整数的平方,那么它就是完全平方数。例如,36=62,所以36就是一个完全平方数),并将这些完全平方数的最大值与个数分别显示在文本框TeXt1、Text2中。
在给出的窗体文件中有了全部控件(如图6所示),但程序不完整,请将程序中的注释符去掉,把?号改为正确的内容,实现上述功能。
注意:考生不得修改窗体文件已存在的控件和程序,最后将程序原文件名存盘。
(2)在考生文件夹下有一个工程文件sjt4.vbp,其窗体上有两个标题分别为“添加”和“退出”的命令按钮,一个内容为空的列表框List1。请画一个标签,其名称为Label1,标题为“请输入编号”;再画一个名称为Text1,初始值为空的文本框,如图7所示。程序功能如下:
①系统启动时,自动向列表框添加一个编号信息“a0001”。
②系统运行时,在文本框Text1中输入一个编号,并单击“添加”按钮时,如果该编号与已存在于列表框中的其他编号不重复,则将其添加到列表框Listl1已有项目之后;否则,将弹出“不允许重复输入,请重新输入!”对话框,单击该对话框中的“确定”按钮,可以重新输入。
③单击“退出”按钮,则结束程序运行。
要求:请去掉程序中的注释符,把程序中的?改为正确的内容,使其实现上述功能,但不能修改窗体文件中已经存在的控件和程序。最后把修改后的文件按原文件名存盘。
选项
答案
(1)步骤1:打开考生文件夹下的本题工程文件sjt3.vbp,去掉程序中的注释符“’”,将问号“?”改为正确的内容。 参考代码: Ifx=m^2 Then:is_square=flag Ifa(k)>max Then Text1.Text=max:Text2.Text=num 步骤2:按要求将文件保存至考生文件夹中。 (2)步骤1:打开考生文件中的本题工程文件sjt4.vbp,如下表在窗体中画出控件并设置其相关属性。 [*] 步骤2:在代码编辑窗口,去掉程序中的注释符“’”,将问号“?”改为正确的内容。 参考代码: List 1.AddItem"a0001" For i=0 To List1.ListCount-1 List1.ListIndex=1:List1.AddItem Text1.Text End 步骤3:按要求将文件保存至考生文件夹中。
解析
(1)is_squareO函数用于判断参数x是否为完全平方数,方法是从1到x的平方根进行循环,依次划断x是否能等于循环变量的平方,若等于则退出循环,返回True,若循环结束后都没有等于某个循环变量的平方则返回False。
求完全平方数的最大值,只需要先预设最大值为0,然后在循环中每次找到一个完全平方数就将其与最大值比较,若大于预设最大值则令其为新的最大值,同时令计数器加l,循环结束后可得最大值与个数。
(2)若要在系统启动时,自动向列表框添加一个编号信息“a0001”,需要在窗体的Load事件中调用列表框的AddItem方法向列表框中添加列表项。
在“添加”按钮的单击事件中,需要判断输入的值是否在列表框中已存在,为了实现这个功能,需要遍历整个列表框,其循环条件为For i=0 To List1.ListCount-1;在循环中首先令ListIndex属性值为i,这样第i个列表项的内容就是列表框的Text属性值,可以与文本框中的内容进行比较,若已经存在则弹出提示信息,并退出事件过程,若循环结束后还没有重复,则调用列表框的AddItem方法将文本框的内容加入列表框。在“退出”按钮的单击事件过程中,使用End语句结束整个程序的运行。
转载请注明原文地址:https://kaotiyun.com/show/jDGp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
单击命令按钮时,下列程序代码的执行结果为______。PublicSubProcl(nAsInteger,ByValmAsInteger)n=nMod10m=m/10EndSubPrivateSubConunan
在窗体上面一个名称为TxtA的文本框,然后编写如下的事件过程:PrivateSubTxtA_KeyPress(KeyAsciiasInteger)…EndSub若焦点位于文本框中,则能够触发KeyPress事件的操
栈和队列的共同点是()。
不在VisualBasic6启动时的基本控件集中的是______。
关闭当前的工程并退出VisualBasic的快捷键是
下列程序的运行结果是______。Subabcd(ByValnAsInteger)n=n+5EndSubPrivateSubForm_Click()nx%=3Callabcd(nx%)
设一个工程由两个窗体组成,其名称分别为Form1和Form2,在Form1上有一个名称为Command1的命令按钮。窗体Form1的程序代码如下:PrivateSubCommand1_Click()DimaksInteger
在数据库管理技术的发展过程中,经历了人工管理阶段、文件系统阶段和数据库系统阶段。其中数据独立性最高的阶段是
在数据管理技术发展过程中,文件系统与数据库系统的主要区别是数据库系统具有______。
已知x=5,y=2,z=6。表达式x>yAndz>xOrx<yAndNotz>y的值是()。
随机试题
MaryArming(1799—1847)wasaBritishfossilhunterwhobeganfinding【21】asachild,andsoonsupportedherselfandhervery【22】
关于腰椎前后位成像技术标准的叙述,不正确的是
某外商投资企业银行存款(美元)账户上期期末余额为50000美元,上期末市场汇率为1美元=6.30元人民币,该企业外币交易采用当日市场汇率折算,该企业本月10日将其中10000美元在银行兑换为人民币,银行当日美元买入价为1美元=6.25元人民币,当日市场汇率
中国电信行业经历了三次重大改革后,从完全垄断走向寡头竞争格局。但是。行业垄断状况依然严重。在移动市场上,中国移动“一家独大”,在宽带市场上,中国电信和中国联通南北垄断。中国电信行业仍然是政府管制下的强垄断市场,其强垄断状况将电信资费维持在较高的水平,不仅降
下列对子网系统的防火墙的描述错误的是
ComputertechnologyhasmadecheckingdictionarieswritteninChineseamuchmore(i)______task.SincetheChineselanguagesdid
ProductionoftheAmbassador,thefirstcartobemadeinIndia,hasbeenhaltedbecauseoffallingdemand.ModelledontheMorr
Yourweightaffectshowlongyoulive—butit’sextremelycomplicatedA)Weoftenthinkaboutweightlossintheshortterm,h
A、Soughtafterbytoomanypeople.B、Toodifficultforyoungpeople.C、Forambitiouspeopleonly.D、Foryoungpeopleonly.A
A、Becausehedislikedhisradio.B、Becausehedidn’treturntheradiotothewoman.C、Becausehelefthisradiotooloud.D、Beca
最新回复
(
0
)