VB编写程序，建立并输出一个10*10的矩阵，该矩阵两条对角线元素为1，其余元素均为0。

以下是此题的【VB源代码】
Option Base 1 '要想数组下标不是从O开始，而是从1开始，就要加上这句

Private Sub Form_Click()

    Dim mat(10, 10)
    For i = 1 To 10
        For j = 1 To 10
            If i = j Or i = 10 - j + 1 Then
                mat(i, j) = 1
            Else
                mat(i, j) = 0
            End If
        Next j
    Next i

    For i = 1 To 10
        For j = 1 To 10
            Print mat(i, j);
        Next j
        Print
    Next i

End Sub

运行此VB源码后，点击窗体，结果情况如下图所示：


新世纪计算机基础教育丛书 丛书主编：谭浩强
Visual Basic 程序设计教程 题解与上机指导（第四版） 刘炳文 编著

来源：visual basic程序设计教程第四版答案(刘炳文)

本文链接：http://www.wb98.com/vb1/post/vb_8.10.html