Question

VB编程高手请进来帮帮忙噶!!拜托了!!

从1的平方一直加到100的平方,这个用VB怎么编啊?
Private sub commane click()
1=0
______________________________
Do while
I=I+1
_________________________-
Loop
__________________________-
_____________________________
补充我下面的那段语句

Answer 1

private sub command click()
dim i,j as Integer
i=0
j=1
do while j <=100
i=i + j*j
j = j + 1
loop