我是菜鸟，请大家多关照，小弟有一个问题想问，希望大家尽快答复，我会给分的》》》

Question

Private Sub Command1_Click()
  Dim sum As Double
  Dim n As Long
  n = 1
  While n < 1001
    sum = sum + 1 / n
    n = n + 1
  Wend
  MsgBox sum
End Sub

Answer 1

Dim i As Integer
    dim sum as double    sum = 0
    For i = 1 To 1000
         sum = sum + 1 / i
    Next    debug.print sum

Answer 2

Dim n As Integer
    dim sum as double    sum = 0
    For n = 1 To 1000
         sum = sum + 1 / n
    Next    debug.print sum

Answer 3

dim i as integer
dim num as double
for i=1 to 1000
  num=num+1/i
next i
print num