UC知道求教vb题目
来源：百度知道 编辑：UC知道 时间：2024/05/12 11:41:57
某公司2005年的总产值为2000万元，若总产值以每年5%的速度增长，多少年后总产值翻一倍？
'填空完成程序，使得当单击窗体后，在窗体上输出问题答案。
'注：请不要更改源程序结构，删除（1）、（2）、（3），并在对应位置填写正确的代码
Private Sub Form_Click()
Dim p As Single ' 变量p保存年产值
Dim n As Integer ' 整型变量n为所求年数
(1)
n = 0
Do While p < 4000
p = p * (2)
n = (3)
Loop
Print "n="; n
End Sub
'填空完成程序，使得当单击窗体后，在窗体上输出问题答案。
'注：请不要更改源程序结构，删除（1）、（2）、（3），并在对应位置填写正确的代码
Private Sub Form_Click()
Dim p As Single ' 变量p保存年产值
Dim n As Integer ' 整型变量n为所求年数
(1)
n = 0
Do While p < 4000
p = p * (2)
n = (3)
Loop
Print "n="; n
End Sub
Private Sub Form_Click()
Dim p As Single ' 变量p保存年产值
Dim n As Integer ' 整型变量n为所求年数
p=2000
n = 0
Do While p < 4000
p = p * 1.05
n = n+1
Loop
Print "n="; n
End Sub
回答 （1）的位置改成 p=2000
（2）的位置改成1.05 这是数值是每次增长后的值
（3）的位置改成 n+1