填空题

下列程序段的输出结果为 (15) 。
Dim S1(5) As Integer,S2(5) As Integer,S3(5) As Integer
N=4
For I=1 To N
S1(I)=I
S2(I)=L
Next I
S3(5)=0
For K=1 To N
S3(K)=S1(K)*S2(K)
S3(5)=S3(5)+S3(K)
Next K
Print S1(3); S1(5); S1(2)
Print S2(4); S31); S3(5)

【参考答案】

3 0 2
0 0 0
<上一题 目录 下一题>
热门 试题

填空题
下面程序段实现单击命令按钮Command1时输出如下结果： 1 -1 -1 1 1 -1 1 1 1 该程序不完整，请填空。 Private Sub Command1_Click() Dim X(3,3) For I=1 to 3 For J=1 To 3 If (14) Then X(I，J)=1 End If IfI＜J Then X(I,J)=-1 End If Next J Next I For I=1 To 3 For J=1 To 3 Print X(I,J) Next J Print Next I End Sub
填空题
列程序的功能是将数据1，2，…，10写入顺序文件Base.txt中，请填空。 Private Sub Form_Click() Dim i As Integer Open (13) As#1 For i=1 To 10 Print #1, i Next Close#1 End Sub
相关试题