vb存款利息,100万存款一年利息

vb设计工作，负责人利息计算。多少年后存款超过1500，VB递归实现多年本金利息和私有子命令1 _ click()打印(2，A vb topic私有子命令1 _ click()dimpasdoublenasdoubledimrasdoublepinputbox(输入P(存款number):)NInputBox(输入n(年数):)RInputBo。

private subcommand 1 _ Click()打印(2，10)EndSubPublicFunctions(xas integer，cAsSingle)作为singleifx 0 thenselsess(x1，c*(1 0.08))EndIfEndFunction .

第一年本息和:1000*(1 1%)第二年本息和:1000*(1 1%)*(1 1%) N年本息和:1000 * (1 1%) N Excel函数fv(利率，期数，1000 * (1 %1)的N次幂> 1500就是结果。

private subcommand 1 _ click()dimpasdoubledimnasdoubledimrasdoublepinputbox(输入P(存款number):)NInputBox(输入n(年数):)RInputBox(输入r(年利率):)MsgBox result