填空题

下面的程序代码执行之后，输出如下结果，请填写空白处将程序补充完整：
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