do while循环不返回值

Question

我正在尝试让下面的代码工作。我的目标是逐步增加“测试”。变量，直到它和标记的总和等于总费用（subfee + markup = totalfee）。下面的代码就是我现在所拥有的代码，它正在返回一个＆＃39; - ＆＃39;在我的目标细胞中。

Public Function DetailersFee(TotalFee As Double) As Double

Dim test As Double
Dim markup As Double

test = 0
markup = 2 * (test ^ 0.75)

Do While (test + markup) < TotalFee

    test = test + 50

    markup = 2 * (test ^ (0.75))

Loop

test = DetailersFee

End Function

非常感谢任何帮助。

Answer 1

您是否希望在函数结束时返回test中的值？然后替换：

test = DetailersFee

与

DetailersFee = test

您希望将函数名称设置为等于要返回的变量，而不是相反。