使用vb 编写一个funcion过程计算银行定期存款到期本金利息之和

Private Sub Command1_Click()
Print calc(1000, 0.05, 10)
End Sub
Private Function calc(base As Single, rate As Single, year As Single)
calc = base + base * rate * year
End Function