求VB程序,利用Sub过程,计算两个整数的最大公约数和最小公倍数.

题目

求VB程序,利用Sub过程,计算两个整数的最大公约数和最小公倍数.

答案

Private Sub Form_Load()
Dim X As Long, Y As Long, K As Long
Dim A As Long, B As Long
A = 6
B = 8
X = IIf(A >= B, A, B) 'x存入最大值
Y = IIf(A