vb編程的最大公約數

函數GYS(lNum1壹樣長，lNum2壹樣長)壹樣長

暗淡我壹樣長

對於i = lNum1至1步進-1

如果lNum1 Mod i = 0且lNum2 Mod i = 0，則

GYS =我

為...退出

如果…就會結束

然後

結束功能

函數GBS(lNum1壹樣長，lNum2壹樣長)壹樣長

Do While i = False

s = s + 1

i = s Mod lNum1 = 0，s Mod lNum2 = 0

環

GBS = s

結束功能

私有子命令1_Click()

Dim m壹樣長，n壹樣長

M = Val(InputBox ("input m "))

N = Val(InputBox ("input n "))

打印“輸入的兩個數字是”&；m & amp“他”&；n

打印“他們的最大公約數是”；

如果m & gt那麽

打印GYS(墨西哥)

其他

印刷GYS(挪威)

如果…就會結束

打印“它們的最小公倍數是”；

打印GBS(墨西哥)

末端接頭

上一篇:unity與ideavr區別

下一篇:倉頡碼和四角號碼有什麽區別？