Question

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

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

Answer 1

一维数组：

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

 适用于任意下标范围的数组

Answer 2

dim i as integer
for i=1 for 20
d(i)=d(i)/2
next

追问

假设是二维数组呢，也是一样的么

追答

不是。
假如dim d(1 to 20 ,1 to 20)
dim i as integer
dim j as integer
for i=1 for 20
for j=1 for 20
d(i ,j)=d(i , j)/2
next
next