有如下事件过程： Private Sub Command1_Click( ) Dim m AS Integer，n AS Integer m=2：n=1 Print "m="；m；"n="；n Call TOD(m，n) Print "m="；m；"n="；n End Sub Sub TOD(x，y) x=x^2 y=y^3 End Sub 程序运行后，输出的结果为A．m=2，n=1 m=1，n=2B．m=2，n=1 m=4，n=1C．m=1，n=2 m=1，n=4D．m=1，n=2 m=2，n=4

题目

有如下事件过程： Private Sub Command1_Click( ) Dim m AS Integer，n AS Integer m=2：n=1 Print "m="；m；"n="；n Call TOD(m，n) Print "m="；m；"n="；n End Sub Sub TOD(x，y) x=x^2 y=y^3 End Sub 程序运行后，输出的结果为

A．m=2，n=1 m=1，n=2

B．m=2，n=1 m=4，n=1

C．m=1，n=2 m=1，n=4

D．m=1，n=2 m=2，n=4

相似考题

1.若m,x,y,均为Integer型变量,则执行下面语句后m值是()m=1:X=2:Y=3m=IIf(X>Y,X＋Y,X－Y)()A.-1B.0C.1D.2

2.下列程序中，实现将封装数据类型Integer和基本数据类型int之间的转换，以及Integer,int类型和String类型之间的转换。请将程序补充完整。程序运行结果如下：123456456public class ex7_1{public static void main(String[]args) {Integer intObj；int n；String s；intObj = new Integer(123)；n=intObj.__________；System.out.printin(Integer.toString(n))；s=new String("456")；intObj=Integer._________；System.out.println(intObj.__________)；n=Integer.parseInt(s)；System.out.println(Integer.toString(n))；}}

3.若m,x,y,均为Integer型变量,则执行下面语句后m值是()。m=1:X=2:Y=3;m=ifXYthenX＋YelseX－YA、-1B、0C、1D、2

4.有如下事件过程：Private Sub Command1_Click（）Dim m As Integer, n As Integerm=2: n=1Print "m="; m; "n="; nCall TOD（m, n）Print "m="; m; "n="; nEnd SubSub TOD（x, y）x=x ^ 2y=y ^ 3End Sub程序运行后，输出的结果为（ ）。A．m＝2，n＝1m＝1，n＝2B．m＝2，n＝1m＝4，n＝1C．m＝1，n＝2m＝1，n＝4D．m＝1，n＝2m＝2，n＝4

更多“有如下事件过程: Private Sub Command1_Click( ) Dim m AS Integer,n AS Integer m=2:n=1 ”相关问题

  • 第1题：

    E.堆排序：

    procedure sift(i,m:integer);{调整以i为根的子树成为堆,m为结点总数}

    var k:integer;


    正确答案：

     

    begin
    a[0]:=a[i]; k:=2*i;{在完全二叉树中结点i的左孩子为2*i,右孩子为2*i+1}
    while k<=m do begin
    if (k<m) and (a[k]<a[k+1]) then inc(k);{找出a[k]与a[k+1]中较大值}
    if a[0]<a[k] then begin a[i]:=a[k];i:=k;k:=2*i; end
    else k:=m+1;
    end;
    a[i]:=a[0]; {将根放在合适的位置}
    end;

    procedure heapsort;
    var
    j:integer;
    begin
    for j:=n div 2 downto 1 do sift(j,n);
    for j:=n downto 2 do begin
    swap(a[1],a[j]);
    sift(1,j-1);
    end;
    end;

  • 第2题：

    组合的生成(1..n中选取k个数的所有方案)

    procedure solve(dep,pre:integer);

    var

    i:integer;


    正确答案：

     

    begin
    if dep=k+1 then begin writeln(s);exit; end;
    for i:=1 to n do
    if (not used[i]) and (i>pre) then begin
    s:=s+chr(i+ord(''0''));used[i]:=true;
    solve(dep+1,i);
    s:=copy(s,1,length(s)-1); used[i]:=false;
    end;
    end;

  • 第3题：

    有以下程序:includeusing namespace std;class sample{private:int n; public: sampl

    有以下程序： #include＜iostream＞ using namespace std； class sample { private： int n； public： sample(){} sample(int m) { n=m； } sample add(sample s1，sample s2) { this-＞n=s1.n+s2.n； return(*this)； }

    A．n=10

    B．n=5

    C．n=20

    D．n=15


    正确答案：D
    解析：本题考核this指针的应用。上述程序中，sample类的add成员函数中使用了this指针，this指针指向当前对象自身，该成员函数中的语句：this-＞n=s1.n+s2.n；，用于修改当前对象的数据成员n的值，语句：return(*this)；用于返回当前对象自身，即对当前对象进行了修改。对于main()函数调用add成员函数语句“s3．add(s1，s2)；”。此时，this指针指向的是对象s3，执行该语句前，s3的数据成员n未赋值，执行完该语句后，就修改了s3的私有成员n的值，使其为15。

  • 第4题：

    排列的生成：（1..n）

    procedure solve(dep:integer);

    var

    i:integer;


    正确答案：

     

    begin
    if dep=n+1 then begin writeln(s);exit; end;
    for i:=1 to n do
    if not used[i] then begin
    s:=s+chr(i+ord(''0''));used[i]:=true;
    solve(dep+1);
    s:=copy(s,1,length(s)-1); used[i]:=false;
    end;
    end;

  • 第5题：

    有以下程序:includeusing namespace std;Class sample{private:int n;public:sample(

    有以下程序： #include＜iostream＞ using namespace std； Class sample { private： int n； public： sample(){} sample(int m) { n=m； } sample add(sample s1，samplc s2) { this--＞n=s1.n+s2.n； return(*this)； } void disp(

    A．n＝10

    B．n＝5

    C．n＝20

    D．n=15


    正确答案：D
    解析： 本题考查this指针的使用类成员函数add中通过this指针实现私有数据成员n的赋值。

相关内容