宿舍分配代码问题

@asp.net宿舍分配，代码语言vb.netTOC

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Dim conn As New SqlConnection(“data source=PC-20190117NMOY;initial catalog=学生宿舍管理;uid=sa;password=power”)
Dim cmd As New SqlCommand(“select 房间号 from roominfo”, conn)
Dim dr As SqlDataReader
Dim i As Integer, j As Integer
i = 1
j = 1
conn.Open()
dr = cmd.ExecuteReader()
Dim arr((dr.FieldCount) + 1) As String
While dr.Read()
For i = 1 To dr.FieldCount
arr(i) = dr.Item(“房间号”)
Next
End While
dr.Close()
For j = 1 To UBound(arr)
cmd.CommandText = “update freshman set 宿舍号=’” & arr(j) & “’ where ID=convert(bigint,” & j & “)”
cmd.ExecuteNonQuery()
Response.Write(arr(j))
Next
End Sub
End Class

第二个for循环只出现最后一个结果，为什么呢