有程序：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）=K10CONTINUEWR...

查看本题答案

包含此试题的试卷

Dim a As Integer
a=array(1,2,3,4)  Dim a(),b()
a=array(1,2,3,4): b=a  Dim a As Variant
a=array(1,"aSd",true)  Dim a()As Variant
a=array(1,2,3,4)

y=0 y=1 y=2 y=3

Dim a As Integer
a=array(1,2,3,4)  Dim a(),b()
a=array(1,2,3,4):b=a  Dim a As Variant
a=array(1,"asd",true)  Dim a() As Variant
a=array(1,2,3,4)

48.0 34.0 26.0 40.0

Dim a As Integer
a=array(1,2,3,4)  Dim a(),b()
a=array(1,2,3,4)：b=a  Dim a As Variant
a=array(1,"asd",true)  Dim a()As Variant
a=array(1，2,3,4)

Dim a As Integer a=array(1,2,3,4) Dim a(),b() a=array(1,2,3,4): b=a Dim a As Variant a=array(1,"aSd",tru Dim a()As Variant a=array(1,2,3,4)

Dim a As Integer
a=array(1，2,3,4)  Dim a()，b()
a=array(1，2,3,4)：b=a  Dim a As Variant
a=array(1，"asd",true)  Dim a()As Variant
a=array(1,2,3,4)

Dim a As Integer a=array(1，2,3,4) Dim a()，b() a=array(1，2,3,4)：b=a Dim a As Variant a=array(1，"asd",tru Dim a()As Variant a=array(1,2,3,4)

0.0 -1.0 -2.0 -6.0

Dim a As Integer a=array(1，2,3,4) Dim a()，b() a=array(1，2,3,4)：b=a Dim a As Variant a=array(1，"asd",true) Dim a()As Variant a=array(1,2,3,4)

Dim a As Integer a=array(1,2,3,4) Dim a(),b() a=array(1,2,3,4)：b=a Dim a As Variant a=array(1,"asd",tru Dim a()As Variant a=array(1，2,3,4)

y=0 y=1 y=2 y=3

y=0 y=1 y=2 y=3

2；2；2；3；3；3；4；4；4 2；3；4；2；3；4；2；3；4 3；3；3；3；3；3；3；3；3 4；3；2；4；3；2；4；3；2

y=0 y=1 y=2 y=3

8 5 4 3

48.0 34.0 26.0 40.0

3 4 5 6

2 2 2 3 3 3 4 4 4 2 3 4 2 3 4 2 3 4 3 3 3 3 3 3 3 3 3 4 3 2 4 3 2 4 3 2

y=0 y=1 y=2 y=3