谁能帮我做个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
展开
 我来答
luomandick
2010-02-21 · TA获得超过1175个赞
知道小有建树答主
回答量:902
采纳率:0%
帮助的人:716万
展开全部
我试过了,程序符合要求。分数你看着给吧,呵呵··以后有不懂的可以问我····
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
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式