编写VB程序,实现如下功能:在文本框Text1中输入投资金额,Text2中输入投资的目标金额,Text3中输入投资的年收益率,单击按钮Command1,在文本框Text4中输出达成预期投资目标至少需要的年数。投资收益按复利计算,如投资金额10000元,年收益率为5%,则1年后的本息为10000×(1+5%),2年后的本息为10000×(1+5%)
2。程序运行界面如下图所示。
(1)代码“Private Sub Command1_Click()”中的Command1_Click()是________(填字母:
A.对象名/ | B.事件名/ | C.事件处理过程名/ | D.方法名) |
(2)为实现上述功能,请在划线处填入合适的代码。
Private Sub Command1_Click()
Dim pv As Single, fv As Single, rate As Single, n As Integer
pv = Val(Text1.Text)
fv = Val(Text2.Text)
________
_①_________
n = 1
Do While pv<fv
pv =" pv" * (1 + rate)
List1.AddItem "第" + Str(n) + "年" + " " + Str(pv) + "元"
_____
__②_______
Loop
______
__③________
End Sub