[Visual Basic 6.0の]論理的思考の基礎 - GCD（最大公約数）

要約：[Visual Basic 6.0の]論理的思考の基礎 - GCD（最大公約数）

[Visual Basic 6.0の]論理的思考の基礎 - GCD（最大公約数）

トピック説明：

请写一个程序求出2个数的GCD(最大公因数)

サンプル入力

12 36

25 24

0 0

サンプル出力

GCD（12,36）は12 =

GCD（25,24）= 1

コード例：

Private Sub Form_Activate()
        Open App.Path & "In.txt" For Input As #1 ' 读入 In.txt 输入档
        Open App.Path & "Out.txt" For Output As #2 ' 建立 Out.txt 输出档
    Do
        Line Input #1, InpData ' 读入整段数据
        CaseData = Split(InpData, " ") ' 字符串切割
        ' 判断是否为为到底
        If CaseData(0) = CaseData(1) And Val(CaseData(0)) = 0 Then Exit Do
        
        Temp = 1 ' 默认最大公因数等于一
        
        For I = 1 To CaseData(0)
            If Val(CaseData(0)) Mod I = 0 And Val(CaseData(1)) Mod I = 0 Then Temp = I
        Next I
        
        Out = Out & "GCD(" & CaseData(0) & "," & CaseData(1) & ")=" & Temp & vbCrLf
    Loop
        Print #2, Out
        Close
        End
End Sub

＃0xDeがで共有から学びます

#Facebook：質問をすることを歓迎し、当該ProgrammerDe（https://www.facebook.com/MicrosoftDes）

オリジナル：大列  [Visual Basic 6.0の]論理的思考の基礎- GCD（最大公約数）