编写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
答案: 【1】C
【1】rate=val(text3.text)或rate=text3.text【2】n=n+1【3】text4.text=str(n-1)