Visual Basic FAQ

Четные числа увеличить в 2 раза, а нечетные — уменьшить на min элемент

Дан одномерный массив A(7). Получить массив B(7) такой, у которого Ai=Bi, четные числа и 0 увеличить в 2 раза, а нечетные — уменьшить на min элемент

Private Sub Form_Load()
Dim i As Integer, a(7) As Integer, b As Integer, min As Integer, min1 As Integer

For i = 0 To 7
a(i) = 14 * Rnd + 2
List1.AddItem a(i)
Next i

min1 = 0
min = a(min1)
For i = 0 To 7
If min > a(i) Then
min1 = i
min = a(min1)
End If
Next i
List3.AddItem min

For i = 0 To 7
If a(i) Mod 2 = 0 Then
b = a(i) * 2
List2.AddItem b
Else
b = a(i) - min
List2.AddItem b
End If
Next i

End Sub

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