【单选题】输入两个整数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 ...
【单选题】输入两个整数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 ...
【单选题】下列程序运行时输入的值分别为100、10,则执行结果为( )。 Dim m As Integer, n As Integer m = InputBox("输入第一个数") n = InputBox("输入第二个数") If n * m = 0 Then MsgBox "两数都不能为0" End If If m 0 Print m