求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传回最大公约数和最小公倍数
 麻烦各位了