vb数组Dim d(1 To 20) As Integer，数组中所有数除以2

vb数组Dim d(1 To 20) As Integer，数组中所有数除以2
语句怎么实现

一维数组：
For i = LBound(d) To UBound(d)
   d(i) = d(i) / 2
Next二维数组：
For i = LBound(d, 1) To UBound(d, 1)
   For j = LBound(d, 2) To UBound(d, 2)
      d(i, j) = d(i, j) / 2
   Next
Next 适用于任意下标范围的数组

你好！ dim i as integer for i=1 for 20 d(i)=d(i)/2 next 如有疑问，请追问。