作业帮 > 综合 > 作业

vb编程 编写程序 找出给定范围内所有满足以下条件的整数 该整数的平方数的各位数字之和为素数

来源：学生作业帮 编辑：作业帮 分类：综合作业 时间：2024/05/16 05:17:34
vb编程 编写程序 找出给定范围内所有满足以下条件的整数 该整数的平方数的各位数字之和为素数
Private Sub Command1_Click()
Dim I As Integer, J As Integer
Dim A As Integer, B As Integer
Dim S As String, N As Integer
Dim P As String
A = Val(Text1.Text)
B = Val(Text2.Text)
For I = A To B
P = ""
If Prime(Sum(I ^ 2)) = True Then
S = CStr(I ^ 2)
For J = 1 To Len(S) - 1
P = P & Mid(S, J, 1) & "+"
Next
P = P & Right(S, 1) & "=" & Sum(I ^ 2)
List1.AddItem CStr(I) & "^2=" & I ^ 2 & ":" & P
End If
Next
End SubPrivate Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
List1.Clear
Text1.SetFocus
End SubFunction Sum(N As Integer) As Integer '求一个整数各位数之和
Dim I As Integer, S As String
S = CStr(N)
For I = 1 To Len(S)
Sum = Sum + Val(Mid(S, I, 1))
Next
End FunctionFunction Prime(N As Integer) As Boolean '判断一个整数是否为素数
Dim I As Integer
If N <= 1 Then Prime = False: Exit Function
For I = 2 To N / 2
If N Mod I = 0 Then
Prime = False
Exit Function
End If
Next
If I > N / 2 Then Prime = True
End FunctionPrivate Sub Form_Load()
Form1.Caption = "看不清楚标题,这儿自己改"
End Sub
vb编程 编写程序 找出给定范围内所有满足以下条件的整数 该整数的平方数的各位数字之和为素数 急求VB编程：找出指定范围内本身及其平方数均由不同数字组成的整数. 3.vb编写程序,输入三位整数,判断该数是否符合以下条件:它除以9的商等于它各位上 编写程序,找出1000-9999范围内的所有满足“各位数的四次方之和等于他本身“的四位数, 填空找出 100-999 之间所有整数中各位上数 字之和为 x 的整数,把符合条件的整数存放到一个数组中 vb例题：任意输入一个整数,编写程序判断该整数的奇偶数 编写程序：找出四位整数（1000至9999）之间的所有素数,求这些素数的和, 编写一个程序,其功能是判断某个整数是否为素数,且程序中能够调用该函数,以实现求1000内的所有素数和. 用VB程序做以下题目求所有的三位数,他满足该数中有某两位为相同数字,且该数是一个完全平方数,并求出所有这些数的和 C语言：请编写程序,找出满足如下条件的整数m 编程输出 100-999 之间所有满足下列条件的整数：这些数既是完全平方数,又有两位数字相同 找出1000到9999之间整数满足千位百位十位个位之和为素数的数