Visual Basic FAQ

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

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 & M(y)
Else
M(y) = max
Text1.Text = Text1.Text & vbCrLf & M(y)
End If
Next y
End Sub
Private Sub Form_Load()
For x = 0 To 11
M(x) = Val(Rnd * 10)
Text1.Text = Text1.Text & vbCrLf & M(x)
Next x
End Sub

Запись опубликована on 19.11.2009 at 9:00 и размещена в рубрике: Задачи. Вы можете читать комментарии, используя RSS-ленту. Вы можете оставить комментарий, или отправить трекбек с Вашего сайта.