1楼已经有了pascal和vf版本
我这里补上c和vb版本
c版本
#include
int main()
{ int i,n;
scanf("%d",&n);
i=sqrt(n);
printf("%d",i);
system("PAUSE");
}
vb版本
Private Sub Form_Click()
Dim n As Integer
n = InputBox("n=")
Print Int(Sqr(n))
End Sub