Question

运用VB信息框编写一个程序

编写一个计算银行存款的程序,由用户输入本金和年数,按照存款年利率2.0%计算出存款到期时能够得到的总存款额,运算结果必须用信息框输出.
很急呀

Answer 1

你要的是这个?
Private Sub Form_Click()
Dim NYear, OriMon, SumR
Const MonRate As Single = 1.02

NYear = InputBox("请输入年数")
OriMon = InputBox("请输入本金(元)")
SumR = Val(OriMon) * 1.02 ^ Val(NYear)
MsgBox "年数:" & NYear & " 本金:" & OriMon & " 总存款:" & SumR
End Sub