Function过程(函数 建立 function过程 [ private[ static I[ public] function过程名[(参数表) 名=表达式] [exit function] [语句块] End function ↑例如:求最大公约数的函数 Function gcd(byval x as integer, byval y as integer) as integer do while y<>0 reminder=x mod y y=reminder Loop Gcd a Form1 x End function 25和65的最大公约数是5 Sub- Form- click dim a as integer, b as integer ,C a=inputbox(a b=inputboX(B Print a&"和"&b&"的最大公约数是"&c End sub 运行输入25和65得到如图结果Function过程（函数） 建立function过程 [ private ][ static ][ public ] function 过程名 [（参数表）] 语句块 [过程名=表达式] [exit function] [语句块] End function 例如：求最大公约数的函数过程： Function gcd (byval x as integer, byval y as integer) as integer do while y<>0 reminder=x mod y x=y y=reminder Loop Gcd=x End function Sub Form_click() dim a as integer, b as integer ,c a=inputbox(a) b=inputbox(B) C= gcd(val(a),VAL(b)) Print a & "和 " & b & "的最大公约数是" & c End sub 运行输入25和65得到如图结果