'------------------------------------------------
Option Explicit          '変数の宣言を強制する

Sub main()               'エクセルのシートに結果を出力するプログラム
    Const LIMIT = 100
   
    Dim m As Integer, n As Integer
    Dim a As Integer, b As Integer, c As Integer
    Dim count As Integer, work As Integer
    
    count = 0             'セルの位置指定のための変数を初期化
    
    For m = 2 To LIMIT
        n = m - 1         'ｎは（ｍ－１）から始めて、２ずつ小さくする。→ｍ＋ｎは奇数になる
        While (n > 0)
            If (gcm(m, n) = 1) Then       'gcmは最大公約数を求める関数。戻り値が１の場合、２数は互いに素。
                count = count + 1         '結果を書き込むセルの行を１アップ
                a = m * m - n * n         'a,b,c を計算
                b = 2 * m * n
                c = m * m + n * n
                    If (a > b) Then       'a<b に統一。
                        work = a
                        a = b
                        b = work
                    End If
                Cells(count, 1).Value = a    'シートに表示
                Cells(count, 2).Value = b
                Cells(count, 3).Value = c
                
                Cells(count, 4).Value = m
                Cells(count, 5).Value = n
            End If
            n = n - 2                         'ｎを２減らしてループの最初へ戻る
        Wend
    Next m
End Sub
'------------------------------------------------

Sub main2()              '結果をテキストファイルに出力するプログラム。
    Const LIMIT = 100
   
    Dim m As Integer, n As Integer
    Dim a As Integer, b As Integer, c As Integer
    Dim count As Integer, work As Integer
                  
    Open "Result.txt" For Output As #1     'ファイルをオープンする
        Print #1, " count"; Tab; " a"; Tab; " b"; Tab; " c"; Tab; " m"; Tab; " n"
        
    count = 0
    
    For m = 2 To LIMIT
        n = m - 1
        While (n > 0)
            If (gcm(m, n) = 1) Then
                count = count + 1
                a = m * m - n * n
                b = 2 * m * n
                c = m * m + n * n
                    If (a > b) Then
                        work = a
                        a = b
                        b = work
                    End If
                Print #1, count; Tab; a; Tab; b; Tab; c; Tab; m; Tab; n   'ファイルに書き込む
            End If
            n = n - 2
        Wend
    Next m
    
    Close #1    'ファイルを閉じる

End Sub
'------------------------------------------------

Function gcm(a As Integer, b As Integer)  '最大公約数を求めて返す関数：ユークリッドの互除法を使用
    Dim r As Integer                      '関数内部で使う変数
    
    If (a < b) Then
        gcm = gcm(b, a)                   '再帰呼び出し
    Else
        r = a Mod b                       'Mod は割り算の余りを返す演算子
        If r = 0 Then
            gcm = b
        Else
            gcm = gcm(b, r)               '再帰呼び出し
        End If
    End If
End Function