1. (2023高一上·镇雄期末) 现有一个大小为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所示。

图a

图b

图c

1. （1） 若在图a的基础上进行6轮运动后，1号机器人所在的位置是（填行列或格子编号均可）。
3. （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