Visual Basic. Теория. Нагина Е.К - 60 стр.

                                      60
SUM(i) = SUM(i) + a(i, j)
Next j, i
' В ы во д массиванаэкран
For i = 1 To M
List1.AddItem SUM(i)
Next i
End Sub

Private Sub Command3_Click()
End
End Sub

' Задание массива
Private Sub Command4_Click()
If Text1.Text = "" Or Text2.Text = "" Then GoTo 10
If CInt(Text1.Text) <> CInt(Text2.Text) Then zzz = MsgBox("М ассивдо лж ен
бы ть квадратны м", vbOKOnly, "О ш ибка")
ReDim a(M, N)
10 End Sub

' Д о бавляем элементы
Private Sub Command5_Click()
For i = 1 To M
For j = 1 To N
a(i, j) = InputBox("введите элемент" & i & " стро ки " & j & " сто лбц а",
"В во д элемента", "0")
Next j
Next i
End Sub

Private Sub Command6_Click()
List1.Clear
End Sub

Private Sub Text1_Change()
M = CInt(Text1.Text)
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
sTemplate = "qwer-
tyuiop[]asdfghjkl;'zxcvbnm,/QWERTYUIOP{}ASDFGHJKL:ZXCVBNM<>?-
=\_+|`~!@#$%^&*()й ц укенгш щ зхъфы вапро лдж эячсмитьбю Й Ц У К Е Н ГШ Щ
ЗХ Ъ Ф Ы В А П РО Л Д Ж Э Я Ч СМ И Т ЬБЮ ,№ * "
If InStr(1, sTemplate, Chr(KeyAscii)) > 0 Then KeyAscii = 0
End Sub