Вывести на экран все числа массива с четными индексами - VB
Формулировка задачи:
В массиве содержатся 10 случайных чисел. Нужно вывести на экран все числа с четными индексами и отдельно с нечетными индексами.
Решение задачи: «Вывести на экран все числа массива с четными индексами»
textual
Листинг программы
- Option Explicit
- Dim a(1 To 10) As Integer
- Dim i As Integer
- Private Sub Command1_Click()
- Randomize
- For i = 1 To 10
- a(i) = Rnd * 20
- Label1.Caption = Label1.Caption & a(i) & " "
- Next i
- For i = 1 To 10
- If i Mod 2 = 0 Then Label2.Caption = Label2.Caption & a(i) & " " Else Label3.Caption = Label3.Caption & a(i) & " "
- Next i
- End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
