【单选题】输入两个整数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 ...
【单选题】窗体上有3个文本框Text1、Text2、Text3和一个命令按钮Command1。如果在Text1中输入200,在Text2中输入150,则执行下列程序后,Text3的值为( )。 Private Sub Command1_Click() Dim m, n, t As Integer m = Val(Text1.Text) n = Val(Text2.Text) If n * m = 0 ...
【单选题】输入两个整数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 ...
【简答题】求给定自然数 m 和 n 的最大公约数。请完善程序。 Private Sub Command1_Click() Dim m As Integer, n As Integer, r As Integer m = Text1.Text n = Text2.Text If m < n Then r=m: m=n: n=r Do r=m Mod n m=n n=r Loop Unt...