我需要编写一个程序，使用费率和本金来计算季度付款。我需要能够计算出2到5年的情况。这是我的代码，我在程序标签中显示多行时遇到问题。我甚至不确定我的方程是否正常工作。
Dim decnum As Integer 对于decnum = 2到5 lblPayments.Text = Val（txtPrincipal.Text）+（decnum * Val（txtPrincipal.Text）* Val（txtRate.Text））
以下是提示参考： 界面提供文本框供用户输入本金和年利率（十进制数）。两个文本框都应仅接受数字，句点和Backspace键。 “计算季度付款”按钮应计算2年，3年，4年和5年的季度付款。如果利率以整数形式输入（这意味着它大于或等于1），则将整数转换为其十进制当量，除以100.在lblPayments控件中显示术语和季度付款。编写适当的事件程序。使用For ... Next语句计算季度付款。保存解决方案，然后启动并测试应用程序。关闭“代码编辑器”窗口，然后关闭解决方案。