猴子分桃，用函数还是VBA完成？

徐淑颖

这个是我写的，那个高手帮改下应该可以用的吧啊{:101:}

徐淑颖

我得到最少的1213个{:011:}

徐淑颖

算了，不研究了，等我以后熟悉了再想吧，乱了！{:041:}

天务

回复 lotte 的帖子

就是刚刚接触数组，有些看不太明白，现在正在学习。

wsmsi

{:221:}                                         

蝶·舞

=MATCH(,MOD((((((ROW(A:A)-3)*0.8-3)*0.8-3)*0.8-3)*0.8-3)*0.8,1),)

zjxia889

第五个分之前的数：b1＝3+1*5
第四个分之前的数：b2=3+b1*5
拖到第一个分之前就是b5=3+b4*5=5468

天务

回复 zjxia889 的帖子

其他朋友算出来的都是3113呀。

徐淑颖

回复 蝶·舞 的帖子

妹妹，能简单解释下嘛

飞天小猪

1. Sub 桃子()
   
2.    Dim i As Double
   
3.    For i = 1 To 10000
   
4.     y = (i - 3) * 0.8
   
5.      If Int(y) = y Then
   
6.        y1 = (y - 3) * 0.8
   
7.        If Int(y1) = y1 Then
   
8.          y2 = (y1 - 3) * 0.8
   
9.         If Int(y2) = y2 Then
   
10.            y3 = (y2 - 3) * 0.8
    
11.           If Int(y3) = y3 Then
    
12.             y4 = (y3 - 3) * 0.8
    
13.            If Int(y4) = y4 Then
    
14.             MsgBox ("这堆桃子至少有" & i & "个")
    
15.             Exit For
    
16.            End If
    
17.         End If
    
18.       End If
    
19.      End If
    
20.    End If
    
21.   Next
    
22. End Sub
    

复制代码