dim a as date=2000/1/1
for i =1 to 3
a=a+一个月
next
然后输出
2000/2/1
2000/3/1
2000/4/1
大概是这个意思
具体代码要怎么写
------解决思路----------------------
增加一个月
Dim a As Date = Now '当前日期
For i = 1 To 3
a = a.AddMonths(1) '添加一个月
Next
Dim a As Date = Now '当前日期
For i = 1 To 3
a = a.AddMonths(1) '添加一个月
Next