动态数组的赋值步骤

'1

‘ 定义动态数组

Dim arrayNum() As Integer             

'2

‘ 如果动态数组为空，仅用到一次

If IsNothing(arrayNum) Then  

  ‘ 重定义数组          

　 ReDim arrayNum(0) 

  ‘ 给其第一个元素赋值                 

  arrayNum(0) = Ｃ onvert.ToInt32(Console.ReadLine()) 　　

'3

‘ 若不为空 , 则如下操作 ,

Else 　　　　　　　　　　　　　　　　　　

'4

‘ 重定义数组

ReDim Preserve arrayNum(arrayNum.GetUpperBound(0) + 1)

   ‘ 赋值

   arrayNum(arrayNum.GetUpperBound(0)) = Ｃ onvert.ToInt32(Console.ReadLine())

Ｅ nd If