求用vb实现1到100的和加上1到50的平方和加上1到1/10的和的代码是多少?

Question

求用vb实现1到100的和加上1到50的平方和加上1到1/10的和的代码是多少?

Answer 1

现在窗口画一个Command1
代码：
Private Sub Command1_Click()
Dim s As single
s = 0
For i = 1 To 100
s = s + i
Next
For i = 1 To 50
s = s + i ^ 2
Next
For i = 1 To 10
s = s + 1 / i
Next
MsgBox s
End Sub

Answer 2

Private Sub Command1_Click()
Dim s As Double
s = 0
For i = 1 To 100
s = s + i
Next
For i = 1 To 50
s = s + i ^ 2
Next
For i = 1 To 10
s = s + 1 / i
Next
MsgBox s
End Sub

Answer 3

sub
平方和()
dim
sum
dim
i
as
long
sum
=0
for
i
=
1
to
100
sum
=
sum
+
i
*
i
next
i
end
sub