VB程序计算两个整数的最大公约数和最小公倍数，用vb程序编写

VB（Visual Basic）是一种常用的Windows应用程序开发语言，我们可以使用它的过程和函数来计算两个整数的最大公约数（GCD）和最小公倍数（LCM）。这里是一个简单的VB代码示例：

Module Module1
    Function GCD(a As Integer, b As Integer) As Integer ' 计算最大公约数
        While b <> 0
            Dim temp As Integer = a Mod b
            a = b
            b = temp
        End While
        Return a
    End Function

    Function LCM(a As Integer, b As Integer) As Integer ' 计算最小公倍数
        Dim lcm As Integer = a * b / GCD(a, b)
        Return lcm
    End Function
    
    Sub Main()
        Dim num1 As Integer = InputBox("请输入第一个整数:")
        Dim num2 As Integer = InputBox("请输入第二个整数:")
        
        If Not IsNumeric(num1) Or Not IsNumeric(num2) Then
            MsgBox("输入无效，请输入整数.")
            Exit Sub
        End If
        
        Dim result As String = "最大公约数 (GCD): " & GCD(num1, num2) & vbCrLf &
                                "最小公倍数 (LCM): " & LCM(num1, num2)

        MsgBox(result)
    End Sub
End Module

在这个例子中，`GCD`函数使用欧几里得算法计算两个数的最大公约数，而`LCM`函数则是通过两数乘积除以它们的最大公约数来得到最小公倍数。主函数`Main`从用户那里获取输入，并显示结果。