执行下列程序后，输出的结果是 Option Base 0 Dim a a = Array(13,8,4,15) m = a(0) : n = a(0) For i=1 to 3 If a(i) > m Then m = a(i) ElseIf a(i) < n Then n = a(i) End If Next i Print m; n A: 2 4 B: 4 10 C: 4 15 D: 10 15 E: 其它选项都不对

下列计算最大公约数的递归过程，正确的是___________。 A: Sub gcd(ByVal m%, ByVal n%) Dim r% r = m n If r = 0 Then gcd = n Else gcd = gcd(n, r) End If End Sub B: Sub gcd(ByVal m%, ByVal n%) Dim r% r = m Mod n If r = 0 Then gcd = n Else gcd = gcd(n, r) End If End Sub C: Function gcd%(ByVal m%, ByVal n%) Dim r% r = m n If r = 0 Then gcd = n Else gcd = gcd(n, r) End If End Function D: Function gcd%(ByVal m%, ByVal n%) Dim r% r = m Mod n If r = 0 Then gcd = n Else gcd = gcd(n, r) End If End Function

分析for循环语句，写出运行结果。 for m=1:3 for n=1:3 H(m,n)=m^2+n; end end H H=

以下程序不正确的是 ( ) A: n=input('n=')switch rem(n,3)case 0; A=3*ncase 2; A=2*ncase 1; A=n end B: n=input('n=')if rem(n,3)==0; A=3*n elseif rem(n,3)==2; A=2*n else A=n end end C: n=input('n=')if rem(n,3)==0; A=3*nelseif rem(n,3)==2; A=2*nelse A=n end D: n=input('n=')switch rem(n,3)case 0; A=3*ncase 2; A=2*notherwise; A=n end

写出下面程序段的执行结果： Declare @m int,@n int Select @m=0, @n=0 While @m<30 Begin Set @[email protected]+3 Set @[email protected][email protected] End Select @m, @n