题目
VB题目两质数的差为2,称此对质数为质数对,编写判断质数的函数,调用此函数,找出100以内的质数对
两质数的差为2,称此对质数为质数对,编写判断质数的函数,调用此函数,找出100以内的质数对.
两质数的差为2,称此对质数为质数对,编写判断质数的函数,调用此函数,找出100以内的质数对.
提问时间:2020-07-28
答案
Function isprime(Num As Long) As Boolean
If Num < 2 Then isprime = False:Exit Function
Dim i As Long
For i = 2 To Sqr(Num)
If (Num Mod i) = 0 Then
isprime = False
Exit Function
End If
Next i
isprime = True
End Function
Private Sub Command1_Click()
Dim i As Long
i = 3
Do
If isprime(i) And isprime(i + 2) Then Print i,i + 2
i = i + 2
Loop Until i = 99
End Sub
If Num < 2 Then isprime = False:Exit Function
Dim i As Long
For i = 2 To Sqr(Num)
If (Num Mod i) = 0 Then
isprime = False
Exit Function
End If
Next i
isprime = True
End Function
Private Sub Command1_Click()
Dim i As Long
i = 3
Do
If isprime(i) And isprime(i + 2) Then Print i,i + 2
i = i + 2
Loop Until i = 99
End Sub
举一反三
已知函数f(x)=x,g(x)=alnx,a∈R.若曲线y=f(x)与曲线y=g(x)相交,且在交点处有相同的切线,求a的值和该切线方程.
我想写一篇关于奥巴马的演讲的文章,写哪一篇好呢?为什么好
奥巴马演讲不用看稿子.为什么中国领导演讲要看?
想找英语初三上学期的首字母填空练习……
英语翻译
最新试题
热门考点
- 1《1》一个数的五倍是十三分之十,这个数是( )
- 2求函数值欲y=x/x平方+2x+3
- 3设w>0,若函数f[x]=2sinwx在[-π3,π4] 上单调递增,则w的取值范围是
- 4三道英语选择题.要原因.
- 5掰玉米用英语怎么说?
- 6怎么区分离子化合物&共价化合物?
- 7一道物理液体内部压强题
- 8(2007•平凉)人类生活需要的能量大部分来自于化学反应.下列能量转化的例子不是由化学变化产生( ) A.利用太阳能加热水 B.用锂电池给数码相机供电 C.发电厂利用煤燃烧发电 D.使用
- 9KITTY正带领MILLIE参观北京的中国科技馆,英语怎么翻译.
- 10外国人总是说一个貌似以T开头的英文单词做为结束语,应该是再见的意思,那个单词怎么拼?