作业帮 > 综合 > 作业

用VB设计一个计算银行存款利息的程序

来源：学生作业帮 编辑：作业帮 分类：综合作业 时间：2024/05/11 02:41:10
用VB设计一个计算银行存款利息的程序
假设银行存款利率如下：
一年以下 1.8% 一年定期 2.5%
二年定期 2.7% 三年定期 2.9%
四年定期 3.2% 五年定期 3.6%
五年以上按五年计算.
设计一个计算银行到期存款利息的程序,输入存款金额和存款期限,求到期利息.要求用If多分支选择语句完成代码设计.
运行界面要求：
第一行是：输入存款金额 第二行是：输入存款期限 第三行是：输入到期利息
最下面左边是计算按钮 右边是退出按钮
如果在28号之前回答 有加分.拜谢各位大能……
4个text1-text4,Label1(0-3).
Private Sub Command1_Click()
Dim k1 As Single, k2 As Single, k3 As Single, k4 As Single
k1 = Val(Text1.Text) '金额
k2 = Val(Text2.Text) '年限
If Val(Text1.Text) = 0 Then MsgBox "请输入金额!"
If k2 = 0 Then MsgBox "请输入存款年限!"
If k1 >= 5 Then
k4 = 3.6
Else
If k1 >= 4 Then
k4 = 3.2
Else
If k1 >= 3 Then
k4 = 2.9
Else
If k1 >= 2 Then
k4 = 2.7
Else
If k1 >= 1 Then
k4 = 2.5
Else
k4 = 1.8
End If
End If
End If
End If
End If
Text3.Text = (k1 * k2 / 100)
Text4.Text = k1 + (k1 * k2 / 100)
MsgBox k2 & " 年到期利息：　" & Text3.Text & "　元"
End Sub
Private Sub Command2_Click()
end
End Sub
Private Sub Form_Load()
Command1.Caption = "计算"
Command2.Caption = "退出"
Label1(0).Caption = "存款金额："
Label1(1).Caption = "存款年限："
Label1(2).Caption = "到期利息："
Label1(3).Caption = "本息合计："
End Sub
再问： 因为电脑是WIN7 64位的系统 装不了VB，不能检查……所以这个星期四才能验证……请耐心等待吧……到时候会加分的……
用VB设计一个计算银行存款利息的程序 用VB设计一个计算圆的面积的程序 银行存款的利息计算 谁能帮我用VB设计一个简单的程序：计算正方形的面积（详细点） 用VB设计一个程序计算物理,英语,数学三门课的绩点. 二、设计简单的VB程序计算函数的值 自己设计一个简单的VB程序,计算下列VB函数的值.提示：为简单起见,可 设计一个VB程序,计算整数各位数上的和 编写一个计算个人所得税的程序（用VB编写） 请教大神用VB编一个计算的程序? 如何用vb设计计算二次方程的根的程序 银行存款利息计算公式 用vb 设计一个函数 求e的近似值 计算