vb初学者提问：提示用for-next循环做？

来源：百度知道 编辑：UC知道 时间：2024/07/03 13:14:05
某工厂今年的产量是1000吨，改进设备后，年增长率为0.125。试编写一个程序求3年后这家工厂的年产量是多少？

dim prod as long
dim i as integer
prod=1000
for i=1 to 3
prod=prod*(1+0.125)
next i
print prod

Private Sub Command1_Click()
Dim y, m As Integer
m = 1000
For y = 1 To 3
m = m * (1 + 0.125)
Next y
Print m
End Sub

dim ProNum as integer
ProNum=1000
for i = 1 to 3
ProNum=ProNum * (1 + 0.125)
next i
msgbox ProNum

Dim ChanLiang As Double
ChanLiang = 1000
For i = 1 To 3
ChanLiang = ChanLiang * 1.125
Next i

for dim i=0 to 2
a=a*1.125
next

大体就是这样。a表示产量，
i表示年份。