运算集,自增加法

'自增加法: 输入任意整数 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