Разделить все элементы массива с четными номерами на первый элемент (первый элемент отличен от 0)

@Yolo_easy · Регистрация: 16.11.2017

Author24 — интернет-сервис помощи студентам

Разделить все элементы массива с четными номерами на первый элемент (первый элемент отличен от 0).

@slava_psk · 09.01.2018, 15:50

Visual Basic

Dim a(10) As Variant
Private Sub Form_Load()
Randomize
For i% = 1 To UBound(a)
a(i%) = Rnd * 10
Next
If a(1) <> 0 Then
For i% = 2 To UBound(a)
If i% Mod 2 = 0 Then
a(i%) = a(i%) / a(1)
'MsgBox a(i%)
End If
Next
End If
end sub

@Ли2 · 10.01.2018, 10:49

slava_psk
Можно было сразу ввести первый элемент, сделав
его отличным от нуля. Тем самым одним оператором
IF THEN - END IF стало бы меньше.

@Yolo_easy 0 / 0 / 0 Регистрация: 16.11.2017 Сообщений: 3
		1
	Разделить все элементы массива с четными номерами на первый элемент (первый элемент отличен от 0) 04.01.2018, 20:04. Показов 1523. Ответов 2 Метки нет (Все метки) Разделить все элементы массива с четными номерами на первый элемент (первый элемент отличен от 0). 0

@Ли2 11 / 11 / 24 Регистрация: 12.12.2017 Сообщений: 131 Записей в блоге: 2
	10.01.2018, 10:49	3
	slava_psk Можно было сразу ввести первый элемент, сделав его отличным от нуля. Тем самым одним оператором IF THEN - END IF стало бы меньше. 0