[VB.NET]一个简单的编程问题

<script type="text/javascript"> </script> <script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js"> </script>
一个简单的编程问题
1·求满足不等式1+2*2+3*3+……+n*n <=1000的最大n的值用（vb.net做）
2编程:将从键盘上输入的若干个正数求和,遇到负数则终止程序，并且输入的数不超过10个

两个简单的问题，高手门尽快回复我啊
__________________________________________________________________________
1,应该是这样吧

Dim i, j As Integer
Do
i += 1
j += i * i

Loop While j <= 10000
MessageBox.Show(i.ToString)
__________________________________________________________________________
i多加了一次，要减1 ，答案i=30
__________________________________________________________________________
哈哈，眼睛看花了，楼主是 <=一千啊
__________________________________________________________________________
第一个式子是有名的自然数幂求和中的次简单的式子（最简单的是 1加到100：101*50），这可是很高深的问题哦^__^
__________________________________________________________________________
还有谁能给我个更详细的答案啊，谢谢，最好写出控件的布局
__________________________________________________________________________
1题：在窗体上添加一个按钮和一个Label，然后再按钮下写如下代码
Dim i As Integer, Sum As Integer
i = 0 : Sum = 0
Do While Sum <= 1000
i += 1
Sum + = i ^ 2
Loop
Label1.Text = i
2题：控件和1题一样
Static i As Integer
Dim Sum As Integer, j As Integer
i = 0 : Sum = 0 : j = 0
Do While j > = 0 And i <= 10
Sum = Sum + j
j = InputBox( 请输入一个整数 , Input a Number )
i += 1
Loop
Label1.Text = Sum
__________________________________________________________________________
1题：在窗体上添加一个按钮和一个Label，然后再按钮下写如下代码
Dim i As Integer, Sum As Integer
i = 0 : Sum = 0
Do While Sum <= 1000
i += 1
Sum + = i ^ 2
Loop
Label1.Text = i
2题：控件和1题一样
Static i As Integer
Dim Sum As Integer, j As Integer
i = 0 : Sum = 0 : j = 0
Do While j > = 0 And i <= 10
Sum = Sum + j
j = InputBox( 请输入一个整数 , Input a Number )
i += 1
Loop
Label1.Text = Sum
__________________________________________________________________________
谢谢你（nymphlucky(一小二过)的相助，你的QQ多少啊？有空再请教你啊
__________________________________________________________________________
QQ联系不上本人，就上CSDN吧。呵呵！！！
__________________________________________________________________________