динамический массив - VB

Формулировка задачи:

смысл программы заключается в том что при введении значений в Input box нажимаем enter затем генерируем число и выводим на печать после этого вводим вводим значение которое увеличивает размер массива и нажимаем Redim после выведения на печать мы видим сгенерированые числа + (для примера я увеличил массив на разряда) новое значение равное нулю. Помогите написать код который вместо нулевых значений после Redim будут тоже сгенериваные числа Заранее благодарен
Option Explicit
Dim delta As Integer
Dim mydynarr() As Integer
Dim arrsize As Integer
Dim i As Integer
Dim maxindex As Integer
Dim newsize As Integer
 
Private Sub cmdclear_Click()
txtout.Text = ""
End Sub
 
Private Sub cmdEnter_Click()
arrsize = Val(txtInput.Text)
ReDim mydynarr(arrsize - 1)
End Sub
 
Private Sub cmdLoad_Click()
Randomize
maxindex = UBound(mydynarr)
For i = 0 To maxindex
mydynarr(i) = Rnd * 100
Next i
End Sub
 
Private Sub cmdPrint_Click()
For i = 0 To UBound(mydynarr)
txtout.Text = txtout.Text + "mydynarr(" + CStr(i) + ") = " + CStr(mydynarr(i)) + vbCrLf
Next i
End Sub
 
Private Sub cmdredim_Click()
delta = Val(txtredim.Text)
newsize = UBound(mydynarr) + delta
ReDim Preserve mydynarr(newsize)
 
End Sub

Код к задаче: «динамический массив - VB»

textual
Private Sub cmdredim_Click()
delta = Val(txtredim.Text)
newsize = UBound(mydynarr) + delta
ReDim Preserve mydynarr(newsize)
 
For i=newsize-delta+1 to newsize
  mydynarr(i) = Rnd * 100
next i
End Sub

13   голосов, оценка 4.000 из 5


СОХРАНИТЬ ССЫЛКУ