现有一个大小为n*n的平面矩阵（从上到下从左到右编号为1～n*n），矩阵中有诸多障碍物。有两个机器人分别为1号和2号，其中1号位于左上角且面朝右侧，2号位于右下角且面朝左侧。现在机器人需要按照规则进行K轮运动，规则如下：
①1号和2号机器人需要交替运动，即第一轮由1号进行运动，第二轮则由2号进行运动，第三轮由1号进行运动……以此类推直至第K轮。
②每轮运动时，机器人将先判断前方是否可以前进，若无法前进，则不断顺时针旋转90°至可以前进为止，随后前进直至停止，由另一个机器人开始下一轮运动。
③机器人在前进过程中遇到边界、障碍物或者另一个机器人时都将停止。
如图a所示，机器人1号和2号分别位于左上角和右下角，且分别朝向右侧和左侧，黑块表示障碍物，当进行了4轮运动后，状态如图b所示。
编写程序，启动后随机生成矩阵并在List1中输出，其中“#“表示障碍物，“_”表示可以行走的空格子，机器人用数字1和2表示。在文本框Text1中输入轮数K，点击按钮Command1，在列表框List1中输出K轮后的矩阵。程序界面如图c所示。

（1）若在图a的基础上进行6轮运动后，1号机器人所在的位置是

“第1行第4列“或“4“或其他等效表达

“第1行第4列“或“4“或其他等效表达

（填行列或格子编号均可）。
（2）实现上述功能的部分VB程序如下，请在横线处填入合适的代码。
Const n=10
Dim a（100）As String,steps（3）As Integer,pos（2）As Integer
Dim towards（2）As Integer,cur As Integer,nex As Integer,K As Integer
Private Sub Form_Load ______
'生成矩阵存储在数组a中并输出，代码略
End Sub
Private Sub Command1_Click_____
steps（0）=-n：steps（1）=1：steps（2）=n：steps（3）=-1
pos（1）=1：towards（1）=1：pos（2）=n*n：towards（2）=3
i=1：K=Val（Text1.Text）
Do While i＜=K
cur=（i-1）Mod 2+1
nex=GetNext（pos（cur），towards（cur））
Do While Check（nex）
pos（cur）=nex
nex=GetNext（pos（cur），towards（cur））
Loop
nex=GetNext（pos（cur），towards（cur））
Do While Not Check（nex）
towards（cur）=______
nex=GetNext（pos（cur），towards（cur））
Loop
i=i+1
Loop
'输出矩阵，代码略
End Sub
Function Check（x As Integer） As Boolean
Check=x＜＞0 And a（x）＜＞“#“And _____
End Function
Function GetNext（x,t） As Integer
GetNext=x+steps（t）
If x＞=1 And x＜=n And t=0 Then GetNext=0
If x＞（n-1）*n And x＜=n*n And t=2 Then GetNext=0
If _____ Then GetNext=0
If x Mod n=0 And t=1 Then GetNext=0
End Function