Вывести на экран все числа массива с четными индексами - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д