vb程序設計：如果我國現有人口13億，按人口增長率0.8％計算，問多少年後，我國人口超過26億，要

Dim?Count?As?Double,?r?As?Double,?n?As?Integer

Count?=?13

r?=?0.008

Do?While?Count?<?26

n?=?n?+?1

Count?=?Count?*?(1?+?r)

Loop

MsgBox?"我國現有人口?13?億,按照每年?0.8%?的增長率,"?&?vbCrLf?&?n?&?"?年後,我國的人數超過?26?億!"

End?Sub