谁能帮我做个VB6小程序
构思:银行存款。1.下一年的本金是上一年本金和利息之和2.用户只需输入“原始本金”“年利率”“打算存多少年”即可3.点“总收入”按钮出结果我可能没说明白,举例假设:原始本...
构思:银行存款。 1.下一年的本金是上一年本金和利息之和 2.用户只需输入“原始本金”“年利率”“打算存多少年”即可 3.点“总收入”按钮出结果
我可能没说明白,举例假设:
原始本金10000元 年利率2.25
一年末收入:10225(=本金10000+利息225)
二年末收入:10455.0625(=本金10225+利息230.0625)
三年末收入:...........
请求:1.EXE文件(成品) 2.VB6的保存文件(未生成EXE之前的文件)
我不会写这个“按钮”的代码,请大家帮帮忙,怕没人理这个问题,先少赏点分,能帮上忙的好朋友要多少分告诉我一声,说话算数。QQ:1399155192 展开
我可能没说明白,举例假设:
原始本金10000元 年利率2.25
一年末收入:10225(=本金10000+利息225)
二年末收入:10455.0625(=本金10225+利息230.0625)
三年末收入:...........
请求:1.EXE文件(成品) 2.VB6的保存文件(未生成EXE之前的文件)
我不会写这个“按钮”的代码,请大家帮帮忙,怕没人理这个问题,先少赏点分,能帮上忙的好朋友要多少分告诉我一声,说话算数。QQ:1399155192 展开
1个回答
展开全部
我试过了,程序符合要求。分数你看着给吧,呵呵··以后有不懂的可以问我····
Option Explicit
Private Sub command1_click()
Dim sum As Single, y As Integer, n As Single, i As Integer
On Error Resume Next
sum = InputBox("请输入存入的本金")
y = InputBox("请输入要存的年份")
n = InputBox("请输入存款的年利率")
For i = 1 To y
sum = sum * (1 + n / 100)
Next i
Print y & "年后,可以取到" & sum & "元"
End Sub
Option Explicit
Private Sub command1_click()
Dim sum As Single, y As Integer, n As Single, i As Integer
On Error Resume Next
sum = InputBox("请输入存入的本金")
y = InputBox("请输入要存的年份")
n = InputBox("请输入存款的年利率")
For i = 1 To y
sum = sum * (1 + n / 100)
Next i
Print y & "年后,可以取到" & sum & "元"
End Sub
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询