Question

急急急求1^2+2^2+3^2+4^2+……大于或等于某数N的最小值的vb程序

求1^2+2^2+3^2+4^2+……大于或等于某数N的最小值

Answer 1

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

Answer 2

s=0
n=0
do wihle s<=某数
n=n+1
s=s +n*2

loop
print n;s