首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
编程题 【要求】 (1)打开“T盘”中“P3vbp”文件,根据题目要求编写和调试程序后,直接保存所有文件。 (2)程序代码书写应呈锯齿形,否则适当扣分。 【题目】编写程序,找出给定范围内所有不是素数的亏数。所谓亏数是指除本身外其所有因子之和小于自身的正整
编程题 【要求】 (1)打开“T盘”中“P3vbp”文件,根据题目要求编写和调试程序后,直接保存所有文件。 (2)程序代码书写应呈锯齿形,否则适当扣分。 【题目】编写程序,找出给定范围内所有不是素数的亏数。所谓亏数是指除本身外其所有因子之和小于自身的正整
admin
2019-04-04
114
问题
编程题
【要求】
(1)打开“T盘”中“P3vbp”文件,根据题目要求编写和调试程序后,直接保存所有文件。
(2)程序代码书写应呈锯齿形,否则适当扣分。
【题目】编写程序,找出给定范围内所有不是素数的亏数。所谓亏数是指除本身外其所有因子之和小于自身的正整数。例如106的因子为1、2、53,和为56,故106是亏数。(注意:凡因子和为1的即为素数)
【编程要求】
(1)程序参考界面如图所示,编程时不得增加或减少界面对象或改变对象的种类,窗体及界面元素大小适中,且均可见。
(2)运行程序,在“a:”文本框中输入数据范围的起始值,在“b:”文本框中输
入数据范围的终止值后,单击“查找”按钮,若数据范围内存在“亏数”,则将它们按附图参考界面所示的格式输出到列表框中,否则在列表框中输出“指定范围内无亏数”的信息;按“清除”按钮,将文本框与列表框清空,焦点置于“a:”文本框上。
(3)程序中至少应定义一个通用过程,用于求一个整数的因子和或判断其是否为“亏数”。
选项
答案
OptionExplicitOptionBase1 PrivateSubCmdClear_Click() Text1.Text="":Text2.Text=""List1.Clear Text1.SetFocusEndSub Private SubCmdFind_Click( ) DimaAsInteger,bAsInteger,iAsInteger DimstAsString,flgAsBoolean,sumAsIntegera=Val(Text1.Text) b=Val(Text2.Text)Fori=aTob flg=False:st="":sum=0Calljudge(i,flg,st,sum) IfflgThen List1.AddItemi&":"&st&"="&sumEndIf Nexti IfList1.ListCount=0ThenList1.AddItem"指定范围内无亏数!"EndSub PrivateSubjudge(nAsInteger,fgAsBoolean,stAsString,sumAsInteger)DimiAsInteger Fori=1Ton-1 IfnModi=0Thensum=sum+i st=st&i&"+"EndIf Nexti Ifsum
1Thenfg=True st=Left(st,Len(st)-1) EndIfEndSub [*]
解析
转载请注明原文地址:https://kaotiyun.com/show/bIhZ777K
0
全国高校计算机二级
相关试题推荐
GooglealreadyhasawindowintooursoulsthroughourInternetsearchesanditnowhasinsightintoourailingbodiestoo.The
Work/lifebalancewasthebuzz-phraseofthelate1990s.Apparentlytoomanypeoplewhowerecashrichandtimepoorwerebecomi
Whethertheeyesare"thewindowsofthesoul"isdebatable;thattheyareintenselyimportantininterpersonalcommunicationis
输入n个整数,输出其中最小的k个。例如输入1,2,3,4,5,6,7和8这8个数字,则最小的4个数字为1,2,3和4。
设置拨号连接属性卸载Qos数据包计划程序。
设置拨号连接属性启动“Microsoft网络客户端”组件。
关于磁盘下面说法()是正确的。A.软磁盘携带方便,新盘使用前必须进行格式化B.3.5英寸软盘的写保护块遮住方孔时,只能读、不能写C.硬磁盘不要轻易格式化,每次格式化之前,必须先进行分区D.硬磁盘的盘片与驱动器密封为一个整体,不易损坏,寿命长
要使Excel97的某单元格内输入的数据介于18至60之间,而一旦超出范围就出现错误提示,使用()。A.“数据”菜单下的“有效数据”命令B.“格式”菜单中的“单元格”命令C.“格式”菜单中的“条件格式”命令D.“格式”菜单中的“样式”命令
通过快捷菜单调出语言栏,然后利用“开始”菜单打开控制面板,设置在任务栏中显示快速启动区。
设置为键入时检查语法和随拼写检查语法
随机试题
鼻咽癌最常见的转移部位是
男性,28岁,建筑工人,半小时前上半身被水泥预制板压伤,呼吸困难。查体见神志清醒,血压18/14kPa,脉搏100次/分,呼吸30次/分,两眼结膜充血,颈静脉怒张,前胸皮肤瘀斑,腹软,无压痛,尿常规正常。最可能的诊断是
昏迷患者最重要的神经系统检查是
T管拔除的指征是
以下哪项不是血瘀经期延长的主证
具有安全电压的电气设备是()类设备。
某公司2006年年终利润分配前的股东权益项目资料如下: 公司股票的每股现行市价为14元。 要求计算回答下述互不关联的问题: (1)如若按1股换4股的比例进行股票分割,计算股东权益各项目数额、普通股股数; (2)假设利润分配前后每股市价
二元函数f(x,y)在点(0,0)处可微的一个充分条件是()
(2011下集管)通常把被批准的详细的项目范围说明书和与之相关的______作为项目的范围基准,并在整个项目的生命期内对之进行监控、核实和确认。
WillChineseReplaceEnglish?ChineselanguagehasmanyadvantagesoverEuropeanlanguagesandthespeakerthinksChineseispos
最新回复
(
0
)