[多项选择题] 在考生文件夹下有一个工程文件sjr3.vbp，相应的窗体文件为sjt3.frm。在窗体上有一个名称为Text1的文本框，其Muhiline属性为True。程序运行后，如果单击窗体，则用

[多项选择题] 在考生文件夹下有一个工程文件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 &a

参考答案：

第一步：启动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中。