Visual Basic. Разработка приложений: теория и практика. Ищенко В.А - 76 стр.

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