Option Explicit
Private Sub Command1_Click()
Dim s As String,k As Integer
Dim rAs String,i As Integer,tAs String
s=“aa11bb22Cc33”
For i=1 To Len(s)
t=()
Ift >=“a”And t<=“z”Or t >=“A”And t<=“Z”Then
r=r & t
End If
Next i
Print r
End Sub
下列程序中,函数fun的功能是:根据整型形参m的值,计算如下公式的值:t=1-1/(2×2)-1/(3×3)-…-1/(m×m)请填空。
#include<conio.h>
#include<stdio.h>
double fun(int m)
{double y=1.0;int i;
for(______)
y-=1.0/(i*i);
return(y);
}
main()
{int n=5;
printf("\nThe result is%1f\n",fun(n));}