Question

vb编程s=1+1/4+1/9+1/16…+1/25+…+1/100

vb编程s=1+1/4+1/9+1/16…+1/25+…+1/100

Answer 1

#include <stdio.h>
#include <stdlib.h>
int main()
{
int i=1;
double a=2.0,b=1.0,c=0.0,sum=1;
\x09while(i<=15)
\x09{
\x09 printf("sum=%lf %lf\n",b,a);
\x09\x09sum=sum+b/a;
\x09\x09c=a;
\x09\x09a=a+b;
\x09\x09b=c;
\x09\x09i++;
\x09}
printf("sum=%lf\n",sum);
return 0;
}

Answer 2

Private Sub Command6_Click()
Dim n%, s%

For i = 1 To 10
n = 1 / i ^ 2
s = s + n
Next i
Print s
End Sub