主题：增加多行并赋值代码

请问如何实现

点击按钮增加7行，其中一列依次赋值为星期一、星期二、星期三、星期四、星期五、星期六、星期天

简单写法：

Dim vals() As String = {"星期一","星期二","星期三","星期四","星期五","星期六","星期天"}
For i As Integer =0 To vals.Length - 1
   Tables("表A").AddNew()("第一列") = vals(i)
Next

标准写法：

Dim vals() As String = {"星期一","星期二","星期三","星期四","星期五","星期六","星期天"}
For i As Integer =0 To vals.Length - 1
   Dim r As Row = Tables("表A").AddNew()
   r("第一列") = vals(i)
Next

For i As Integer = 1 To 10
    Dim nr As Row = Tables("表A").AddNew
    nr("第一列") = "AAA"
Next