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 教程 目录

原文地址：https://www.jb51.cc/vb/256087.html