求此算式的VB表达式,

dim n as double,r as doubler=0。8n=log(2)/log(1+r)print n