问答题

在考生文件夹下有一个工程文件sjr3.vbp，相应的窗体文件为sjt3.frm。在窗体上有一个名称为Text1的文本框，其Muhiline属性为True。程序运行后，如果单击窗体，则用随机函数产生16个0到99的整数，并按4行4列的矩阵形式在文本框中显示出来，然后在文本框中输出矩阵对角线上的数。程序运行的情况如下图所示。这个程序不完整，请把它补充完整，并能正确运行。


试题源程序如下：
1 Option Base 1
2 Private Sub Form Click( )
3 Dim Mat(4，4)As Integer
4 Dim N As Integer, M As Integer
5 Dim S As String, T As String
6 N=4
7 M=4
8 Randomize
9 S="初始矩阵为："
10 For i=1 To N
11 S=S & vbCrLf
12 For j=1 To M
13 ’Mat()=Int(Rnd*100)
14 ’S=S & &""
15 Next J
16 Next i
17 S=S & vbCrLf &"矩阵对角线上的数为："& vbCrLf
18 Print
19 T=""
20 For i=1 To N
21 For j=1 To M
22 ’If Then
23 ’T=T & &""
24 End If
25 Next j
26 Next i
27 Text1. Text=S + T
28 End Sub