若某类矩阵的大部分数据是相同值（如0）。我们可以采用仅记录不相同值（如非0数据）的方式进行压缩。甲同学对m行n列的该类矩阵进行以下处理：
●利用一维数组x存储矩阵：把矩阵第1行到第m行数据逐行依次保存在数组x中，x（1）到x（n）分别存放第1行各个数据，x（n+1）到x（2*n）分别存放第2行各个数据，依此类推。
●对数组x中的数据进行压缩：a（1）～a（3）依次存放矩阵的行数，列数及数值0．从数组x的第1个位置开始往后扫描，仅把非0数据所在矩阵中的行号、列号及值保存到a（4）开始的数组元素中，数组a各元素含义如图a所示：

乙同学对数组a中的数据进行转置处理：
●行列转置生成转置矩阵：从第1行到第n行逐行生成转置矩阵，在第i行处理时，扫描数组a,若转置矩阵当前的行号i等于原矩阵元素的列号a（j）（j=5，8，11…），则把a（j）、a（j-1）及a（j+1）依次保存到数组b相应位置，即可把原矩阵第a（j-1）行a（j）列的数据转置为矩阵第a（j））行a（j-1）列的数据。如有3行4列矩阵的转置过程如图b所示。

（1）若m=4，n=3，矩阵数据如图c所示，则数组元素a（7）到a（9）的值依次为：

2，3，2

2，3，2

（填数据，用逗号分隔）

（2）甲、乙同学分别编写程序实现矩阵数据压缩和行列转置。VB代码如下，请在横线处填入合适的代码。