Как вывести матрицу?:

[Shtaket]

Подскажите пож-а как осуществляется вывод матрицы на vbasic?
имеется просто матрица a(I;J) нужно вывести в нормальном виде.Ну тоесть и строки и столбцы.
Спасибо.

[Zer]

Определяешь максимальную длинну элемета и построчно выводишь...

[Shtaket]

А можно описать команду? Как именно?

[Ennor]

А вывод - куда? Если для строки есть контрол Textbox, предназначенный для ее отображения и редактирования, все в интуитивно понятной форме, то для матрицы такого контрола нет. На форму печатать собрался?..

[Shtaket]

Да ,на форму надо....

[Ennor]

Код: Выделить всё

Form1.Print

кажется... Но лучше все-таки в Label, предварительно выставив ему какой-нить моноширинный шрифт типа Courier New. У лейбла соотв. свойство называется Caption.

[Zer]

Не, пожалуй с первым я погорячился... Юзай Format(xxxxx)....

[Shtaket]

А поподробней можно? Просто я чайник в бейсике....Так попросили сделать.А сам паскаль давно в школе изучал.Вот в паскале щнаю как..а тут не могу.

[keks-n]

Да примерно так:

Код: Выделить всё


Option Explicit
Private Sub Form_Load()
Dim Matrix(5, 6) As Long, curstr As String, n As Long, n2 As Long
'Заполнение
For n = 0 To 5
For n2 = 0 To 6
Matrix(n, n2) = Int(Rnd * 100)
Next
Next
'Вывод
Me.AutoRedraw = True
For n = 0 To 5
curstr = ""
For n2 = 0 To 6
curstr = curstr & Matrix(n, n2) & " "
Next
Print curstr
Next
End Sub


[Zer]

Не... Так ниизя... Вся матрица перекосится.

[keks-n]

Ну создавай для каждого значения по лейблу и выравнивай

[Zer]

Какой, нафиг, лейбл! Есть оператор format, которым можно подровнять до необходимой длинны.