阅读下列程序。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
运行程序时，输出的结果是【 】。
相关考题：
下面程序运行后，输出的结果是Dim arr(3，3)For j=1 To 3For k=1 To 3Art(j,k)=(j-1)*3+kNext kNext jFor j=2 To 3For k=2 To 3Print arr(k,j)；Next kPrintNext jA．25 36B．58 69C．47 58D．59 68
阅读下列程序。Option Base 1Private Sub Form. Click()Dim x(3,3)For j=l to 3For k=l to 3If j=k then x(j,k)=lIf j＜＞k then x(j,k)=kNext kNext jCall fun(x())End SubPrivate Sub fun(x() )For j=1 to 3For k=1 to 3Print x(j,k);Next kNext jEnd Sub运行程序时，输出结果为【 】
下列程序的运行结果为【 】。A="1"B="2"A=Val (@A@+Val (@B@B=Val ("12")If A＜＞B Then Prink A-B Else Print B-A(11)阅读下列程序: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=l to 3For k=1 to 3Print a (j.k);Next kNext jEnd Sub运行程序时，输出的结果是【 】
阅读下列程序。Option Base 1Private Sub Form. _Click()Dim x(3,3)For j=1 to 3For k=l to 3If j=k then x(j,k)=1If j＜＞k then x(j,k)=kNext kNext iCall fun(x())End SubPrivate Sub fun(x())For j=1 to 3For k=1 to 3Print x(j,k)；Next kNext jEnd Sub运行程序时，输出结果为【 】。
请阅读以下程序: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．34756B．23445C．35745D．12345
3下面程序的运行结果是( )。Option Base 1Private Sub Commandl_Crick()Dimx,y(3，3)x=Array(1，2,3,4,5,6,7,8,9)Fori=1 To 3Forj=1 To 3y(i,j)=(i*j)If(j＞=i)Then Printy(i，j)；NextjPrintNextiEnd SubA．B．C．D．
下面程序运行后,输出的结果是Dim arr(3,3)For j=1 To 3For k=1 To 3Arr(j,k)=(j-1)*3+kNext kNext jFor j=2 To 3For j=2 To 3Print arr(k,j);Next kPrintNext jA．2 5 3 6B．5 8 6 9C．4 7 5 8D．5 9 6 8
阅读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 ENDIF10 CONTINUE WRITE(*，’（2x，314）’) N，K1，K2 END程序运行后的输出结果是：（A）93，3，1 （B）-10，1，1（C）-45，4，3 （D）78，3，2
阅读下列程序: 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．2B．1C．0D．3