UC知道VB 数组元素删除问题
来源：百度知道 编辑：UC知道 时间：2024/05/03 06:47:47
例：
图片大小1×3（宽×长）
a(1)=? a(2)=? a(3)=? a(4)=0
a(5)=? a(6)=? a(7)=? a(8)=0
a(9)=? a(10)=? a(11)=? a(12)=0
？表示：一些数据
为零元素出现规律：a(宽 × 3 + 1) × 高（变量，高为几，就是第几行为0的元素）
怎么把为零元素删除，想了很久想不出来。
图片大小1×3（宽×长）
a(1)=? a(2)=? a(3)=? a(4)=0
a(5)=? a(6)=? a(7)=? a(8)=0
a(9)=? a(10)=? a(11)=? a(12)=0
？表示：一些数据
为零元素出现规律：a(宽 × 3 + 1) × 高（变量，高为几，就是第几行为0的元素）
怎么把为零元素删除，想了很久想不出来。
至少有10种方法.. ^&^
Private Sub Command1_Click()
Dim a(1 To 12), b(), i%, j%
For i = 1 To 12
a(i) = i
If i Mod 4 = 0 Then a(i) = 0
Print "a("; CStr(i); ")="; CStr(a(i)); " ";
If i Mod 4 = 0 Then Print
Next
Print "已得到原数组.."
Print "方法1:"
ReDim b(UBound(a))
For i = 1 To UBound(a)
If a(i) <> "0" Then
b(j) = a(i)
j = j + 1
End If
Next
ReDim Preserve b(j - 1)
Print Join(b)
End Sub