Playfair密码是一种替换密码，编制密码表的规则如下：
1.输入一个只包含大写字母的字符串S作为密钥。
2.将S中的所有字母‘J’替换为字母‘I'。
3.将S中的字母依次填写进一个5*5的矩阵，按照从上到下、从左到右的顺序填充格子。填充过程中略过已经在密码表中的字母。
4.将'A'-'I'，'K'-'Z'（除去J之外的所有大写字母）中没有出现在密码表中的大写字母按照字母表顺序填入矩阵剩余的格子中。
例如：单词DIJSTRA，替换字母J得到DIISTRA；将DIISTRA填入矩阵得到的密码表如图1所示。根据下列规则一次对明文的两个字母进行加密（假设输入的明文均为大写字母且字母总个数为偶数），其加密规则如下：
1.明文字母中的所有字母‘J’替换为字母‘I’
2.如果分割后的明文字母对在矩阵的同一行中都出现，则分别用矩阵中此字母右侧的字母代替，若是此行的最后一个字母则由此行的第一个字母代替。
3.如果分割后的明文字母对在矩阵的同一列中出现，则分别用矩阵中其下方的字母代替，若为此列的最后一个字母则由此列的第-一个字母代替。
4.如果分割后的明文字母对既不在矩阵的同一列也不在矩阵的同一行中出现，则密文是这两个字母所在的长方形的另两个顶点。
按上述要求，编写VB程序，功能如下：在文本框Text1中输入明文，在文本框Text2中输入密钥，单击“编码”按钮Command1，在列表框Listl中显示5*5的密码表，并在文本框Text3中输出加密后的编码。程序运行界面如图2所示。

（1）请在横线处填入合适的代码。
（2）以图中的数据为例，若将程序中加框处的代码改为

运行程序后，则图中文本框Text3中的输出结果为

MACTXDCI

MACTXDCI