信息VB 用合适的循环语句实现以下计算:2007年我国粮食总产量

问题描述:

信息VB 用合适的循环语句实现以下计算:2007年我国粮食总产量
1.用合适的循环语句实现以下计算:2007年我国粮食总产量5000亿吨,如果粮食增长率为0.5%,求到2020年的粮食总产量.按钮命名为“粮食总产量”
运行后正确结果为:5334.93100461911
VB程序 .

Dim year As Integer
Dim num As Double
num = 5000
For year = 2008 To 2020
    num = num * (1 + 0.005)
Next
MessageBox.Show("到2020年粮食总产量:" & num & "亿吨.")