求m和n的最大公约数和最小公倍数（要求将此运算编写为Sub过程），m和n有用户通过文本框输入
  提示：过程定义具体形式如下：
  第一种形式： Sub GetMaxMin(byval m as integer,byval n as integer, byref max as integer,byref min as integer),由m,n传入数据，max,min传回最大公约数和最小公倍数
  第二种形式：Sub GetMaxMin（byref m as integer,byref n as integer）由m,n传入数据，max,min传回最大公约数和最小公倍数
 麻烦各位了

先自己做，别人再给你建议。这样才能学到知识！

不知道你是对求m和n的最大公约数和最小公倍数的方法不知到，还是对vb的过程不清楚？“求m和n的最大公约数和最小公倍数”可是小学问题。vb过程在书上有讲，看来你是啥都不知道，混沌！可悲啊！

同楼上。

dim max
dim min
Sub GetMaxMin(ByRef m As Integer, ByRef n As Integer)
Dim i
Dim b
If (m >= n) Then
    b = n
Else
    b = m
End If
If m Mod n = 0 Or n Mod m = 0 Then
   max = b
Else
    For i = 1 To CInt(b / 2) + 1
            If m Mod i = 0 And n Mod i = 0 Then
                max = i
            End If
    Next
End If
min = m * n / max
End Sub

你确定你在帮他或者是在害他？

我确定我编着好玩，早就不做这样的学生问题了，把求最大公约数的最简单且高效的方法给不会了。
我觉得For i = 1 To CInt(b / 2) + 1这个改成For i = 1 To CInt(b / 2) 也应该能求出正确结果，这样的话就又少了一次运算

同学呀好好学习