2. 计算机
  3. 编程题 【要求】 (1)打开“T盘”中“P3vbp”文件，根据题目要求编写和调试程序后，直接保存所有文件｡ (2)程序代码书写应呈锯齿形，否则适当扣分｡ 【题目】编写程序，找出给定范围内所有不是素数的亏数｡所谓亏数是指除本身外其所有因子之和小于自身的正整

编程题 【要求】 (1)打开“T盘”中“P3vbp”文件，根据题目要求编写和调试程序后，直接保存所有文件｡ (2)程序代码书写应呈锯齿形，否则适当扣分｡ 【题目】编写程序，找出给定范围内所有不是素数的亏数｡所谓亏数是指除本身外其所有因子之和小于自身的正整

admin2019-04-04  98
问题 编程题
【要求】
(1)打开“T盘”中“P3vbp”文件，根据题目要求编写和调试程序后，直接保存所有文件｡
(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 Ifsum1Thenfg=True st=Left(st，Len(st)-1) EndIfEndSub [*]
解析
转载请注明原文地址:https://kaotiyun.com/show/bIhZ777K
0

全国高校计算机二级

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