VB：将生成的数组中下标为奇数的数组元素从数组中删除，并显示在一图形框中

Dim iCnt As Integer
Dim iStart As Integer
If LBound(arrTest) Mod 2 = 0 Then
iStart = LBound(arrTest) + 1
Else
iStart = LBound(arrTest)
End If

For iCnt = iStart To UBound(arrTest) \ 2
arrTest(iCnt) = arrTest(iCnt * 2)
Next

ReDim Preserve arrTest(LBound(arrTest) To UBound(arrTest) \ 2)
Picture1.AutoRedraw = True
For iCnt = LBound(arrTest) To UBound(arrTest)
Picture1.Print arrTest(iCnt)
Next

把arrTest换成你生成的那个数组就可以了。Picture1是图形框名称