在vb用do~~~loop语句计算:1+1⼀2+1⼀3+1⼀4+~~~~+1⼀100

2024年12月04日 23:24
有1个网友回答
网友(1):

Dim sum As Double, n As Double
sum = 0
n = 1
Do While n <= 100
    a = 1 / n
    sum = sum + a
    n = n + 1
Loop