(根据公式26=13(1 r)^3推导出年数n可以用公式n=(lg2)/(lg(1 r))计算).不要下面这种:Private Sub Command1_Click()Dim k, nDo Until k >= 26n = n 1k = 13 * (1 0.008) ^ nLoopPrint n & "年后人数为:" & kEnd Sub