输入两个整数M,N,求它俩的最大公约数。Private Sub Command1_Click()Dim m%, n%,t%,x% m = Val(InputBox("请输入第1个数m:")) n = Val(InputBox(“请输入第2个数n:”)) If m < n Then t = m: m = n: n = t For y = n To 1 Step -1 If Then Print "最大公约数为:"; y Exit For End If Next yEnd Sub
选项:
A:y Mod m = 0 And y Mod n = 0;
B:m Mod y = 0 And n Mod y = 0;
C:m Mod y = 0 or n Mod y = 0;
D:y Mod m = 0 or y Mod n = 0
发布时间:2024-06-17 14:18:20