Question

编辑：我有一个ItemList：Dim ItemList As New List（Of String）我想将每个元素从itemlist附加到一个新列表中，每个元素10次，然后重新开始。如果列表中仍有元素（每个元素10次），如何为每个元素创建一个循环？

我尝试了这个，但它没有用。这对我来说太复杂了，因为我是新手

    Private crt As Integer = 0
    Private limit As Integer = 0

    Private Function getline() As String
    Dim line As String = ""
        SyncLock addlines
            Do While limit < 10
                line = ItemList(crt)
                limit += 1
            Loop
            limit = 0
            crt += 1
        End SyncLock

    addlines.AppendText(Environment.NewLine & line & " limit:" & limit & " crt:" & crt)
    'Return line
End Function

感谢

我也试过这个：

 For Each I As Item In Items
   If I = x Then Continue For

   ' Do something
   Next

但我不知道在哪里添加10倍限制以及当前项目编号（crt）

Answer 1

尽管我可以从问题的混乱中解脱出来，但您似乎想要将ItemList中的每一行（无论该对象是什么）追加10次。

这应该可以解决问题。

Dim limit as integer=10

For each line as string in ItemList
   For lineNum as integer = 1 to limit
      addlines.AppendText(string.format("{0}{1} Limit: {2} CRT:{3}", Environment.NewLine, line, limit, lineNum ))
   Next lineNum 
Next line

更新：更新了有关CRT的评论中的解释答案。

如何在VB.NET中使用循环？

1 个答案: