| Вопрос: Как вывести все элементы массива в Label? | Добавлено: 20.04.06 18:42 |
Автор вопроса:  Серега
|
|
Есть двумерный массив заполненый числами.
Нужно вывести его элементы в Lable через цикл так чтобы числа отображались примерно в таком виде 1 3 4 5 2 4 8 9 13 14 3 4 Как это сделать в VB6? Вот код для моего массива: Private Sub Command1_Click() Dim i, j, k As Integer Dim intKof(1 To 4, 1 To 4) As Integer i = 1 j = 1 k = 0 Do While i <= 3 Do While j <= 4 intKof(i, j) = Val(Text1(k).Text) j = j + 1 k = k + 1 Loop i = i + 1 j = 1 Loop End Sub |
| Ответы | Всего ответов: 2 |
|
Номер ответа: 1 Автор ответа:  Страшный Сон Вопросов: 46 Ответов: 848 |
Профиль | | #1 | Добавлено: 20.04.06 23:42 |
|
Примерно так:
Label1 = "" For I = 1 To 4 For J = 1 To 4 Label1 = Label1 & CStr(intKof(I, J)) & " " Next J Label1 = Label1 & vbNewLine Next I |
||
|
Номер ответа: 2 Автор ответа: BarsikРазработчик Offline Client ICQ: 343368641 Вопросов: 17 Ответов: 686 |
Web-сайт: Профиль | | #2 | Добавлено: 21.04.06 12:16 |
хех, раньше я такое в qbasic'e делал... похоже сейчас все совершенствуется, уже ВБ юзают, может через пару-тройку лет на асьме будут писать 
|
||
Страница: 1 |