数组A我通过循环,怎样把2所在的行和3所在的行找出来?

Question

数组A(1,2,0,0,0,0,3,5,0,6)
我通过循环,怎样把2所在的行和3所在的行找出来?

Answer 1

Dim i&, sPrivate Sub Form_Load()
   s = Array(1, 2, 0, 0, 0, 0, 3, 5, 0, 6)
End SubPrivate Sub Command1_Click()
   For i = 0 To UBound(s)
      If s(i) = "2" Then Exit For
   Next i
   MsgBox "2 在第 " & CStr(i + 1) & " 个字"
   '3 一个意思
End Sub

Answer 2

Private Sub Command1_Click()
Dim aa
Dim i, j, ll, rr As Integer
ll = 0
rr = 0
j = 1
aa = Array(221, 0, 211, 0, 201, 203, 0, 206, 0, 0, 0, 0, 264, 249, 0, 0, 221)
For i = 0 To UBound(aa)
 If aa(i) = 0 Then
    While ll = 0 Or rr = 0
         If ll = 0 Then
             ll = aa(i - j)
         End If
         If rr = 0 Then
             rr = aa(i + j)
         End If
         j = j + 1
    Wend
     MsgBox ll & "***" & rr
     j = 1
     ll = 0
     rr = 0
 End If
Next
End Sub

Answer 3

private sub deal()
dim a,n,k
dim v1,v2
a= Array(221, 0, 211, 0, 201, 203, 0, 206, 0, 0, 0, 0, 264, 249, 0, 0, 221) 
n=val(inputbox("需要第几个0："))
k=0
for i=0 to ubound(a)
   if a(i)=0 then
      k=k+1
      if k=n then
          if i>0 then
              v1=a(i-1)
          end if
          if i<ubound(a) then
              v2=a(i+1)
          end if
          exit for
      end if
   end if
next i
msgbox str(v1)+" "+str(v2)
end sub