[已解决]求1到100之间的所有整数和

香川群子

刘苏 发表于 2014-10-7 17:24
还有什么招，都发出来吧   一起交流/学习

你的自定义函数是用了递归算法……但是太啰嗦!


显然我的自定义递归算法才是最精简的。

1. Function f(n)
   
2.     If n Then f = n + f(n - 1)
   
3. End Function

复制代码

你能再省下一个字符我请客。

香川群子

不用+号的VBA算法：

1. Sub test()
   
2.     Cells(1, 1).Activate
   
3.     For i = 1 To 100
   
4.         ActiveCell.Offset(i).Select
   
5.     Next
   
6.     MsgBox ActiveCell.Row - 1
   
7. End Sub
   

复制代码

刘苏

香川群子 发表于 2014-10-7 20:27
有人告诉我一个算法，你们永远想不到！

=Combin(n+1,2)

奇思妙想，但是101-200 怎样计算呢？

香川群子

典型的VBA循环遍历算法：

1. Sub test2()
   
2.     For i = 1 To 100
   
3.         For j = 1 To i
   
4.             k = k + 1
   
5.         Next
   
6.     Next
   
7.     MsgBox k
   
8. End Sub

复制代码

香川群子

用Do……Loop循环

1. Sub test3()
   
2.     i = 100
   
3.     Do
   
4.       k = k + i
   
5.       i = i - 1
   
6.     Loop While i
   
7.     MsgBox k
   
8. End Sub
   

复制代码

petry1989

香川群子 发表于 2014-10-7 20:27
有人告诉我一个算法，你们永远想不到！

=Combin(n+1,2)

这个是组合函数么。。

刘苏

香川群子 发表于 2014-10-7 20:27
有人告诉我一个算法，你们永远想不到！

=Combin(n+1,2)

计算101到200之间的所有整数和：
根据回复凑三个：

=(101+200)*100/2

=SUMPRODUCT(ROW(101:200))

=COMBIN(201,2)-COMBIN(101,2)

浮华、缠绕指尖

那还是高斯定理厉害，不要循环，不要函数

petry1989

刘苏 发表于 2014-10-7 20:41
奇思妙想，但是101-200 怎样计算呢？

=COMBIN(201,2)-COMBIN(101,2） 这样可以么。。

刘苏

petry1989 发表于 2014-10-7 21:01
=COMBIN(201,2)-COMBIN(101,2） 这样可以么。。

可以~ 真棒