急！急！vb编程问题！回答截至5.21.晚九点！

来源：百度知道 编辑：UC知道 时间：2024/05/13 16:34:14
问题如下：
假设我国人口12亿，年增长率为1％，问多少年后增至20亿。
（要求用VB语言编一个可以计算这个问题的程序，在vb 6.0中运行！）
各位大侠！在下刚刚接触VB这东东，能再简单点吗？？？？

如果还有问题，请发消息，或补充！

Option Explicit
'需要控件：command1

'题目：假设我国人口12亿，年增长率为1％，问多少年后增至20亿。
Private Sub Command1_Click()
Dim S As Double '定义人口数量
Dim n As Integer '定义N年后
n = 0 '初始化为0年
S = 12000000000# '初始化12亿人，也可以改成12,但后面的条件要改成s>=20
Do While (1)
n = n + 1 '增加一年，，，年累加
S = S * 1.01 '每年累加0.01 也就是年增长率为1% 此句也可写为 :s=s+(s*0.01)
If S >= 20000000000# Then Exit Do '这里判断是否增至20亿了，如果大于等于20亿就退出，
DoEvents
Loop
'MsgBox "假设我国人口12亿，年增长率为1％，问" & n & "年后增至20亿。"
MsgBox n & "年" 'N值为年，，，，，，S的值为N年后的人口
End Sub

Private Sub Command1_Click()
Dim a As Single, b As Single
a = 12
Do
b = b + 1
a = a * 1.01
If a >= 20 Then Exit Do
Loop
MsgBox b & " 年后，人口从 12 亿增加到 " & a & " 亿"
End Sub

在外面声