编写函数fun,函数的功能是：当X的初值为10,每年的增长率为0.01,多少年以后X的值达到Y.用dowhile……loPrivateFunctionfun(yAsSingle)AsLongDimxAsSingle,nAsLongx=10dowhilex

Question

编写函数fun,函数的功能是：当X的初值为10,每年的增长率为0.01,多少年以后X的值达到Y.用do while……lo
Private Function fun(y As Single) As Long
Dim x As Single,n As Long
x=10
do while x

Answer 1

Private Function fun(x, y)
Dim n
Do While x