Как получить массив для отображения всех его значений одновременно - PullRequest
3 голосов
/ 05 января 2012

Вот пример кода:

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

Очевидно, что код не будет работать, хотя предпосылка хорошая, я не знаю синтаксис для добавления вещей, и я уверен, что я не смог бы добавить целое число в любом случае, мне нужно будет преобразовать каждыйсначала отдельное значение для строки.

Ответы [ 4 ]

14 голосов
/ 05 января 2012

Другой метод заключается в использовании 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
1 голос
/ 05 января 2012

Если я правильно понимаю ваш вопрос, вы можете использовать StringBuilder для добавления значений вместе.

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

Затем просто верните finalValue.ToString()

1 голос
/ 05 января 2012

Преобразуйте целые числа в строки и объедините их:

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()
0 голосов
/ 03 сентября 2018
Dim value as string = ""


For A As Integer = 1 To Begin.nOfMarks
   value += "Mark " & A & ": " & (Begin.Marks(A)) & vbCrLf 
Next A
Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...