Вывести на экран все числа массива с четными индексами - 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

13   голосов , оценка 3.923 из 5
Похожие ответы