求一维数组第一个非0元素及其下标

Question

菜鸟想不出来了，谢谢大家

Answer 1

Private Sub Command1_Click()
Dim intFirstNonZero As Integer
Dim intFistNonZeroSuffix As Integer
Dim i  As Integer
Dim intArray(1 To 100) As IntegerintArray(98) = 98For i = 1 To 1000    If intArray(i) <> 0 Then
        intFirstNonZero = intArray(i)
        intFistNonZeroSuffix = i
        Exit For
    End If
NextMsgBox intFistNonZeroSuffix
End Sub

Answer 2

For i = LBound(ss) To UBound(ss)
    If ss(i) <> 0 Then
        MsgBox "&micro;&Uacute;&Ograve;&raquo;&cedil;&ouml;·&Ccedil;&Aacute;&atilde;&Ocirc;&ordf;&Euml;&Oslash;&micro;&Auml;&Iuml;&Acirc;±ê&Ecirc;&Ccedil;" & i & ",&AElig;&auml;&Ouml;&micro;&Icirc;&ordf;" & ss(i)
        Exit For
    End If
Next
不是我打击楼主，楼主还是不要搞这个了吧。其他的也许更适合你。

Answer 3

我真的不是搞这个的，是忘记了exit for这个了，老用end for之类的了，嘿嘿