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

放四个text1-text4,四个label1-label4,一个command1,调整好大小和位置代码如下：private sub form_load()label1。caption ="本金"label2。caption="存款年数"label3。caption="年利率"label4。caption="到期利息"endsubprivate sub command1_click()dim a as singledim n as integerdim p as singledim Lx as singlea=val(text1。text)n=val(text2。text)p=val(text3。text)Lx=a*(1+p)^n-atext4。text=Lxend sub有什么问题请留言。