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

                                     75
If InStr(1, sTemplate, Chr(KeyAscii)) > 0 Then KeyAscii = 0
End Sub
        Форма для ввода элементов массива и вывода сообщения приведена
ниже.




        Задание 8. Обработка двумерного массива
      Дан двумерный массив числовых значений A(N,M). Сформировать
одномерный массив, элементами которого являются суммы элементов ка-
ждой строки исходного массива. Сформированный массив вывести на эк-
ран в строку. Для ввода элементов исходного массива и вывода сформиро-
ванного массива использовать форму, приведенную на рис.2.
      Ниже приведена программа на языке Visual Basic для решения этой
задачи.
Option Explicit
' Ввести элементы двумерного массива, посчитать сумму элементов ка-
ждой строки, составить одномерный массив из этих сумм и вывести его
на экран.
Option Base 1
Dim a() As Integer
Dim SUM() As Integer
Dim M, N, i, j As Integer
Dim sTemplate As String
Dim zzz As Variant
'Просчет
Private Sub Command2_Click()
ReDim SUM(M * 2) ' Результирующий массив
For i = 1 To M
SUM(i) = 0
For j = 1 To N
SUM(i) = SUM(i) + a(i, j)
Next j, i