С помощью оператора ReDim установить фактический размер массива.

<p>Пример</p>

<p>    Dim A() As Single</p>

<p>    Dim n as integer</p>

<p>    n= Csng(inputBox(“n=“))</p>

<p>    Redim A(0 to n)</p>

<p><strong>26. </strong><span style="color:#277e96;font-size:25px;"><strong></strong></span></p>