Private Sub Command1_Click()
x = InputBox("请输入任意大于6的偶数","输入")
If Not IsNumeric(x) Then MsgBox "输入错误":Exit Sub
If x Mod 2 0 Or x < 6 Then MsgBox "请输入大于6的偶数":Exit Sub
Dim i As Integer,z As Integer
For i = 1 To x \ 2
z = x - i
If IsPrime(i) And IsPrime(z) Then Print x & "=" & i & "+" & z
Next
End Sub
Private Function IsPrime(n As Integer) As Boolean '判断一个数是否是素数
IsPrime = True
For j = 2 To n - 1
If n Mod j = 0 Then IsPrime = False:Exit For
Next
End Function
急求:VB编程验证歌德巴赫猜想.即一个大于等于6的偶数可以表示为两个素数之和.
急求:VB编程验证歌德巴赫猜想.即一个大于等于6的偶数可以表示为两个素数之和.
其他人气:161 ℃时间:2020-03-29 21:56:10
优质解答
我来回答
类似推荐
猜你喜欢
- 1已知多项式x2+ax-y+b和bx2-3x+6y-3的差的值与字母x的取值无关,求代数式3(a2-2ab-b2)-(4a2+ab+b2)的值.
- 2in the morning i have b__at home和i eat rice,meat,fish and v__and some other food
- 3()然泪下;()然若失
- 4分压法,分流法测电阻
- 5已知a+b=3,ab=2,则1/2a3b+a2b2+1/2ab3的值为_.
- 6一个人步行每小时走5千米,如果他骑车每走1千米比步行少用8分钟,那么他骑车的速度与步行速度的比是_.
- 7如图所示,灯距地面高度为H1,一个人身高为H2,在灯下以匀速率V沿水平直线行走,求他的头顶在地上的影子M点沿地面移动的速度.
- 8风景名胜区的作文 300字以内
- 9底面积为400平方厘米的圆柱形水槽内盛有适量的水
- 10完成填空(每空一词)