用VB程序实现:过年的时候小李打算每个月都把一部分零花钱存起来,第一个月他存了10元,他准备以后每个月都比上个月多存2元。请问当小明的存钱达到1000元以上要几个月?
答案:Private Sub Command1_Click() Dim x As Integer, n As Integer, i As Integer n = 10 i = 0 x = 0 Do While x < 1000 x = x + n n = n + 2 i = i + 1 Loop Print i & "个月" End Sub 运行结果: 28个月