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得到如图结果
Function过程(函数 个调用 function过程作为 句 可以放在赋值语句中,也可以放在打印语句 中,也可以放在函数中作为参数,例如: 求123,564,1002,以及321的最大公约数 可以通过以下方法来实现: Sub form activate dim a, b, c,d,ab,cd a=123:b=564:C=1002:d=321 6. FormI x ab=gcd( 3 cd=gcd(, d) 124和587的最大公约数是1 print gcd(ab, co) End sub
调用function过程作为一个语句 可以放在赋值语句中，也可以放在打印语句 中，也可以放在函数中作为参数，例如： 求123，564，1002，以及321的最大公约数 可以通过以下方法来实现： Sub form_activate() dim a,b,c,d,ab,cd a=123:b=564:c=1002:d=321 ab=gcd(a,b) cd=gcd(c,d) print gcd(ab,cd) End sub Function过程（函数）