网友您好， 请在下方输入框内输入要搜索的题目：
题目内容
（请给出正确答案）
阅读下列程序。
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
运行程序时，输出的结果是【 】。
参考答案
更多 “ 阅读下列程序。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运行程序时，输出的结果是【 】。 ” 相关考题
考题
下面程序运行后，输出的结果是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
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
考题
阅读下列程序: 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
热门标签
最新试卷
