Question

编写函数Fun，函数的功能是：判断一个数是否为素数。

编写函数Fun，函数的功能是：判断一个数是否为素数。
要求：使用For语句来实现，并用函数名Fun作为该数是否为素数的标志，如果该数是素数，函数返回True，否则函数返回False!
Private Function Fun(m As Long) As Boolean
'********** Begin **********

'********** End **********
End Function

Private Sub Form_Load()
Show
Print "23是素数吗？"; Fun(23)
Print "225是素数吗？"; Fun(225)
NJIT_VB
End Sub

Private Sub NJIT_VB()
Dim i As Integer
Dim a(10) As String
Dim fIn As Integer
Dim fOut As Integer
fIn = FreeFile
Open App.Path & "\in.dat" For Input As #fIn
fOut = FreeFile
Open App.Path & "\out.dat" For Output As #fOut
For i = 1 To 10 Step 1
Line Input #fIn, a(i)
Print #fOut, Fun(Val(a(i)))
Next
Close #fIn
Close #fOut
End Sub

Answer 1

int fun()

{int i,j,t=1,sum=0;

for(i=100;i<=200;i++){

for(j=2;j<i;j++)if(i%j==0)t=0;

if(t){printf("%d\t",i);sum+=1;}

t=1;

}

return sum;

}

main(){

int num;

num=fun();

printf("sum=%d",num);

getch();

}

扩展资料

编写函数fun()，函数的功能是：根据以下公式计算s，计算结果作为函数值返回；n通过形参传入信衡迹。

S=1+1/(1+2)+1/(1+2+3)+…+1/(1+2+3+…+n)

例如：若n的值为11时，函数的值为1.833333。

注意：部分源程序给出如下。

请勿改动主函数main和其他函数中的任何内容，仅在函数fun的拦知花括号中填入所编写的若干语句。

试题程滑并序：

#include ＜conio.h＞

#include ＜stdio.h＞

#include ＜string.h＞

float fun(int n)

main()

int n;

float s;

clrscr();

printf("\nPlease enter N: ");

scanf("%d",&n);

s=fun(n);

printf("The result is:%f\n " , s);

答案

float fun(int n)

{

int i,sA=0;

float s=0.0;

for(i=A;i {sA=sA+i; /*求每一项的分母*/

s=s+A.0/sA; /*求多项式的值*/

}

return s;

}

Answer 2

#include <stdio.h>
#include <stdlib.h>

int isPrime(int n)
{
    if(n<=1) return 0;
 敏早   if(n%2==0) return n==2;
    int i;
    for(i=3;i*i<=n;i+=2)
    {
        if(n%i==0) return 0;      
    }
    return 桥卜雀1;
}

int main()
{
    int i;
    int sum=0;
    printf("2-100之间的素数有：\n");
    for(i=2;i<=100;i++)
    {
        if(isPrime(i))
        {
           弊贺printf("%d ",i);
           sum += i;
        }
    }
    printf("\n它们的和是：%d\n",sum);
    system("pause");
    return 0;
}

Answer 3

Private Function Fun(m As Long) As Boolean
Fun = False
For i = 2 To Sqr(m)
If m Mod i = 0 Then Exit Function
Next
Fun = True
End Function