vb编写一个程序，根据本金a、存款年数n和年利率p计算到期利息。提示：到期利息计算公式为a*(1+

Private Sub Command1_Click()

  lblLX = txtA * (1 + txtP) ^ txtN - txtA

End Sub

注：其中 txtA、txtP 和 txtN为输入本金、利率和存期的文本框，lblLX 为显示利息的标签。

运行界面为：

放四个text1-text4，四个label1-label4，一个command1，调整好大小和位置
代码如下：
private sub form_load()
label1.caption ="本金"
label2.caption="存款年数"
label3.caption="年利率"
label4.caption="到期利息"
endsub

private sub command1_click()
dim a as single
dim n as integer
dim p as single
dim Lx as single
a=val(text1.text)
n=val(text2.text)
p=val(text3.text)
Lx=a*(1+p)^n-a
text4.text=Lx
end sub

有什么问题请留言。

p×n×a