20.69整数21
Private Sub Command1_Click()Dim P As Double, N As IntegerP = 60N = 0Do While P < 80 N = N + 1 P = P * (1 + 0.014) ' Print N & "年后有人口:" & P & "亿"LoopPrint NEnd Sub