Dim arat(14,14) As String
Array Assign arat() =
[1, 1 , "1/2" , "1/3" , "1/4" , "1/5" , "1/6" , "1/7" , "1/8" , "1/9" , "1/10", "1/11", "1/12", "1/13", _
1, "1/2" , "1/3" , "1/4" , "1/5" , "1/6" , "1/7" , "1/8" , "1/9" , "1/10", "1/11", "1/12", "1/13", "1/14", _
1, "1/3" , "1/4" , "1/5" , "1/6" , "1/7" , "1/8" , "1/9" , "1/10", "1/11", "1/12", "1/13", "1/14", "1/15", _
1, "1/4" , "1/5" , "1/6" , "1/7" , "1/8" , "1/9" , "1/10", "1/11", "1/12", "1/13", "1/14", "1/15", "1/16", _
1, "1/5" , "1/6" , "1/7" , "1/8" , "1/9" , "1/10", "1/11", "1/12", "1/13", "1/14", "1/15", "1/16", "1/17", _
1, "1/6" , "1/7" , "1/8" , "1/9" , "1/10", "1/11", "1/12", "1/13", "1/14", "1/15", "1/16", "1/17", "1/18", _
1, "1/7" , "1/8" , "1/9" , "1/10", "1/11", "1/12", "1/13", "1/14", "1/15", "1/16", "1/17", "1/18", "1/19", _
1, "1/8" , "1/9" , "1/10", "1/11", "1/12", "1/13", "1/14", "1/15", "1/16", "1/17", "1/18", "1/19", "1/20", _
1, "1/9" , "1/10", "1/11", "1/12", "1/13", "1/14", "1/15", "1/16", "1/17", "1/18", "1/19", "1/20", "1/21", _
1, "1/10", "1/11", "1/12", "1/13", "1/14", "1/15", "1/16", "1/17", "1/18", "1/19", "1/20", "1/21", "1/22", _
1, "1/11", "1/12", "1/13", "1/14", "1/15", "1/16", "1/17", "1/18", "1/19", "1/20", "1/21", "1/22", "1/23", _
1, "1/12", "1/13", "1/14", "1/15", "1/16", "1/17", "1/18", "1/19", "1/20", "1/21", "1/22", "1/23", "1/24", _
1, "1/13", "1/14", "1/15", "1/16", "1/17", "1/18", "1/19", "1/20", "1/21", "1/22", "1/23", "1/24", "1/25", _
1, "1/14", "1/15", "1/16", "1/17", "1/18", "1/19", "1/20", "1/21", "1/22", "1/23", "1/24", "1/25", "1/26" ]
Bob
Bookmarks