Question

VB挑出所需数据:有一个二维数组:如：{1,2,3,4 5,6,1,2}要挑出大于5的元素,保存成另外一个数组

而且要挑出相邻之和大于5且其中至少有一个元素的值大于5的，保存成另外一个数组。如上述二维数组符合的值：数组1：5，6
数组2：9，11，7

Answer 1

'这个我试过了,可以用
Option Explicit
Private Sub Command1_Click()
Dim a As String
Dim i As Integer
Dim jCOUNT As Integer
Dim jCOUNT1 As Integer
Dim m
Dim n(100)
Dim n1(100) '可游举能数有点大,这里也可以改为10或者更小
a = "1,2,3,4,5,6,1,2"
m = Split(a, ",") '如果你原来有数组的话,这里就不用定义了,直接去掉这两句御神
For i = 0 To UBound(m)
If Val(m(i)) >= 5 Then
n(jCOUNT) = Val(m(i))
jCOUNT = jCOUNT + 1
End If '神拆碧第一个数组,找到大于等于5的数组成数组1

'这里只要其中一个大于等于5就满足两数之和大于5了,是吧?
'为了实现你的条件,我还是把这个过程写一下吧
If i <> 0 Then
If (Val(m(i)) >= 5 Or Val(m(i - 1)) >= 5) And Val(m(i)) + Val(m(i - 1)) >= 5 Then
n1(jCOUNT1) = Val(m(i)) + Val(m(i - 1))
jCOUNT1 = jCOUNT1 + 1
End If
End If
Next i
For i = 0 To jCOUNT
Print n(i)
Next i
For i = 0 To jCOUNT1
Print n1(i)
Next i
End Sub

追问

回答的非常好！只是我没说清楚，应该是“而且要挑出相邻之和大于等于5且其中至少有一个元素的值大于等于5另一个元素的值大于零，保存成另外一个数组。”如：a(i,j)={1,2,3,0,5,6,1,2}，符合条件的新数组为：11，7。不好意思还的再麻烦你！