请教常见的一个VB问题

设银行定期存款年利率如表、图所示，编写程序，分别计算各种存法到期时的本息合计。

代码见图 1.

图2. 窗口

你是不知道计算公式呢还是不知道代码？

公式的不说了，代码大概如下：

Private Sub command1_click()

if option1.valve=true then

到期text2.text=5年存款公式

elseif option2.valve=true then

到期text2.text=3年存款公式

elseif option3.valve=true then

到期text2.text=2年存款公式

elseif option4.valve=true then

到期text2.text=2年存款公式

elseif option5.valve=true then

到期text2.text=1年存款公式

end if

end

如果不用command的话，当点哪一年的存款时自动计算可以在

Private Sub option1_click()

到期text2.text=对应的公式

end

Private Sub Command1_Click() Dim a As Double, b As Double, lixi As Double Dim year As Integer

a = Val(Text1.Text)

If Option1.Value = True Then lixi = 0.0288 year = 5 End If

If Option2.Value = True Then lixi = 0.027 year = 3 End If

If Option3.Value = True Then lixi = 0.0243 year = 2 End If

If Option4.Value = True Then lixi = 0.0225 year = 1 End If

b = a + a * lixi * year Text2.Text = b End Sub

Private Sub Form_Load() Option1.Value = True '设置默认选项为5年 End Sub

效果图如下: