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

2024-12-04 23:24:34
推荐回答(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