vb方法
Dim n As Double
n = Text1.Text
a = 2
m = Int(Sqr(n))
s = 0
While a