假设我国目前人口数为13亿，如果每年增长率为1.2%，填写程序，计算多少年后我国人口数超过20亿。设n年后，我国人口数超过20亿，根据题意得出数学关系式：13*（1+1.2%）^∧n>20，求最小的n。

Dim p as single

Dim r as single

Dim n as integer

p=13

r=0.012

n=0

Do while          

   n=n+1

p=p*(1+r)

Loop

Print n;”年后”:”人口超过”；p

根据上述回答下列问题

已知包含25项的数列：1，2/3，3/5，……，24/47，25/49

问题1：写出该数列的通项公式f_(n)=

问题2：以下是计算s=1+2/3+3/5+……+24/47+25/49的程序，请补全代码。

Dim i As Integer

Dim s As Single

s = 0

For i = 1 To 25

s = s +

Next i

Print s

某市出租车收费标准如下：

⑴3公里内（含3公里），收费8元；

⑵超过3公里但未超过6公里部分，按1.5元/公里收费；

⑶超过6公里部分，按2.25元/公里收费。

根据以上标准，输入出租车行驶的公里数，请计算顾客需付费多少元？

【参考代码】

Dim s As Single

Dim p As Single 

s=Val(InputBox(“s=”))  

If s<=3 Then

    p=8

End If

If             Then

    p=1.5*(s-3)+8

End If

If s>6 Then

    p=2.25*(s-6)+1.5*3+8

End If

Print p

根据上述回答下列问题：