Описать значение каждой строки в программном коде VBA. Нарисовать блок-схему к программе. Dim a(5)
Dim i As Integer
Private Sub Command1 Click()
k=0
For i = 1 To 5
a(i) = InputBox("Введите элементы массива" + a(i))
List1 Additem "a(" + Str(i) + ") " + Str(a(i))
Next i
For i = 1 To 5
If a(i) Mod 3 = 0 Then k = k + 1
Next i
List3. AddItem "k=" + Str(k)
End Sub

alexkraskina    2   22.12.2020 09:19    0