Question

设计一个函数，用以判断一个整数是否为素数，如果是，则返回1；如果不是，则返回0；并利用此函数，找出m-n

设计一个函数，用以判断一个整数是否为素数，如果是，则返回1；如果不是，则返回0；并利用此函数，找出m-n之间的所有素数，并统计其个数，m、n由键盘输入。

Answer 1

Private Sub Command1_Click()
i = InputBox("请输入一个数")
x = 1
For n = 2 To i - 1
If i Mod n = 0 Then
x = o
End If
Next n
If x = 1 Then Print 1
If x = 0 Then Print 0
End Sub

Private Sub Command2_Click()
m = InputBox("请输入一个数")
n = InputBox("请输入一个数")
For i = m To n
x = 1
For n = 2 To i - 1
If i Mod n = 0 Then
x = 0
End If
Next n
If x = 1 Then
Print i
End If
Next i

End Sub

Answer 2

pascal 语言写的：
program isitsushupo;
var
m,n:integer;
function itss (n:integer):integer
var
i,t:integer;
begin
if n=1 then itss:=0;
t:=1;
for i:=2 to n-1 do
if n mod i = 0 then
begin
t:=0;
break;
end;
itss:= t;
end;
begin
readln(m,n);
for i:=m to n do
if itss(i)=1 then
writeln(i);
end.

Answer 3

http://zhidao.baidu.com/question/101329685.html

Answer 4

#include<stdio.h>
int prime(int x)
{
int flag=1,i;
for(i=2;i<x/2&&flag==1;i++)
if(x%i==0)
flag=0;
return(flag):
}