VBA运行到一半，显示结果，并询问是否继续

FrogXiaoQing

请教各位大神，如下如何实现：

1.
1.1 弹出对话框提示输入投资额：例如100元。
1.2 弹出对话框提示输入投资年限：例如3年。
1.3 弹出对话框提示输入年收益率：例如15%。


2.
2.1 程序计算复利：100 *（1+0.15）*（1+0.15）*（1+0.15）= Z

2.2 显示计算结果Z，并弹出对话框询问是否满意，如果是，就退出程序，如果否，就回到1.3弹出对话框提示输入年收益率，重新计算复利。
2.3 如此循环，直到在2.2满意点击“是”为止。

非常感谢。

一把小刀闯天下

Option Explicit

Sub test()
  Dim mark, i, p, t, z
  mark = Split("100 投资额 3 投资年限 15 年收益率")
  ReDim arr(1 To (UBound(mark) + 1) / 2)
  Do
    For i = p To UBound(mark) Step 2
      t = InputBox(mark(i + 1), "提示", mark(i))
      If IsNumeric(t) Then arr((i + 2) / 2) = Val(t) Else i = i - 2
    Next
    z = arr(1) * (1 + arr(3) / 100) ^ arr(2)
    t = MsgBox("收益：" & z, vbYesNo, "是否满意")
    If t = vbYes Then Exit Do Else p = 4
  Loop
End Sub

FrogXiaoQing

一把小刀闯天下 发表于 2019-5-19 22:05
Option Explicit

Sub test()

运行通过！非常感谢。