Разделить элементы массива с четными номерами позиций на произвольное число b - VB

Формулировка задачи:

Дан одномерный массив с 10 элементами, разделить элементы массива с четными номерами позиций на произвольное число b не равное 0, введенное с клавиатуры. Помогите составить программу.

Код к задаче: «Разделить элементы массива с четными номерами позиций на произвольное число b - VB»

textual
Private Sub Command1_Click()
Const N = 10
Dim a(N), i  As Integer, b
b = Val(InputBox("b-?", , 10))
Me.Cls
If b <> 0 Then
Randomize (Timer)
For i = 1 To N
a(i) = Int(Rnd * 100)
Me.ForeColor = 0
Print a(i); vbTab;
If i Mod 2 = 0 Then
Me.ForeColor = 255
Print a(i) / b; vbTab
Else
Print a(i); vbTab
End If
Next i
Else
MsgBox "b=0!"
End If
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

12   голосов, оценка 4.250 из 5


СДЕЛАЙТЕ РЕПОСТ