Question

我在如何连续显示for循环语句方面遇到问题，我希望它显示的是data1，data2，data3，data4等等，每个值都带有逗号和单个空格。我在做什么：

    Dim str
    For i = 0 To FuelPrice.Items.Count - 1
        str = FuelPrice.Items(i).SubItems(0).Text
        MsgBox(str & ", ")
    Next

但是我没有得到我所期待的......很抱歉对于noob问题，虽然因为我只是一个noob..lol感谢提前

Answer 1

使用StringBuilder在单个缓冲区中累积文本，然后在循环外显示

Dim str as StringBuilder = new StringBuilder()

For i = 0 To FuelPrice.Items.Count - 1
    str.Append(FuelPrice.Items(i).SubItems(0).Text & ", ")
Next

' To remove the comma added at the end
if str.Length > 0 then 
   str.Length -= 1
End If
MsgBox(str.ToString())

Answer 2

您也可以使用通用列表（或者您喜欢的数组），然后将结果连接在一起。我认为这段代码更清晰。

Imports System.Collections.Generic    ' If not already referenced

Dim str As New List(Of String)

For i = 0 To FuelPrice.Items.Count - 1
    str.Add(FuelPrice.Items(i).SubItems(0).Text)
Next

MsgBox(String.Join(", ", str))

for循环语句和消息框

2 个答案: