编写函数fun,函数的功能是：当x的初值为10,'每年增长率为百分之一,计算多少年以后x的值能达到y,'并显示所需年数的值（变量名必须为n）.'要求使用Do ...Loop Until语句来实现.
网友回答
Private Sub Command1_Click()
Dim x As Single, y As Single
x = 10
y = 1000
MsgBox fun(x, y)
End Sub
Function fun(x As Single, y As Single) As Long
Do
x = x * 1.01
c = c + 1
Loop Until x >= y
fun = c
End Function