填空题

下列程序段的输出结果为______。
Dim S1(5)As Integer,S2(5)As Integer,S3(5)As Integer
N=4
ForI=1 To N
S1(I)=I
L=N+i-I
S2(I)=L
NextI
S3(5)=0
ForK=1 To N
S3(K)=S1(K)*S2(K)
S3(5)=S3(5)+S3(K)
NextK
PrintS1(3)=S1(5)；S1(2)
PrintS2(4)=S3(1)；S3(5)

【参考答案】

3 0 2
1 4 20

<上一题目录下一题>

热门试题

填空题

下面运行程序后，单击命令按钮，输出的结果是______。 Private Sub Commandl_clck() Dim a%(1 To 4)，b%(3 To 6)，i%，s1#，s2# Fori=1 To 4 a(i)=i Nexti For i=3 To 6 b(i)=i Nexti s1=YAS(a) S2=YAS(b) Printt s1= ；S1 S2= ；s2 End Sub FunctionYAS(a()AsInteger) Dimt#，i% t=1 For i=LBound(a)ToUBound(a) t=t*a(i) Nexti YAS=t End Funtoon

填空题

Max=k

相关试题