一个数列问题!!!

dim sum as double
dim i as integer
sum=0
for i = 1 to 20
sum = sum + (i * 2 - 1) / i
next
msgbox sum