Question

以下是一些示例代码：

Dim arrValue(3) as Integer
arrValue(0) = 5
arrValue(1) = 4
arrValue(2) = 7
arrValue(3) = 1

如何将这四个值彼此相邻显示。

更具体地说，给定这些值，我如何制作txtValue.Text = 5471

修改

我的想法是使用某种函数将每个函数追加到最后使用这样的循环：

Dim finalValue
For i As Integer = 3 To 0 Step -1
    arrValue(i).appendTo.finalValue
Next

显然代码不起作用虽然前提是声音我不知道附加内容的语法但我确信无论如何我都无法附加一个Integer，我需要转换每个单独的值首先是一个字符串。

Answer 1

另一种方法是使用String.Join：

Sub Main
    Dim arrValue(3) as Integer
    arrValue(0) = 5
    arrValue(1) = 4
    arrValue(2) = 7
    arrValue(3) = 1

    Dim result As String = String.Join("", arrValue)

    Console.WriteLine(result)
End Sub

Answer 2

将整数转换为字符串，并将它们连接起来：

Dim result as String = ""
For Each value as Integer in arrValue
  result += value.ToString()
Next

注意：如果你有很多字符串，使用+=连接字符串会很糟糕。然后你应该使用StringBuilder代替：

Dim builder as New StringBuilder()
For Each value as Integer in arrValue
  builder.Append(value)
Next
Dim result as String = builder.ToString()

Answer 3

如果我正确理解您的问题，您可以使用StringBuilder将值附加在一起。

Dim finalValue as StringBuilder
finalValue = new StringBuilder()
For i As Integer = 3 To 0 Step -1
    finalValue.Append(arrValue(i))
Next

然后返回finalValue.ToString()

Answer 4

for i = lbound(arrValue) to ubound(arrValue)
ss=ss & arrValue(i)
next i
end for 
debug.print ss

Answer 5

Dim value as string = ""


For A As Integer = 1 To Begin.nOfMarks
   value += "Mark " & A & ": " & (Begin.Marks(A)) & vbCrLf 
Next A

如何让数组一次显示所有值

5 个答案: