摘要: 有1例 1000 每增加1例增加500 Public Function js(a As Integer) As Integer Dim i, j, s j = 500 s = 1000 If a <= 1 Then js = a * s Else js = js(a - 1) + s + j * (a - 1) End If End Function用菊子曰写博客,就是爽! 阅读全文
posted @ 2013-06-14 23:11 河之洲 阅读(105) 评论(0) 推荐(0)
摘要: 注册很久了菊子曰,这次在博客园测试一把,我用菊子曰写博客,你呢? 阅读全文
posted @ 2013-06-14 23:06 河之洲 阅读(41) 评论(0) 推荐(0)