题目内容
（请给出正确答案）
有程序：DIMENSION x(3，3) READ(*，*)x CALl SSI(x(1，2)) END SUBROUTINE SSI(x) DIMENSl0N x(3) WRITE(*，*)x(2) END 当输入1、2、3、4、5、6、7、8、9时，此程序执行后的输出结果为： A．3 B．4 C．5 D.6
安装简答题APP，拍照搜题省时又省心！
更多“有程序：DIMENSION x（3，3) READ（*，*)…”相关的问题
A.258
B. 369
C. 456
D. 789
A.3,5
B.2,5
C.3,3
D.1,5
执行下列程序段后,m,x,y的值分别是（）。 int x=2,y=4; boolean m; m=++x＞y--;
A.true , 2,4
B.false , 3,3
C.true, 3,3
D.false, 2,4
下列程序段的执行结果为______。 Dim m(3,3)As Integer Dim i As Integer Dim j As Integer Dim x As Integer For i=1 To 3 m(i,i)=i Next For i=0 T0 3 For j=0 To 3 x=x+m(i, j) Next Next Print x
A．3
B．4
C．5
D．6
下列程序段的执行结果为______。 Dim m(3,3)As Integer Dim i As Integer Dim j As Integer Dim x As Integer For i=1 To 3 m(i,i)=i Next For i=0 To 3 For j=0 To 3 x=x+m(i,j) Next Next Print x
A．3
B．4
C．5
D．6
阅读下列FORTRAN77程序：
DIMENSIONP(3，3)
D010K＝1，3
D010J＝1，3
10P(K，J)＝(K-1)*3+J
CALLSUB(P(2，1)，3，X)
WRITE(*，*)X
END
SUBROUTINESUB(Q，N，P)
DIMENSIONQ(N)
P＝0.0
D0100K＝1，N
100P＝P+Q(K)
END
运行上述程序后，输出的x值为()。
(A) 12.0
(B) 15.0
(C) 16.0
(D) 13.0
下列程序段的执行结果为 ______。 Dim m(3，3)As Integer Dim i As Integer Dim j As Integer Dim K As Integer For i=1 To 3 m(i,i)=i Next For i=0 To 3 For j=0 To 3 x=x+m(i，j) Next Next Print x
A．3
B．4
C．5
D．6
A.CAT, continue......
B.DOG,continue......
C.continue......
D.DOG,
有程序：DIMENSION(4，4) READ(*，*)A WRITE(*，10)A 10 FORMAT(1x，6E9.2) END 此程序执行后的输出结果的记录数为： A．2 B．3 C．4 D．16
阅读下列程序。
Option Base 1
Private Sub Form. _Click()
Dim x(3,3)
For j=1 to 3
For k=l to 3
If j=k then x(j,k)=1
If j＜＞k then x(j,k)=k
Next k
Next i
Call fun(x())
End Sub
Private Sub fun(x())
For j=1 to 3
For k=1 to 3
Print x(j,k)；
Next k
Next j
End Sub
运行程序时，输出结果为【 】。
为了保护您的账号安全，请在“简答题”公众号进行验证，点击“官网服务”-“账号验证”后输入验证码“”完成验证，验证成功后方可继续查看答案！
微信搜一搜
简答题
微信搜一搜
简答题
如搜索结果不匹配，请 
