急求:VB编程验证歌德巴赫猜想.即一个大于等于6的偶数可以表示为两个素数之和.
题目
急求:VB编程验证歌德巴赫猜想.即一个大于等于6的偶数可以表示为两个素数之和.
答案
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
举一反三
我想写一篇关于奥巴马的演讲的文章,写哪一篇好呢?为什么好
最新试题
- 如何用Eviews求 面板数据 的 变系数模型 变截距模型 混合模型.
- Every day in the memory and all that you
- 写出昆虫记中五种昆虫性格特点(要好的性格,方便写作文)
- 可以是 than any time或than any other time
- 已知2cosx+cosy=2/3,2sinx-siny=3/4,求cos(x+y).
- 急 形声字的部首
- 使用VB在Text1中输入一个英语句子,在Text2中显示出句子中有多少个单词!急用!
- 数字推理求解 3,2,5/3,3/2,A7/5 B5/6 C3/6 D3/4
- 和外国人用英语交谈时觉得很自然这句话怎么翻译?
- 一项工作,甲每小时完成总量的4分之1,乙每小时完成总量的5分之1,甲每小时比乙每小时多完成总量的几分之几?
热门考点