[问答题] 编程题(26分) 编写程序,找出给定范围内所有满足以下条件的整数:该整数的平方数的各位数字之和为素数。 1.程序参考界面如图所示,编程时不得增加或减少界面对象

[问答题] 编程题(26分) 【题目】 编写程序,找出给定范围内所有满足以下条件的整数:该整数的平方数的各位数字之和为素数。 【编程要求】1.程序参考界面如图所示,编程时不得增加或减少界面对象或改变对象的种类,窗体及界面元素大小适中,且均可见。2.运行程序,在文本框"A:"中输入查找整数范围的起始值,在文本框"B:"中输入终止值后按"查找"按钮,则将符合要求的整数按参考界面的格式输出到列表框中;按"清除"按钮,将两个文本框与列表框清空,焦点置于文本框"A:"上。 3.程序中至少应定义一个通用过程,用于求一个整数各位数字之和或判断一个整数是否是素数(注意:1不是素数)。【要求】将窗体文件和工程文件分别命名为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=" &