В массиве первые шесть чисел оставить без изменения
В массиве первые шесть чисел оставить без изменения
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 [...]