阅读下列程序。Option Base 1Private Sub Form CliCk()Dim x(3,3)For j=1 to 3For k=1 to 3If j=k then x(j,k)=1If j<> k then x(j,k)=3Next kNext jCall fun(x())End SubPrivate Sub fun(a())For j=1 to 3For k=1 to 3Print a (j,k);Next kNext jEnd Sub运行程序时,输出的结果是【 】。

题目

阅读下列程序。

Option Base 1

Private Sub Form CliCk()

Dim x(3,3)

For j=1 to 3

For k=1 to 3

If j=k then x(j,k)=1

If j<> k then x(j,k)=3

Next k

Next j

Call fun(x())

End Sub

Private Sub fun(a())

For j=1 to 3

For k=1 to 3

Print a (j,k);

Next k

Next j

End Sub

运行程序时,输出的结果是【 】。


相似考题
更多“阅读下列程序。OptionBase1Private SubFormCliCk()Dimx(3,3)For j=1 to 3For k=1 to 3If j=kthenx ”相关问题
  • 第1题:

    请阅读以下程序:includevoid fun(int s[]){static int j=0; dos[j]+=s[j+1]; while(++

    请阅读以下程序: #include<stdio.h> void fun(int s[]) { static int j=0; do s[j]+=s[j+1]; while(++j<2);} main() { int k,a[10]={1,2,3,4,5}; for(k=1;k<3;k++)fun(a); for(k=0;k<5;k++)printf("%d",a[k]);} 上面程序的输出是

    A.34756

    B.23445

    C.35745

    D.12345


    正确答案:C
    解析:本题考查了通过数组首地址引用数组元素的方法。第一次执行fun(a)后,a[0]=3,a[1]=5。第二次执行fun(a)时,因为static变量j保存着上次执行时的值为2,所以a[2]=7,最后数组a={3,5,7,4,5},所以正确答案为C)。

  • 第2题:

    下面程序运行后,输出的结果是

    Dim arr(3,3)

    For j=1 To 3

    For k=1 To 3

    Arr(j,k)=(j-1)*3+k

    Next k

    Next j

    For j=2 To 3

    For j=2 To 3

    Print arr(k,j);

    Next k

    Print

    Next j

    A.2 5 3 6

    B.5 8 6 9

    C.4 7 5 8

    D.5 9 6 8


    正确答案:B
    解析:依题意,声明一个三行三列的数组,并用嵌套for循环赋值如下
    arr(1,1)=1 arr(2,1)=4 arr(3,1)=7
    arr(1,2)=2 arr(2,2)=5 arr(3,2)=8
    arr(1,3)=3 arr(2,3)=6 arr(3,3)=9
    最后用Print函数输出arr(2,2),arr(3,2),空行,arr(2,3),arr(3,3)。

  • 第3题:

    阅读下列程序: main() { int n[3],i,j,k; for(i=0;i〈 3;i++) n[i]=0; k=2; for (i=0;i < k;i++) for (j=0;j〈 2;j++) n[j]=n[i]+1; printf("%dn",n[1]); } 下述程序运行后输出结果是

    A.2

    B.1

    C.0

    D.3


    A

  • 第4题:

    3下面程序的运行结果是( )。

    Option Base 1

    Private Sub Commandl_Crick()

    Dimx,y(3,3)

    x=Array(1,2,3,4,5,6,7,8,9)

    Fori=1 To 3

    Forj=1 To 3

    y(i,j)=(i*j)

    If(j>=i)Then Printy(i,j);

    Nextj

    Print

    Nexti

    End Sub

    A.

    B.

    C.

    D.


    正确答案:D

  • 第5题:

    阅读FORTRAN 程序
    DIMENSION M(4,3)
    DATE M/-10,12,24,11,20,-15,61,78,93,30,44,-45/
    N(M(1,1)
    DO 10I=1,4
    DO 10J=1,3
    IF (M(I,J).LT.N) THEN
    N=M(I,J)
    K1=I
    K2=J
    ENDIF
    10 CONTINUE
    WRITE(*,’(2x,314)’) N,K1,K2
    END
    程序运行后的输出结果是:
    (A)93,3,1 (B)-10,1,1
    (C)-45,4,3 (D)78,3,2


    答案:C
    解析: