vb小问题，谁来帮忙解决下

来源：百度知道 编辑：UC知道 时间：2024/06/05 07:40:27
产值2376000元，每年增长13.45%，问多少年后产值翻一番

a=2376000
b=2*a
i=0
do until a>=b
a=a*(1+0.1345)
i=i+1
loop

text1.text=i

sub test()
dim i as integer
for i=1 to 10
if (1+0.1345)^i>=2 then
exit for
msgbox i,vbokonly,"结果"
end if
next i
end sub

Private Sub Form_Load()
Dim a As Double
Dim b As Double
Dim i As Integer
a = 2376000
b = 2 * a
Do Until a >= b
a = a * (1 + 0.1345)
i = i + 1
Loop
MsgBox i & "年后翻一番"
End Sub