更多"下面程序段的运行结果是( )。 DIMENSION SUM(3) "的相关试题:
[单项选择]
下面程序段的运行结果是（）。
DIMENSION SUM(3)
DATA SUM/1.0，2.0，3.0/
I=2
X=ADD(I，SUM)
WRITE(*，10)X
10 FORMAT(1X，F3．1)
END
FUNCTION ADD(N，SUM)
DIMENSION SUM(N)，L(2)
ADD=0
L(2)=2
DO 20 I=1，N
ADD=ADD+SUM(I)/L(2)
20 CONTINUE
END
A. 1.0
B. 1.5
C. 2.0
D. 3.0
[填空题]下面程序段的运行结果是 【15】 。
Option Base 1
Private Sub swap (a（ ） As Integer)
For I=1 to 10/2
t=a (I)
a (I) =a (10-I+l)
a (10-I+1)=t
Next I
End Sub
Private Sub Form Click（ ）
Dim x(10) As Integer
For I=1 to 10
x(I) =1*2
Next I
Swap x （ ）
For I=1 to 10
Print x (I)
Next I
End Sub
[填空题]下面程序段的运行结果是 【15】 。
Option Base 1
Private Sub Swap (a（ ） As Integ
For I=1 to 10/2
t=a(I)
a(I)=a(10-I+1)
a(10-I+1)=t
Next I
End Sub
Private Sub Form_Click（ ）
Dim x(10) As Integer
For I=1 to 10
x(I)=I*2
Next I
Swap x（ ）
For I=1 to 10
Print x(I)
Next I
End Sub
[填空题]下面程序段的运行结果是 【15】 。
Option Base 1
Private Sub Swap (a（ ） As Integ
For I=1 to 10/2
t=a(I)
a(I)=a(10-I+1)
a(10-I+1)=t
Next I
End Sub
Private Sub Form_Click（ ）
Dim x(10) As Integer
For I=1 to 10
x(I)=I*2
Next I
Swap x（ ）
For I=1 to 10
Print x(I)
Next I
End Sub
[填空题]下面程序段的运行结果是 【14】 。
Option Base 1
Private Sub swap(a( ) As Integer)
For I = 1 to 10/2
t =a(I)
a(I) = a(10-I+l)
a(10-I+1) = t
Next I
End Sub
Private Sub Form Click( )
Dim x(10) As Integer
For I = 1 to 10
x(I) = I * 2
Next I
Swap x( )
For I=1 to 10
Print x(I)
Next I
End Sub
[填空题]下面程序段的运行结果是 【14】 。
Option Base 1
Private Sub swap(a( ) As Integer)
For I = 1 to 10/2
t =a(I)
a(I) = a(10-I+l)
a(10-I+1) = t
Next I
End Sub
Private Sub Form Click( )
Dim x(10) As Integer
For I = 1 to 10
x(I) = I * 2
Next I
Swap x( )
For I=1 to 10
Print x(I)
Next I
End Sub
[填空题]下面程序段的运行结果是 【14】 。
Option Base 1
Private Sub swap(a（ ）As InteSer)
For I=1 to 10/2
t=a(i)
a(i)=a(10-1+1)
a(10-1+1)=t
Next1
End Sub
Private Sub Form_Click（ ）
Dim x(10)As Integer
For I=1 to 10
x(i)=I*2
Next1
Swap x（ ）
For1=1 to 10
Print x (i)
Next I
End Sub
[单项选择]下面程序段，运行后的结果是
Private Sub Command1_Click（ ）
Dim b%(1 To 4)，i%，t#
For i=1 To 4
b(i) =i
Next
t=Tof(b（ ） )
Print"t="；t，
End Sub
Function Tof(a（ ） As Integer)
Dim t#,i%
t=1
For i=2 To UBound(
[单项选择]下面程序段，运行后的结果是 Private Sub Command1_Click（ ） Dim b%(1 To 4) ,i%, t# For i = 1 To 4 b(i) =i Next t =Tof(b（ ） ) Print "t ="; t, End Sub Function Tof(a（ ） As Integer) Dim t#, i% t=1 For i =2 To UBound(a) t=t * a(i) Next Tof = t End Function
A. t=18
B. t=24
C. t=30
D. t=32
[单项选择]下面程序段，运行后的结果是（ ）。
Private Sub Commandl_Click( )
Dim b%(1 To 4)，i%，t#
For i=1 To 4
b(i)=i
Next i
t=Tof(b( ) )
Print"t="；t，
End Sub
Function Tof(a（ ） As Integer)
Dim t#，i%
t=1
For i=2 To UBound(a)
t=t * a(i)
Next i
Tof=t
End Function
A. t=18
B. t=24
C. t=30
D. t=32
[填空题]下面程序段的运行结果是______。
Option Base 1
Private Sub swap(a( ) As Integer)
For I = 1 to 10/2
t =a(I)
a(I) = a(10-I+l)
a(10-I+1) = t
Next I
End Sub
Private Sub Form Click( )
Dim x(10) As Integer
For I = 1 to 10
x(I) = I * 2
Next I
Swap x( )
For I=1 to 10
Print x(I)
Next I
End Sub
[单项选择]下面程序段的运行结果是
void main ( )
int t, a, b, C;
a＝1;b＝2;C＝2;
while(a＜b＜c)
t＝a;a＝b;b＝t;c－－;
cout ＜ ＜ a ＜ ＜ "," ＜ ＜ b ＜ ＜ "," ＜ ＜ C;
Ａ) 1,2,0 Ｂ) 2,1,0 Ｃ) 1,2,1 Ｄ) 2,1,1
[填空题]阅读下面的程序段：
sum=0
for i=1 to 3
for j=i to4
for k=j to 5
sum=sum+l
next k
next j
next i
执行上面的三重循环后，sum的值为______。
[填空题]下面的程序段的，运行结果是______。
int c=6；
void test(x，y)
int*x，y；
{ *x=3*(*x)；y=*x+y；c=y%(*x)；
printf("x=%d，y=%d，c=%d/n"，*x，y，c)；
}
main（ ）
{ int a=1，b=4；
test (&a，b)；
printf("a=%d，b=%d，c=%d/n"，a，b，c)
}
[填空题]阅读下面的程序段：
sum＝0
for i＝1 to 3
for j＝i to 4
for k＝j to 5
sum＝sum+1
next k
next j
next i
执行上面的三重循环后，sam的值为______。
