编写函数fun,函数的功能是:当x的初值为10,'每年增长率为百分之一,计算多少年以后x的值能达到y,'并显示所需年数的值(变量名必须为n).'要求使用Do ...Loop Until语句来实现.
来源:学生作业帮助网 编辑:作业帮 时间:2024/07/05 11:29:33
![编写函数fun,函数的功能是:当x的初值为10,'每年增长率为百分之一,计算多少年以后x的值能达到y,'并显示所需年数的值(变量名必须为n).'要求使用Do ...Loop Until语句来实现.](/uploads/image/z/11810359-55-9.jpg?t=%E7%BC%96%E5%86%99%E5%87%BD%E6%95%B0fun%2C%E5%87%BD%E6%95%B0%E7%9A%84%E5%8A%9F%E8%83%BD%E6%98%AF%EF%BC%9A%E5%BD%93x%E7%9A%84%E5%88%9D%E5%80%BC%E4%B8%BA10%2C%27%E6%AF%8F%E5%B9%B4%E5%A2%9E%E9%95%BF%E7%8E%87%E4%B8%BA%E7%99%BE%E5%88%86%E4%B9%8B%E4%B8%80%2C%E8%AE%A1%E7%AE%97%E5%A4%9A%E5%B0%91%E5%B9%B4%E4%BB%A5%E5%90%8Ex%E7%9A%84%E5%80%BC%E8%83%BD%E8%BE%BE%E5%88%B0y%2C%27%E5%B9%B6%E6%98%BE%E7%A4%BA%E6%89%80%E9%9C%80%E5%B9%B4%E6%95%B0%E7%9A%84%E5%80%BC%EF%BC%88%E5%8F%98%E9%87%8F%E5%90%8D%E5%BF%85%E9%A1%BB%E4%B8%BAn%EF%BC%89.%27%E8%A6%81%E6%B1%82%E4%BD%BF%E7%94%A8Do+...Loop+Until%E8%AF%AD%E5%8F%A5%E6%9D%A5%E5%AE%9E%E7%8E%B0.)
编写函数fun,函数的功能是:当x的初值为10,'每年增长率为百分之一,计算多少年以后x的值能达到y,'并显示所需年数的值(变量名必须为n).'要求使用Do ...Loop Until语句来实现.
编写函数fun,函数的功能是:当x的初值为10,
'每年增长率为百分之一,计算多少年以后x的值能达到y,
'并显示所需年数的值(变量名必须为n).
'要求使用Do ...Loop Until语句来实现.
编写函数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