[已解决]VBA列出所有分母小于等于

vbyou127

VBA列出所有分母小于等于

VBA按递增顺序列出所有分母小于等于40的最简真分数

最佳答案

月排行榜 / 总排行榜

香川群子

2016-4-28 16:36

如果公约数不写成独立函数，那么合并起来是这样子：

1. Sub test2() 'by kagawa 2016/4/28
   
2.     Dim i&, j&, k&, t&, t1&, t2&
   
3.     For i = 2 To 40
   
4.         Cells(i, 1) = i: Cells(i, 2) = 1: j = 2
   
5.         For k = 2 To i - 1
   
6.             t1 = i: t2 = k
   
7.             Do
   
8.                 t = t1 Mod t2: t1 = t2: t2 = t
   
9.             Loop While t
   
10.             If t1 = 1 Then j = j + 1: Cells(i, j) = k
    
11.         Next
    
12.     Next
    
13. End Sub

复制代码

跳转到最佳答案楼层

香川群子

首列A列为分母，2 To 40
第2列B列以后开始为最简真分数的分子：

1. Sub test() 'by kagawa 2016/4/28
   
2.     Dim i&, j&, k&
   
3.     For i = 2 To 40
   
4.         Cells(i, 1) = i: Cells(i, 2) = 1: j = 2
   
5.         For k = 2 To i - 1
   
6.             If GCD(i, k) = 1 Then j = j + 1: Cells(i, j) = k
   
7.         Next
   
8.     Next
   
9. End Sub
   
10. Function GCD&(t1&, t2&) '最大公約数 G.C.D=Greatest Common Divisor
    
11.     If t1 Mod t2 Then GCD = GCD(t2, t1 Mod t2) Else GCD = t2
    
12. End Function

复制代码

香川群子

如果公约数不写成独立函数，那么合并起来是这样子：

1. Sub test2() 'by kagawa 2016/4/28
   
2.     Dim i&, j&, k&, t&, t1&, t2&
   
3.     For i = 2 To 40
   
4.         Cells(i, 1) = i: Cells(i, 2) = 1: j = 2
   
5.         For k = 2 To i - 1
   
6.             t1 = i: t2 = k
   
7.             Do
   
8.                 t = t1 Mod t2: t1 = t2: t2 = t
   
9.             Loop While t
   
10.             If t1 = 1 Then j = j + 1: Cells(i, j) = k
    
11.         Next
    
12.     Next
    
13. End Sub

复制代码

vbyou127

香川群子 发表于 2016-4-28 16:36
如果公约数不写成独立函数，那么合并起来是这样子：

不知道你在表达什么，

分数值按递增顺序    分母小于等于于40     最简真分数

前两行结果如何解释
二分之一
三分之一    三分之二

香川群子

vbyou127 发表于 2016-4-28 18:15
不知道你在表达什么，

分数值按递增顺序    分母小于等于于40     最简真分数

嗯，就是酱紫的啦。

如果n是素数，那么1 To n-1 都是真分数。

vbyou127

问题是，你没有 将最简真分数 的分数值按递增顺序

你这个，没有人能知道，
二分之一，怎么能排到  三分之一     前面

香川群子

vbyou127 发表于 2016-4-28 19:47
问题是，你没有 将最简真分数 的分数值按递增顺序

你这个，没有人能知道，

你是要把所有489个真分数，按照数值大小排序吗？

那也只要把结果排一下序就可以了。