Разделить элементы массива с четными номерами позиций на произвольное число b - VB
Формулировка задачи:
Дан одномерный массив с 10 элементами, разделить элементы массива с четными номерами позиций на произвольное число b не равное 0, введенное с клавиатуры. Помогите составить программу.
Решение задачи: «Разделить элементы массива с четными номерами позиций на произвольное число b»
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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д