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

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