vb 语言：某城市1982年开始计划生育，每年的人口减少原来的25%多1000，经过十年城市人口达到5000000

vb语言：某城市1982年开始计划生育，每年的人口减少原来的25%多1000，经过十年城市人口达到5000000，问城市原来多少人？

henri2003 2011-12-12 20:23

满意回答

递归吧。 private function jhsy(byval renshu as long,byval nianshu as integer) as long 'nianshu就是几年，renshu就是几年后有多少人 if nianshu=1 then jhsy=renshu else jhsy=jhsy((renshu-1000)*1.25,nianshu-1) end if end function private sub command1_click() dim renshu as long dim nianshu as integer renshu=inputbox("请输入X年后的人数") nianshu=inputbox("请输入过哑实乡了几年") msgbox "城市原有用基" & jhsy(renshu,nianshu) & "人" end sub 纯阶绣手打，你自己调试下。

匿名用户 2011-12-12 20:32

宝宝知道提示您：回答为网友贡献，仅供参考。

其他回答

原始人口数：88855664 这个程序是倒推比较简单 Private Sub Command1_Click() Dim x As Long x = 5000000 Dim y As Long Dim i As Integer For i = 9 To 0 Step -1 y = (x + 1000...) * 4 / 3 x = y Text1.Text = Text1.Text & "第" & i & "年： " & y & vbCrLf Next End Sub 运行结果：第9年： 6668000 第8年： 8892000 第7年： 11857333 第6年： 15811111 第5年： 21082815 第4年： 28111753 第3年： 37483671 第2年： 49979561 第1年： 66640748 第0年： 88855664

全部展开

匿名用户 2013-08-16 02:38

Function GetNum(ByVal orgNum As Integer, iYear as Integer) Dim ttt As Integer, kkk As Integer kkk = iYear ttt = orgNum While kkk > 0 ttt = (ttt - 1000...) * 4 / 3 kkk = kkk - 1 End While GetNum = ttt End Function

全部展开

匿名用户 2011-12-12 20:43

while 循环

匿名用户 2011-12-12 20:26