VB编程:输入正整数N，求最大的K，使得1*1+2*2+3*3+....+K*K<N成立

算法如下,添加一个CommandButton测试:
注:因为K永远不可能大於N,所以就可以用For K = 1 To N作为循环条件...

Private Sub Command1_Click()
Dim N, K, Num
N = InputBox("Please input a values of N:", "User Input")
For K = 1 To N
Num = Num + K * K
If N - Num < 0 Then
MsgBox "The max values of K is: " & (K - 1)
Exit Sub
End If
Next
End Sub