![[问答题] 编程题(26分)编写程序,找出给定范围内所有满足以下条件的整数:该整数的平方数的各位数字之和为素数。 1.程序参考界面如图所示,编程时不得增加或减少界面对象,第1张](/aiimages/%5B%E9%97%AE%E7%AD%94%E9%A2%98%5D+%E7%BC%96%E7%A8%8B%E9%A2%98%2826%E5%88%86%29%E7%BC%96%E5%86%99%E7%A8%8B%E5%BA%8F%2C%E6%89%BE%E5%87%BA%E7%BB%99%E5%AE%9A%E8%8C%83%E5%9B%B4%E5%86%85%E6%89%80%E6%9C%89%E6%BB%A1%E8%B6%B3%E4%BB%A5%E4%B8%8B%E6%9D%A1%E4%BB%B6%E7%9A%84%E6%95%B4%E6%95%B0%3A%E8%AF%A5%E6%95%B4%E6%95%B0%E7%9A%84%E5%B9%B3%E6%96%B9%E6%95%B0%E7%9A%84%E5%90%84%E4%BD%8D%E6%95%B0%E5%AD%97%E4%B9%8B%E5%92%8C%E4%B8%BA%E7%B4%A0%E6%95%B0%E3%80%82+1.%E7%A8%8B%E5%BA%8F%E5%8F%82%E8%80%83%E7%95%8C%E9%9D%A2%E5%A6%82%E5%9B%BE%E6%89%80%E7%A4%BA%2C%E7%BC%96%E7%A8%8B%E6%97%B6%E4%B8%8D%E5%BE%97%E5%A2%9E%E5%8A%A0%E6%88%96%E5%87%8F%E5%B0%91%E7%95%8C%E9%9D%A2%E5%AF%B9%E8%B1%A1.png "[问答题] 编程题(26分)编写程序,找出给定范围内所有满足以下条件的整数:该整数的平方数的各位数字之和为素数。 1.程序参考界面如图所示,编程时不得增加或减少界面对象,第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=" &
欢迎分享，转载请注明来源：内存溢出
微信扫一扫
支付宝扫一扫
评论列表（0条）