Question

VB语言设计：建立一个5行5列的二维数组，要求两对角线上的元素为0，其余为1；并在窗体上打印输出。

Answer 1

Dim a(4, 4) '定义二维数组
For i = 0 To 4 '初始化数组
For j = 0 To 4
If i = j Or i = 4 - j Then
a(i, j) = 0 '对角线为0
Else
a(i, j) = 1 '其他为1
End If
Next
Next
'以下打印输出
For i = 0 To 4
For j = 0 To 4
Print a(i, j);
Next
Print
Next