在考生文件夹下有一个工程文件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
参考答案：第一步：启动Visual Basic程序，打开考生文件夹下的工程文件。
第二步：单击窗体中任何位置，进入代码编辑状态，完善程序如下：
A Dim S As String, T As String
B N=D
C M=D
D Randomize
E S="初始矩阵为："
F For j=A To N
G S=S & vbCrLf
H For j=A To M
I Mat(i，j)=Int(Rnd*A00)
A0 S=S & Mat(i, j) & ""
AA Next j
AB Next i
AC S=S & vbCrLf & "矩阵对角线上的数为："& vbCrLf
AD Print
AE T=""
AF For i=A To N
AG For j=A To M
AH If i=j Then i. T=T & Mat(i，j) & ""
AI End If
B0 Next j
BA Next i
BB TextA.Text=S+T
BC End Sub
第三步：单击启动键运行成功，按考试要求将文件保存在考生文件夹下。
解析： 本题要求将随机函数产生的0～99之间的16个随机数按4行4列形式显示在文本框中，同时显示对角线上的数。第一个处应为：Mat(i，j)，将随机数存在一个数组Mat(i，j)中。
第二个处应为：S=S & Mat(i，j)&""，将Mat(i，j)中的数存在变量S中。
第三个处应为：i=j，数组的行号和列号相同，即为对角线的位置。
第四个处应为：T=T & Mat(i，j)&""，将对角线上的数存在变量T中。