[問答題] 編程題(26分) 【題目】 編寫程序,找出給定范圍內(nèi)所有滿足以下條件的整數(shù):該整數(shù)的平方數(shù)的各位數(shù)字之和為素?cái)?shù)。 【編程要求】1.程序參考界面如圖所示,編程時(shí)不得增加或減少界面對象或改變對象的種類,窗體及界面元素大小適中,且均可見。2.運(yùn)行程序,在文本框"A:"中輸入查找整數(shù)范圍的起始值,在文本框"B:"中輸入終止值后按"查找"按鈕,則將符合要求的整數(shù)按參考界面的格式輸出到列表框中;按"清除"按鈕,將兩個(gè)文本框與列表框清空,焦點(diǎn)置于文本框"A:"上。 3.程序中至少應(yīng)定義一個(gè)通用過程,用于求一個(gè)整數(shù)各位數(shù)字之和或判斷一個(gè)整數(shù)是否是素?cái)?shù)(注意:1不是素?cái)?shù))?！疽蟆繉⒋绑w文件和工程文件分別命名為F2和P2,并保存到T盤的根目錄下。

Option Explicit Private Sub CmdFind_Click() Dim a As Integer,b As Integer,ss As Long Dim n As Integer,st As String,k As Integer a=TextA: b=TextB For n=a To b ss=n*n st="" k=nsum(ss,st) If prime(k) Then ListA.AddItem n & "^B=" &