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

admin2019-04-04  53

问题 编程题
【要求】
(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://jikaoti.com/ti/rkO7FFFM
0

最新回复(0)