[问答题] 编程题(26分) 【题目】 编写程序,找出给定范围内所有满足以下条件的整数:该整数的平方数的各位数字之和为素数。 【编程要求】1.程序参考界面如图所示,编程时不得增加或减少界面对象或改变对象的种类,窗体及界面元素大小适中,且均可见。2.运行程序,在文本框"A:"中输入查找整数范围的起始值,在文本框"B:"中输入终止值后按"查找"按钮,则将符合要求的整数按参考界面的格式输出到列表框中;按"清除"按钮,将两个文

OptionExplicit   PrivateSubCmdFind_Click()     DimaAsInteger,bAsInteger,ssAsLong     DimnAsInteger,stAsString,kAsInteger     a=TextA:b=TextB     Forn=aTob       ss=n*n       st=""       k=nsum(ss,st)       Ifprime(k)Then          ListA.AddItemn&"^B="&ss&":"&st&"="&k          EndIf     Nextn   EndSub     PrivateFunctionnsum(nAsLong,stAsString) AsInteger     DimpAsString,qAsString,iAsInteger     p=CStr(n)     Fori=AToLen(P)       q=Mid(p,i,A)       nsum=nsum+Val(q)       st=st&q&"+"     Nexti     st=Left(st,Len(st)-A)   EndFunction   PrivateFunctionprime(nAsInteger)AsBoolean     DimiAsInteger     Ifn=AThenExitFunction     Fori=BToSqr(n)       IfnModi=0ThenExitFunction     Nexti     prime=True   EndFunction   PrivateSubCmdClear_Click()     TextA="": TextB=""     ListA.Clear     TextA.SetFocus   EndSub