Dim A() As Integer

     Array ในลักษณะนี้จะมีประโยชน์ในกรณีที่ไม่ทราบถึงขนาดของข้อมูลที่จะเก็บลงใน Array ต่อมาเมื่อมีการระบุถึงขนาด จึงกระทำภายหลังด้วยคำสั่งดังนี้

ReDim [Preserve] varname(subscripts) [,varname(subscripts)] . . .

	โดยที่	varname	หมายถึง	ชื่อของตัวแปร Array
		subscripts	หมายถึง	ขนาดมิติของ Array

เช่น

Dim A() As Integer . . . . ReDim A(10)

ตัวอย่างการใช้งาน Dynamic Array

<SCRIPT LANGUAGE=VB RUNAT=SERVER> Sub Page_Load() Dim A(), n As Integer ReDim A(3) A(0) = 0 A(1) = 1 A(2) = 2 A(3) = 3 ReDim Preserve A(5) Response.Write (vbCrLf & "<table border=""1"" cellspacing=""0""") Response.Write ("width=""60%"" bordercolor=""#ffffff"" borderColorDark=""#8ec6fc"">") Response.Write (vbCrLf & "<tr bgcolor=""#006699"">") Response.Write (vbCrLf & "<th>A(0)</th>") Response.Write (vbCrLf & "<th>A(1)</th>") Response.Write (vbCrLf & "<th>A(2)</th>") Response.Write (vbCrLf & "<th>A(3)</th>") Response.Write (vbCrLf & "<th>A(4)</th>") Response.Write (vbCrLf & "<th>A(5)</th>") Response.Write (vbCrLf & "</tr>") Response.Write (vbCrLf & "<tr align=""center"">") A(4) = 4 A(5) = 5 For n = 0 To 5 Response.Write (vbCrLf & "<td>" & A(n) & "</td>") Next Response.Write (vbCrLf & "</tr>") Response.Write (vbCrLf & "</table>") ReDim A(6) Response.Write (vbCrLf & "<table border=""1"" cellspacing=""0""") Response.Write ("width=""70%"" bordercolor=""#ffffff"" borderColorDark=""#8ec6fc"">") Response.Write (vbCrLf & "<tr bgcolor=""#006699"">") Response.Write (vbCrLf & "<th>A(0)</th>") Response.Write (vbCrLf & "<th>A(1)</th>") Response.Write (vbCrLf & "<th>A(2)</th>") Response.Write (vbCrLf & "<th>A(3)</th>") Response.Write (vbCrLf & "<th>A(4)</th>") Response.Write (vbCrLf & "<th>A(5)</th>") Response.Write (vbCrLf & "<th>A(6)</th>") Response.Write (vbCrLf & "</tr>") Response.Write (vbCrLf & "<tr align=""center"">") For n = 0 To 6 Response.Write (vbCrLf & "<td>" & A(n) & "</td>") Next Response.Write (vbCrLf & "</tr>") Response.Write (vbCrLf & "</table>") End Sub </SCRIPT>

ดูตัวอย่าง