Hsieh

¦^´_ 1# louislcw

¦ó¿×510³Ì¤p½è¼Æ¬°17?
­Y¥H510©Ò¦³¦]¼Æ¤¤ªº½è¼Æ¦Ó¨¥¡A2§Y¬°³Ì¤p½è¼Æ

Hsieh

¦^´_ 3# louislcw
¦Û©w¸q¨ç¼Æ

1. Function MGCD(number As Double) As Double
   
2. Dim i As Double
   
3. For i = number - 1 To 2 Step -1
   
4.    If number Mod i = 0 And IsOnly(i) Then MGCD = i: Exit For
   
5.    
   
6. Next
   
7. End Function
   
8. Function IsOnly(number As Double) As Double
   
9. For i = 2 To number
   
10.    If number Mod i = 0 Then cnt = cnt + 1
    
11. Next
    
12. IsOnly = cnt = 1
    
13. End Function

½Æ»s¥N½X

¤U¸ü (59 KB)

2013-9-26 08:13