Отправляет email-рассылки с помощью сервиса Sendsay
  Все выпуски  

В массиве первые шесть чисел оставить без изменения


В массиве первые шесть чисел оставить без изменения
2009-11-19 07:00 Александр
В массиве первые шесть чисел оставить без изменения, пять последних заменить на найденные. Dim M(11) As Integer Dim max As Integer Private Sub Command1_Click() For x = 7 To 11 If M(x) > max Then max = M(x) Next x MsgBox (max) Text1.Text = Text1.Text & vbCrLf & "Новый массив" For y = 0 To 11 If y < 7 Then Text1.Text = Text1.Text & vbCrLf [...]


В избранное