Dim t As Table = Tables("初二鹤立考点") Dim a As Integer = t.rows.count Dim b As Integer = a - Math.Floor(a / 30) Dim idx As Integer = 1 For i As Integer = 0 To b Step 30 For j As Integer = 0 To 29 t.Rows(i+j)("考场") = Format(idx,"00") Next idx += 1 Next idx-=1 For i As Integer = b+1 To a - 1 t.Rows(i)("考场") = Format(idx,"00") Next