Sub iMain()
Dim tmp
tmp = iSum(10) / (iSum(4) + iSum(6))
Print tmp
End Sub
Function iSum(n)
Dim i, tmp
For i = 1 To n
tmp = tmp + i
Next
iSum = tmp
End Function
private function Sigma(n as integer) as integer
dim i as integer
Sigma=0
for i=1 to n
Sigma=Sigma+i
next
end function
private sub command1_click()
print Sigma(10) / (Sigma(4) + Sigma(6))
end sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024