学进去

小周同学用 VB 程序模拟考场座位的编排，将编号从 001 开始的 n 个学生按行、列数进行“蛇形排列”。程序功能如下：在文本框 Text1 中输入行数，Text2 中输入列数，点击“生成座位”按钮，在列表框 List1 中输出排列结果。如图所示是运行界面为 6 行 5 列的座位排法（只排了一个试场）。
（1）根据本题代码，如图中所示，数组元素 b(2)的值为（_____）
（2）实现上述功能的 VB 程序如下，请在划线处填入合适的代码。

Private Sub Command1_Click()

Dim a(1 To 200) As String '用来存储学号

Dim b(1 To 200) As String '关联 a 数组，用于矩阵输出

Dim i As Integer, j As Integer, k As Integer, pos As Integer

Dim row as Integer, column as Integer, s As String

For i = 1 To 200 '产生 3 位数的学号

a(i) = Mid("00", 1, (3 - Len(CStr(i)))) + CStr(i)

Next i

row = Val(Text1.Text)

column = Val(Text2.Text)

k = 1

For i = 1 To column

If （_____） then

pos = i 'pos是b数组的下标，根据行列来关联a数组

For j = 1 To row

b(pos) = a(k)

（_____）

k = k + 1

Next j

Else
pos = (row - 1) * column + i

For j = 1 To row

b(pos) = a(k)

pos = pos - column

k = k + 1

Next j

End If

Next i

For i = 1 To row '按行输出学生信息

s = ""

For j = 1 To Column

s = s + " " + （_____）

Next j

List1.AddItem s

Next i

End Sub