Visual Basic. Практика. Ищенко В.А - 73 стр.

                                    73

   Private Sub Command4_Click()
   max = a(1) + a(2): k = 1: l = 2
   For i = 1 To M - 1
   For j = i + 1 To M
   If a(i) + a(j) > max Then max = a(i) + a(j): k = i: l = j
   Next j
   Next i
   If k > l Then c = k: k = l: l = c
   kol = l - k - 1
   If kol = 0 Then GoTo 20
   For i = k + 1 To M - kol
   a(i) = a(i + kol)
   Next i
   M = M - kol
   20 End Sub

   Private Sub Command5_Click()
   End
   End Sub

   Private Sub Command7_Click()
   If Text1.Text = "" Then GoTo 10
   ReDim a(M)
   For i = 1 To M
   a(i) = InputBox("введите" & i & " элем ент", "В вод элем ента",
   "0")
   Next i
   10 End Sub

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

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

8. П роверит ь коррект н ост ь ра бот ы прил ож ен ия и, при н еобход им ост и,
   испра вит ь ошибки.