青岛科技大学vb答案实验四(3)

End If

Next b

Text1.Text = c

End Sub

2）将运行结果的界面截下来粘贴在下面

3）调试过程记录（错误情况及改正方法）

3. 设计一个程序：我国今年的国民生产总值为45600亿元，若今后每年以9%的增长率增长，计算多少年后能实现国民生产总值翻一番？

要求：单击“计算”按钮时，将计算的结果显示在窗体上。

1）代码设计

Private Sub Command1_Click()

Dim a As Long, b As Long, c As Integer

a = 45600: b = 2 * a: c = 0