很简单的二维数组问题 先声明一个0-10,0-10的数组然后 for i=1 to 10 dofor j=1 to 10 doif i=j then a(i,j)=1 else a(i,j)=0应为我不是搞vb的 所以只能提供思路 就是这样 剩下的自己完善 赋值完了输出 别告诉我你不...