Как вставить в массив эллемент - VB
Формулировка задачи:
День добрый.
Помогите решить задачу:
Составить программу вставки в массив А(N) третьего эллемента с конца массива равного 7ми
Решение задачи: «Как вставить в массив эллемент»
textual
Листинг программы
Option Explicit
Dim i As Double
Dim x As Double
Dim a() As Double
Private Sub Form_Load()
AutoRedraw = True
x = InputBox("Vvedite kol-vo ýëåìåГ*òîâ Г¬Г*Г±Г±ГЁГўГ*")
ReDim a(1 To x)
For i = 1 To x
a(i) = Int(Rnd * 10 - 2.2)
Print a(i);
Next i
Print vbLf
For i = 1 To x
If i = x - 2 Then a(i) = 7
Print a(i);
Next i
End Sub