高手帮帮我吧

Question

公司要做一个分析表:
  结果应该是这样:
  A  B  C  D  E
A    0  1  0  0
B 1     0  1  0
C 0  1     1  1
D 1  0  0
E 1  1  0  0
思路是这样的，如果我在A->B中输入0,那么B->A就显示1,在A->C中输入1,那么C->A就显示0,依此类推.A-A,B->B,...不需要显示
把结果要求打印出来，最好能生成一张报表!
那位大歌能帮帮我呀?

Answer 1

dim a() as int
for i=3 to 行max
for j=2 to 行max-2
if a(i,j)=1 then
a(j,10=0
else if a(i,j)=0 then
a(j,10=1
end if
next
next
做的有错，请高手指点

Answer 2

    这个繁琐是繁琐一点， 不过，难度应该是很简单的吧。你就说你哪里不会吧？0到1或1到0的转换,应该没问题吧? 打印排版吗? 两层循环嵌套就行了。    
Dim i As Integer
Dim j As Integer
For i = 1 To 5
For j = 1 To 5
Print i * j,
Next j
Print
Next i

Answer 3

Option ExplicitPrivate Sub Command1_Click()
Dim a(8, 8) As Variant
Dim i As Integer, j As Integer
a(0, 0) = " "
For i = 1 To 8
a(i, 0) = Chr(i + 64)
a(0, i) = Chr(i + 64)
For j = i + 1 To 8
a(i, j) = Int(Rnd * 2)
a(j, i) = 1 - a(i, j)
Next
NextFor i = 0 To 8
For j = 0 To 8
Print a(i, j) & vbTab;
Next
Print
Print
Next
End Sub

Answer 4

将结果生成一张表？什么意思，存到数据库里，还是指打印出来？上面的代码，换成打印到纸上：
Dim i As Integer
Dim j As Integer
For i = 1 To 5
For j = 1 To 5
printer.Print i * j,
Next j
printer.Print
Next i
printer.enddoc

Answer 5

老大你误会我的意思了，我说的ABCDE等只是代号,以后得用各个科室代替呀!
还有那些数据是我得输入的,我的代码是这样的，就是不能把所显示的文本对齐,希望你能抽时间看看
Private Sub Command1_Click()
Cls
End SubPrivate Sub Command2_Click()   Dim Msg   ' 声明变量。
   On Error GoTo ErrorHandler   ' 设置错误处理程序。
   Me.PrintForm   ' 打印窗体。
   Exit Sub
ErrorHandler:
   Msg = "The form can't be printed."
   MsgBox Msg   ' 显示信息。
   Resume NextEnd SubPrivate Sub start_Click()
Dim a(1 To 4, 1 To 4)
Dim b(4)
Dim sum(4)
For p = 1 To 4
sum(p) = 0
Next
b(0) = "政治处"
b(1) = "办公室"
b(2) = "财务科"
b(3) = "运政综合管理科"
For i = 1 To 4
   For j = 1 To 4
   If IsEmpty(a(i, j)) And i <> j Then
   Print b(i); "->"; b(j);
   a(i, j) = InputBox("请输入得分,如果好请输入1否则输入-1:")
1
a(j, i) = -a(i, j)
   End If
 If i = j Then
   a(i, j) = 0
   End If
   Next j
   Next i
   For q = 1 To 4
   For w = 1 To 4
   If a(q, w) > 0 Then
   sum(q) = sum(q) + a(q, w)
   End If
   Next w
   Next q
   For p = 1 To 4
   Print Tab(5 * p); b(p);
   Next
   Print "     总和";
   Print
For k = 1 To 4
Print Tab(20 * k); b(k);
For n = 1 To 4
Print Tab(6 * n); a(k, n);Next n
Print "    "; sum(k);
Print
Next kEnd Sub还有个问题,点打印总是不能把窗体中的文本打印出来