Option Explicit
Private Sub Command1_Click()
Dim i, j As Long
Dim temp As Long
Dim n As Long
n = Text1.Text
For i = 0 To n
temp = temp + i * i
If temp >= n Then
Text2.Text = i
Exit Sub
End If
Next
End Sub
s=0
n=0
do wihle s<=某数
n=n+1
s=s +n*2
loop
print n;s
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ号：24596024