如有以下程序代码: prefix="o" ns="urn:schemas-microsoft-com:office:office" ?xml:namespace> Private Sub Command1_Click() Dim arr(3, 3) As Integer For i = 1 To 3 For j = 1 To 3 If j = i Or j = 3 - i + 1 Then arr(i, j) = 1 Else arr(i, j) = 0 End If Next j Next i Print arr(1, 1) + arr(2, 2) + arr(3, 3) End Sub 运行程序后,在窗体上输出的内容为( )