vb.net 教程 1-20 例 2 最大公约数和最小公倍数

求两个数的最大公约数和最小公倍数:

Sub main()
        Dim m As Integer
        Dim n As Integer

        Console.WriteLine("输入第1个整数:")
        m = Integer.Parse(Console.ReadLine())
        Console.WriteLine("输入第2个整数:")
        n = Integer.Parse(Console.ReadLine())

        Dim chengji As Integer = m * n

        Dim t As Integer
        If m < n Then
            t = m
            m = n
            n = t
        End If

        Dim yushu As Integer
        yushu = m Mod n
        Do While yushu <> 0
            m = n
            n = yushu
            yushu = m Mod n
        Loop

        Console.WriteLine("这两个数的最大公约数是:" & n)
        Console.WriteLine("这两个数的最小公倍数是:" & chengji / n)
        Console.ReadKey()
    End Sub

由于.net平台下C#和vb.NET很相似,本文也可以为C#爱好者提供参考。

学习更多vb.net知识,请参看vb.net 教程 目录

相关文章
相关标签/搜索