用递归最快最简单:
Function getSum(n As Integer)
If n = 0 Then
getSum = 0
Else
getSum = 2 * n + getSum(n - 1)
End If
End Function
Private Sub Form_Load()
MsgBox getSum(10)
End Sub
dim i as integer, n as integer,sum as long
n=val(inputbox("input n"))
for i=2 to 2*n step 2
sum=sum+i
next
msgbox sum
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024