按下列公式计算银行贷款等额还款的月偿还金额S: 现要求编写VB程序.实现如下功能:在文本框架中输入贷款本金.贷款期限.年利率.单击计算机按钮.在每月偿还本息额文本框中显示S的值.按此要求编写的程序如下.请把带下划线部分所缺的程序段补齐 Private Sub Command1 Click() Dim x As Long Dim y As Single Dim n As Integer Dim s As Single x = Val * ▲ n = 12 * Val y = Val / 12 / 100 ′月利率为年利率除12 s = 1 For i = 1 To n s = * s Next s = ▲ Text4.Text = Str(s) End Sub 其中.“等额还款 是 Form (Form/Text/Combo/Command)控件的Caption属性. 【查看更多】
