VB题目两质数的差为2,称此对质数为质数对,编写判断质数的函数,调用此函数,找出100以内的质数对
题目
VB题目两质数的差为2,称此对质数为质数对,编写判断质数的函数,调用此函数,找出100以内的质数对
两质数的差为2,称此对质数为质数对,编写判断质数的函数,调用此函数,找出100以内的质数对.
答案
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
举一反三
已知函数f(x)=x,g(x)=alnx,a∈R.若曲线y=f(x)与曲线y=g(x)相交,且在交点处有相同的切线,求a的值和该切线方程.
我想写一篇关于奥巴马的演讲的文章,写哪一篇好呢?为什么好
最新试题
- 水果批发部运来苹果480千克,是运来橘子质量4/5.运来橘子多少千克?
- 工程队修一条水渠,计划每天修160米,15天修完,实际每天多修40米,要用多少天修完这条水渠?
- 读哪些书有什么感悟呀
- 2-x/x是不是单项式
- 已知平面直角坐标系中,点P(6-a,3a-12)在第四象限内,且到两坐标轴的距离相等,求a值并确定点P的坐标
- 用48cm长的篱笆在空地上围成一个绿化场地,现有几种设计方案,正三角形·正方形·正
- 稀硝酸溶液中加入少量硫酸钾溶液 离子方程式
- 我心中的碧水蓝天作文 是关于环保的作文
- 有一块矿石可以漂浮在水中,小王用天平、量筒和水等器材测量这块矿石的密度,实验步骤如下:①用天平测出石块的质量m,天平的示数如图; ②向量筒中倒入V1=60mL的水; ③用细线系住石块,放入量筒,用铁丝
- 一个正确的第三格三段论,两个前提分别是全称肯定判断,全称否定判断,其推理形式是什么?写出推导过程
热门考点