11 lines
184 B
Text
11 lines
184 B
Text
Sub Evaluation
|
|
Dim As Integer i, lo = 1, hi = 100
|
|
Dim As Double temp = 0
|
|
For i = lo To hi
|
|
temp += (1/i) ''r(i)
|
|
Next i
|
|
Print temp
|
|
End Sub
|
|
|
|
Evaluation
|
|
Sleep
|