【VB开源代码栏目提醒】：网学会员--在 VB开源代码编辑为广大网友搜集整理了：5.2.2.frm绩等信息，祝愿广大网友取得需要的信息，参考学习。

    VERSION 5.00
    Begin VB.Form Form3 
       Caption         =   "Form3"
       ClientHeight    =   3195
       ClientLeft      =   60
       ClientTop       =   345
       ClientWidth     =   4680
       LinkTopic       =   "Form3"
       ScaleHeight     =   3195
       ScaleWidth      =   4680
       StartUpPosition =   3  '窗口缺省
    End
    Attribute VB_Name = "Form3"
    Attribute VB_GlobalNameSpace = False
    Attribute VB_Creatable = False
    Attribute VB_PredeclaredId = True
    Attribute VB_Exposed = False
    Private Sub Form_Click()
    Dim a(1 To 3, 1 To 3) As Integer
    Dim i, j As Integer
    '输入矩阵元素
    For i = 1 To 3
     For j = 1 To 3
      a(i, j) = InputBox("请输入a(" & i & "," & j & ")", "数组元素输入")
     Next j
    Next i
    '输出矩阵元素
    For i = 1 To 3
     For j = 1 To 3
      Print a(i, j);
     Next j
     Print
    Next i
    End Sub