Как вставить в массив эллемент - 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

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

6 голосов , оценка 4.333 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы