[单选题]

有程序:DIMENSIONx(3,3)READ(*,*)xCALLSSl(x(1,2))ENDSUBROUTINESSl(x)DIMENSIONx(3)WRITE(*,*)x(2)END当输入1、2、3、4、5、6、7、8、9时,此程序执行后的输出结果为:()

A . 3

B . 4

C . 5

D . 6

参考答案与解析:

相关试题

有程序:INTEGERB(3,3)DATAB/3*2,3*3,3*4/DO10I

[单选题]有程序:INTEGERB(3,3)DATAB/3*2,3*3,3*4/DO10I=1,310WRITE(*,‘(1X,3I2)’)(B(I,J),J=1,3)END此程序的运行结果是:()A . 2;2;2;3;3;3;4;4;4B . 2;3;4;2;3;4;2;3;4C . 3;3;3;3;3;3;3;3;3D . 4;3;2;4;3;2;4;3;2

  • 查看答案
  • 有程序:INTEGERM(3,3)DATAM/1,2,3,4,5,6,7,8,9

    [单选题]有程序:INTEGERM(3,3)DATAM/1,2,3,4,5,6,7,8,9/DO10I=1.3DO10J=1,3K=M(I,J)M(I,J)=M(J,I)M(J,I)=K10CONTINUEWRITE(*,100)((M(I,J),J=1,3),I=1,3)100FORMAT(1x,3I2)END此程序执行后的结果为:()A . 1;4;7;2;5;8;3;6;9B . 1;2;3;4;5;6;7;8;9C . 9;6;3;8;5;2;7;4;1D . 7;8;9;4;5;6;1;2;3

  • 查看答案
  • 下列程序段的执行结果为()。Dim A(3,3)For M=1 To 3 For

    [单选题]下列程序段的执行结果为( )。 Dim A(3,3) For M=1 To 3 For N=1 To 3 If N=M Or N=3-M+1 Then A(M,N)=1 Else A(M,N)=0 End If Next N Next M For M=1 To 3 For N=1 To 3 Print A(M,N) Next N Print Next MA.1 0 0 0 1 0 0 0 1B.1 1 1 1 1 1 1 1 1C.0 0 0 0 0 0 0 0 0D.1 0 1 0 1 0 1

  • 查看答案
  • 下列程序段的执行结果为______。Dim A(3,3)For M=1 To 3

    [单选题]下列程序段的执行结果为______。 Dim A(3,3) For M=1 To 3 For N=1 To 3 If N=M 0r N=3-M+1 Then A(M,N)=1 Else A(M,N)=0 End If Next N Next M For M=1 To 3 For N=1 To 3 Print A(M, N); Next N Print Next MA.1 0 0 0 1 a 0 0 1B.1 1 1 1 1 1 1 1 1C.0 0 0 0 0 0 0 0 0D.1 0 1 0

  • 查看答案
  • 下列程序段的执行结果为 Dim A(3,3) For M=1 To 3 For

    [单选题]下列程序段的执行结果为D.im A(3,3)F.or M=1 To 3F.or N =1 To 3If N=M Or N=3-M+1 ThenA.(M,N)=1E.lseA.(M,N)=0E.nd IfNext NNext MF.or M=1 To 3F.or N=1 To 3Print A(M,N)Next NPrintNext MA.1 0 0 0 1 0 0 0 0B.1 1 1 1 1 1 1 1 1C.0 0 0 0 0 0 0 0 0D.1 0 1 0 1 0 1 0 1

  • 查看答案
  • 下列程序段的执行结果为()。Dim A(3,3)For M=1 To 3For

    [单选题]下列程序段的执行结果为( )。 Dim A(3,3) For M=1 To 3 For N=1 To 3 If N=M Or N=3-M+1 Then A(M, N)=1 Else A(M,N)=0 End If Next N Next M For M=1 To 3 For N=1 To 3 Print A(M,N) Next N Print Next MA.1 0 0 0 1 0 0 0 1B.1 1 1 1 1 1 1 1 1C.0 0 0 0 0 0 0 0 0D.1 0 1 0 1 0

  • 查看答案
  • 下列程序段的执行结果为Dim A(3,3)For M=1 To 3 For N=

    [单选题]下列程序段的执行结果为 Dim A(3,3) For M=1 To 3 For N=1 To 3 If N=M Or N=3-M+1 Then A(M,N)=1 Else A(M,N)=0 End If Next N Next M For M=1 To 3 For N=1 To 3 Print A(M,N) Next N Print Next MA.1 0 0 0 1 0 0 0 0B.1 1 1 1 1 1 1 1 1C.0 0 0 0 0 0 0 0 0D.1 0 1 0 1 0 1 0 1

  • 查看答案
  • 下列程序段的执行结果为Dim A(3,3)For M=1 To 3For N=1

    [单选题]下列程序段的执行结果为D.im A(3,3)F.or M=1 To 3F.or N=1 To 3If N=M Or N=3-M+1 ThenA.(M,N) =1E.lseA.(M,N) =0E.nd IfNext NNext MF.or M=1 To 3F.or N=1 To 3Print A(M,N)Next NPrintNext MA.1 0 0 0 1 0 0 0 0B.1 1 1 1 1 1 1 1 1C.0 0 0 0 0 0 0 0 0D. 1 0 1 0 1 0 1 0 1

  • 查看答案
  • 有程序:READ(*,100)A100FORMAT(3x,F6.2)WRITE(

    [单选题]有程序:READ(*,100)A100FORMAT(3x,F6.2)WRITE(*,200)A200FORMAT(1x,F8.2)END当执行此程序时,从键盘输入1234567890↙,则程序的运行结果是:()A .4567.89B .1234.56C .******D . D.1234.5

  • 查看答案
  • 已知x=[1,2],那么执行语句x[0:1]=[3,3]之后,x的值为_____

    [主观题]已知x=[1,2],那么执行语句x[0:1]=[3,3]之后,x的值为___________。

  • 查看答案
  • 有程序:DIMENSIONx(3,3)READ(*,*)xCALLSSl(x(1