[多項(xiàng)選擇題] 在考生文件夾下有一個(gè)工程文件sjr3.vbp，相應(yīng)的窗體文件為sjt3.frm。在窗體上有一個(gè)名稱為Text1的文本框，其Muhiline屬性為True。程序運(yùn)行后，如果單擊窗體，則用隨機(jī)函數(shù)產(chǎn)生16個(gè)0到99的整數(shù)，并按4行4列的矩陣形式在文本框中顯示出來，然后在文本框中輸出矩陣對(duì)角線上的數(shù)。程序運(yùn)行的情況如下圖所示。這個(gè)程序不完整，請(qǐng)把它補(bǔ)充完整，并能正確運(yùn)行。

試題源程序如下：

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 &"矩陣對(duì)角線上的數(shù)為："& vbCrLf

18 Print

19 T=""

20 For i=1 To N

21 For j=1 To M

22 ’If Then

23 ’T=T &a

第一步：啟動(dòng)Visual Basic程序，打開考生文件夾下的工程文件。 第二步：單擊窗體中任何位置，進(jìn)入代碼編輯狀態(tài)，完善程序如下： 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

本題要求將隨機(jī)函數(shù)產(chǎn)生的0～99之間的16個(gè)隨機(jī)數(shù)按4行4列形式顯示在文本框中，同時(shí)顯示對(duì)角線上的數(shù)。第一個(gè)處應(yīng)為：Mat(i，j)，將隨機(jī)數(shù)存在一個(gè)數(shù)組Mat(i，j)中。 第二個(gè)處應(yīng)為：S=S & Mat(i，j)&""，將Mat(i，j)中的數(shù)存在變量S中。 第三個(gè)處應(yīng)為：i=j，數(shù)組的行號(hào)和列號(hào)相同，即為對(duì)角線的位置。 第四個(gè)處應(yīng)為：T=T & Mat(i，j)&""，將對(duì)角線上的數(shù)存在變量T中。