vb编程 编写程序 找出给定范围内所有满足以下条件的整数 该整数的平方数的各位数字之和为素数
来源:学生作业帮 编辑:神马作文网作业帮 分类:综合作业 时间:2024/09/24 23:33:44
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
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之间整数满足千位百位十位个位之和为素数的数