总裁太生猛:VB 问题 在先等各位大虾

来源：百度文库 编辑：高校问答 时间：2024/04/26 03:16:19
求 1平方+2平方+3平方+4平方。。。+100平方
private sub command-click()
I=0
_________________
Do whlie
I=I+1
____________________
Loop
_________________________
__________________________

各位大虾辛苦 小弟在线等

Private Sub Command1_Click()
i = 0
Sum = 0
Do While i <= 100
i = i + 1
Sum = Sum + i ^ 2
Loop
Print Sum
End Sub

private sub command-click()
dim i , n , x as integer
n = 0
i = 0
do while i < 100
i = i + 1
x = i * i
n = n + x
loop
输出 n 就是结果
end sub

Private Sub Command1_Click()
i = 0
Sum = 0
Do While i <= 100
i = i + 1
Sum = Sum + i * i
Loop
print Sum
End Sub

第一种解法:
Private Sub Command1_Click()
Dim I As Integer
Dim Sum As Long
Sum = 0
Do While I <= 100
I = I + 1
Sum = Sum + I * I
Loop
Sum = Sum - I * I '只有当I=101时,循环才会结束,所以Sum的值要减去多加的一个I*I
Print Sum
End Sub

第二种解法:
Private Sub Command1_Click()
Dim I As Integer
Dim Sum As Long
For I = 1 To 100
Sum = Sum + I * I
Next I
Print Sum
End Sub

dim i,sum
sum=0
for i=1 to 100
Sum = Sum + i ^ 2
next

数学里有平方数公式,
1^2+2^2+....+N^2=N(N+1)(2N+1)/6
则上面的程序直接写成100*101*201/6=338350

VB 问题 在先等各位大虾 在先等~！ADLS问题~！ 请问各位大虾，vb数据查询问题 C++问题！在先等答案！ 急!!在先等``麻烦知道的大虾帮忙! 救命~显卡有问题,在先等答案~ jsp问题,在先等答案啊,紧急!! QQ的问题在先等急!!!!!!!!! 电脑问题 急 在先等啊 各位大虾谁知道那里有一部电影在先观看