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

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

参考解析：

本题要求将随机函数产生的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中。