编写函数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
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;
}
#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;
}本回答被网友采纳
Fun = False
For i = 2 To Sqr(m)
If m Mod i = 0 Then Exit Function
Next
Fun = True
End Function
