将数组放到文本框中，数组小于文本框的数量

Question

我有一个包含8个文本框的数组，其中一个包含2个文本：

    Dim arrA() As TextBox = {a1, a2} 'names of people
    Dim arrB() As TextBox = {b1, b2, b3, b4,b5,b6,b7,b8 } 'output textboxes

我希望我的8个输出文本框 arrB（）在循环中填充来自 arraA（）的人名。

在这种情况下，所有名称将在表单 arrB 中显示4次​​：

NAME1 NAME2 名1 NAME2 名1 NAME2 名1 NAME2

Answer 1

您可以使用 Mod 运算符轻松解决此问题：

Dim index = 0

For Each output In arrB
    output.Text = arrA(index Mod arrA.Count).Text
    index++
Next

或者

For index = 0 To arrB.Count - 1
    arrB(index).Text = arrA(index Mod arrA.Count).Text
Next