缠着程序最大公约数vb,求最大公约数的c 程序

vbLanguage最大公约数？VB 程序求“最大公约数”程序码？最大公约数 in vb。以下是最大公约数的代码，给出一个vbfind 最大公约数private subform _ click()dimnasinteger，find最大公约数最小公倍数函数zdgys(ByValmAsLong。

private subcommand 1 _ Click()Me。ClsCallgcd(10)end subfunction gcd(ByValslAsLong)DimjAsLong，nAsLong，nn(10)AsLong，kAsLong，mmaslongmm 200 for J1 toslrandomizenn(j)20 RND()* 180 ifmm > nn(j)then mmnn(j)Endifprintj