VB.net 2010 视频教程 VB.net 2010 视频教程 python基础视频教程
SQL Server 2008 视频教程 c#入门经典教程 Visual Basic从门到精通视频教程
当前位置:
首页 > 编程开发 > vb >

  • 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 教程 目录
————————————————
版权声明：本文为CSDN博主「VB.Net」的原创文章，遵循CC 4.0 BY-SA版权协议，转载请附上原文出处链接及本声明。
原文链接：https://blog.csdn.net/UruseiBest/article/details/80152023

相关教程