[填空题] 下面的程序代码执行之后，输出如下结果，请填写空白处将程序补充完整： Private Sub Command1_Click() Dim x(3,3) For i=1 To 3 For

[填空题] 下面的程序代码执行之后，输出如下结果，请填写空白处将程序补充完整：

Private Sub Command1_Click()

Dim x(3,3)

For i=1 To 3

For j=1 To 3

If______Then x(i,j)=1

If______Then x(i,j)=-1

Next j

Next i

For i=1 To 3

For j=1 To 3

Print x(i,j);

Next j

______

Next i

End Sub