Организовать ввод элементов двумерного массива из текстового файла - VB

Формулировка задачи:

Помогите переделать программу под эти задания. задание: 1.Организовать ввод элементов двумерного массива размерностью N*M из текстового файла(открытие файла через объекты DriveListBox,DirListBox,FileListBox) 2.Вывести исходный массив в таблицу MSFlexGrid. 3.Определить суммы отрицательных элементов по столбцам. 4.Найти квадрат произведения максимального элемента массива и элемента с индексом (L,K). 5.Удалить столбцы, в которых есть хотя бы один отрицательный элемент, кратный 4.флекс.rar

Код к задаче: «Организовать ввод элементов двумерного массива из текстового файла - VB»

textual
Private Sub Command2_Click()
File = Text1
n = Val(Text2)
m = Val(Text3)
For i = 1 To n
summ = 1
For j = 1 To m
If B(i, j) < 0 Then summ = summ + B(i, j)
Next j
If summ <> 1 Then Label9.Caption = Label9.Caption & "ÑòðîêГ*- " & i & " = " & summ & vbCrLf
If summ = 1 Then Label9.Caption = Label9.Caption & "ÑòðîêГ*- " & i & " = " & 0 & vbCrLf
Next i
End Sub

15   голосов, оценка 4.000 из 5


СОХРАНИТЬ ССЫЛКУ