窗体上有一个名称为Command1的命令按钮，并有如下程序： Private Sub Command1Click（ ） Dim m As Integer，n As Integer m=InputBox("输入第一个数") nzInputBox("输入第二个数") Do While mn Do While mn m= m-n Loop Do While nm n=n-m Loop Loop Print m End Sub 该程序的功能是（ ）。A.求数值m和n的最大公约数B.求数值m和n的最小公倍数C.求数值m和n中的较大数D.求数值m和n中的较小数
窗体上有一个名称为Command1的命令按钮，并有如下程序： Private Sub Command1Click（ ） Dim m As Integer，n As Integer m=InputBox("输入第一个数") nzInputBox("输入第二个数") Do While m<>n Do While m>n m= m-n Loop Do While n>m n=n-m Loop Loop Print m End Sub 该程序的功能是（ ）。
A.求数值m和n的最大公约数
B.求数值m和n的最小公倍数
C.求数值m和n中的较大数
D.求数值m和n中的较小数
相关考题：
窗体上有一个名为Command1的命令按钮，并有如下程序： Private Sub Corqmand1_Click（ ） Dim a As Integer，b As Integer a=8 b=12 Print Fun(a，b)；a；b End Sub Private Function Fun(ByVal a As Integer，b AS Integer)As Integer a=a Mod 5 b=b＼5 Fun=a End Function 程序运行时，单击命令按钮，则输出结果是（ ）。A.3 3 2B.3 8 2C.8 8 12D.3 8 12
在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：Private Sub Commandl_Click( )Static X As IntegerStatic Y As IntegerClsY=1Y=Y+5X=5+XPrint X, YEnd Sub程序运行时，3次单击命令按钮Command1后，窗体上显示的结果为【 】。
在窗体上有1个名称为Commandl的命令按钮，并有如下事件过程和函数过程：Private Sub Commandl Click()Dim P As Integerp=m(1)+m(2)+m(3)Print PEnd SubPrivate Function m(n As Integer)As IntegerStatic s As IntegerFor k=1 To ns=s+lNextm=sEnd Function运行程序，单击命令按钮Commandl后的输出结果为
在窗体上有一个名称为Command1的命令按钮，并有如下程序：程序执行时，单击命令按钮Command1三次后，窗体上显示的结果为（ ）。A. 5 16B. 5 6C. 15 15D. 15 6
窗体上有一个名称为Command1的命令按钮，并有如下程序： Private Sub Command1 Click（ ） x=14 Do While x0 x=x-3 x=IIf(Int(x／5)=x／5，x+2，x) Loop Print x End Sub 程序运行后，单击命令按钮Command1，输出结果为（ ）。A.0B.-lC.-2D.-_3
窗体上有一个名称为Command1的命令按钮，并有如下程序：Private Sub Command1 Click（ ）x=15Do While x0x=x-3x=IIf(Int(x／5)=x／5，x+2，x)LoopPrint xEnd Sub程序运行后，单击命令按钮Command1，输出结果为（ ）。A.0B.-lC.-2D.-_3
(6）在窗体上有1个名称为Command 1的命令按钮，并有如下事件过程和函数过程：Private Sub Command 1_Click()Dim p As Integerp＝m(1）＋m(2)＋m(3）Print pEnd SubPrivate Function m(n As Integer) As IntegerStatic s As IntegerFor k＝1 To ns＝s＋1Nextm=sEnd Function运行程序，单击命令按钮Command 1的输出结果为【6】。