下面程序代码实现单击命令按钮Command1时输出如下结果：
1 -1 -1
1 1 -1
1 1 1
该程序不完整，请填空。
Private Sub Command1_Click()
DimX(3,3)
For I=1 To 3
ForJ=1 To 3
If______Then
X(I,J)=1
End If
If I＜J Then
X(I,J)=-1
End If
Next J
NextI
ForI=1 To 3
ForJ=1 To 3
PrintX(I.J)；
NextJ
Print
NeXtI
End SUb

钢包吹氩的目的主要是让夹杂物上浮，对钢水温度和成分没作用。