Dim i As Integer, j As Integer, m As Singlej = 2: m = 0 For i = 1 To 99 Step 2 m = m + i / j j = j + 3 Next m=int(100*m+0.5)/100 MsgBox m答案：32.75
