运算集,自增加法

'自增加法: 输入任意整数 b 且大于等于1, 其运算式如 b+(b-1)+(b-2)+(b-n) b-n=1 自增加法5=5+4+3+2+1=15

'调用方法:自增加法(大于0的整数 integer类型)

'返回结果: integer类型

Public Function 自增加法(ByVal b As Integer) As Integer

Dim x As Integer = b

Dim n As Integer = 0

While x > 0

n = n + x

x = x - 1

End While

Return n

End Function

最后编辑于 ：
©著作权归作者所有,转载或内容合作请联系作者
平台声明：文章内容（如有图片或视频亦包括在内）由作者上传并发布，文章内容仅代表作者本人观点，简书系信息发布平台，仅提供信息存储服务。

推荐阅读更多精彩内容

  • LeetCode/LintCode ReviewPage 题解-总结
    背景 一年多以前我在知乎上答了有关LeetCode的问题, 分享了一些自己做题目的经验。 张土汪：刷leetcod...
    土汪阅读 14,349评论 0赞 33
  • Java初级面试题
    1. Java基础部分 基础部分的顺序：基本语法，类相关的语法，内部类的语法，继承相关的语法，异常的语法，线程的语...
    子非鱼_t_阅读 31,930评论 18赞 399
  • 你是个听话的小孩吗？
    今早在朋友圈看到一朋友发的几句话，大意是听话是孩子的一个致命弱点，因为它束缚了孩子的独立思考和独立判断的能力。我忍...
    岛屿书阅读 2,325评论 7赞 3
  • 闲心随笔
    街那边的广场空荡 远处的天空有鸽子飞翔 风儿悄悄地走过 掀起香樟的落叶 跳出唯美的舞蹈 环卫工人的嘴角 少了些许微...
    拐拐拐拐拐阅读 1,319评论 0赞 1
  • 这一刻
    这一刻，我希望自己有位小朋友，可以在某人摔门而去的时候，陪着我，抱着我。 这一刻，我希望自己没有心，这样就不会心碎
    爱薄荷糖的香林阅读 1,157评论 0赞 0