張老師在籌備一次班級活動，活動的場地可以看成由m*n個小方格組成的矩陣（m,n＜=100），由于活動需要，計劃給這個場地鋪上紅地毯。當(dāng)前的地毯都是矩形的，但是大小不一，每塊地毯鋪設(shè)位置由左上角（x1，y1）和右下角（x2，y2）兩個坐標(biāo)確定，且剛好鋪滿該矩形區(qū)域。
張老師想了解每個小方格被多少塊地毯覆蓋，以便更好地調(diào)整地毯鋪設(shè)位置，他編寫了VB程序，實現(xiàn)以下功能：在文本框Text1中輸入行數(shù)m,在文本框Text2中輸入列數(shù)n,在Text3中輸入每塊地毯鋪設(shè)的坐標(biāo)x1，yl,x2，y2，……坐標(biāo)之間逗號分隔，地毯數(shù)量不超過100），單擊計算按鈕Commmand1，在列表框List1中顯示每個小方格被多少塊地毯覆蓋。程序運行界面如圖所示。

（1）文本框Text1中輸入行數(shù)為5，在文本框Text2中輸入列數(shù)5，在Text3中輸入的地毯鋪設(shè)的坐標(biāo)為s=1，1，2，2，1，2，3，3則最后輸出矩陣a（7）的值為

2

2

。（填數(shù)字）
（2）實現(xiàn)上述功能的VB程序如下，請在橫線處填人合適代碼。