不好意思,能在今天晚上12点之前给我解答一下吗.用vb验证一个大于5的奇数等于3个素数之和,
来源:学生作业帮 编辑:大师作文网作业帮 分类:综合作业 时间:2024/11/18 14:16:48
不好意思,能在今天晚上12点之前给我解答一下吗.用vb验证一个大于5的奇数等于3个素数之和,
输出格式为55=3+5+47
77=2+2+73
奖金什么的还可以再加的
输出格式为55=3+5+47
77=2+2+73
奖金什么的还可以再加的
Function CombinePrime(Num)
Dim a As Long,b As Long,c As Long
a = 1
Do While a = 2
b = b + 1
c = Num - a - b
If IsPrimeNum(a) And IsPrimeNum(b) And IsPrimeNum(c) Then
MsgBox Str(Num) & "由素数" & Str(a) & Str(b) & Str(c) & "组成"
Exit Function
End If
Loop
Loop
End Function
Function IsPrimeNum(Num) As Boolean
Dim i As Long,j As Long
j = Int(Sqr(Num))
If Num >= 2 Then IsPrimeNum = True
For i = 2 To j
If Num Mod i = 0 Then
IsPrimeNum = False
Exit For
End If
Next
End Function
Private Sub Command1_Click()
Dim a As Integer
If Text1.Text "" Then
a = Text1.Text
If a Mod 2 0 And a >= 7 Then
Call CombinePrime(a)
Else
MsgBox "输入错误,请输入大于5的奇数!"
End If
Else
MsgBox "输入错误,请输入大于5的奇数!"
End If
End Su
Dim a As Long,b As Long,c As Long
a = 1
Do While a = 2
b = b + 1
c = Num - a - b
If IsPrimeNum(a) And IsPrimeNum(b) And IsPrimeNum(c) Then
MsgBox Str(Num) & "由素数" & Str(a) & Str(b) & Str(c) & "组成"
Exit Function
End If
Loop
Loop
End Function
Function IsPrimeNum(Num) As Boolean
Dim i As Long,j As Long
j = Int(Sqr(Num))
If Num >= 2 Then IsPrimeNum = True
For i = 2 To j
If Num Mod i = 0 Then
IsPrimeNum = False
Exit For
End If
Next
End Function
Private Sub Command1_Click()
Dim a As Integer
If Text1.Text "" Then
a = Text1.Text
If a Mod 2 0 And a >= 7 Then
Call CombinePrime(a)
Else
MsgBox "输入错误,请输入大于5的奇数!"
End If
Else
MsgBox "输入错误,请输入大于5的奇数!"
End If
End Su
用VB编程序验证哥德巴赫猜想,即一个大于等于6的偶数可以表示为两个素数之和
编写VB程序验证歌德巴赫猜想:一个大于等于6的偶数可以表示为两个素数之和.
用VB验证哥德巴赫猜想,任何一个大于6的偶数,均表示为两个素数之和,
急求:VB编程验证歌德巴赫猜想.即一个大于等于6的偶数可以表示为两个素数之和.
我写了一个程序是验证哥德巴赫猜想的6到100的偶数,大于等于6的偶数等于2个素数之和,比如6=3+3,
编程验证歌德巴赫猜想.即一个大于等于6的偶数可以表示为两个素数之和 用pascal
一个VB题目,验证“哥德巴赫猜想:任何一个大于6的偶数,可以表示为两个素数之和”,从键盘输入一个大于
在VB中输入一个大于等于1的整数,然后分别计算从0到该数之间的奇数之和和偶数之和程序怎么编?
验证哥德巴赫猜想,一个大于4的偶数,可以分解成两个素数之和,要求判断素数用函数实现
今天晚上12点之前必须给我答案
第四题:编写程序验证歌德巴赫猜想:一个大于等于6的偶数可以表示为两个素数之和.
用VB验证歌德巴赫猜想:一个大偶数可以分解为两个素数之和.