<html>
    <head>
      <base href="https://bugs.documentfoundation.org/">
    </head>
    <body><table border="1" cellspacing="0" cellpadding="8">
        <tr>
          <th>Bug ID</th>
          <td><a class="bz_bug_link 
          bz_status_UNCONFIRMED "
   title="UNCONFIRMED - Basic For statement supports "For Each item In array" second syntax that's not documented"
   href="https://bugs.documentfoundation.org/show_bug.cgi?id=128655">128655</a>
          </td>
        </tr>

        <tr>
          <th>Summary</th>
          <td>Basic For statement supports "For Each item In array" second syntax that's not documented
          </td>
        </tr>

        <tr>
          <th>Product</th>
          <td>LibreOffice
          </td>
        </tr>

        <tr>
          <th>Version</th>
          <td>Inherited From OOo
          </td>
        </tr>

        <tr>
          <th>Hardware</th>
          <td>All
          </td>
        </tr>

        <tr>
          <th>OS</th>
          <td>All
          </td>
        </tr>

        <tr>
          <th>Status</th>
          <td>UNCONFIRMED
          </td>
        </tr>

        <tr>
          <th>Severity</th>
          <td>trivial
          </td>
        </tr>

        <tr>
          <th>Priority</th>
          <td>medium
          </td>
        </tr>

        <tr>
          <th>Component</th>
          <td>BASIC
          </td>
        </tr>

        <tr>
          <th>Assignee</th>
          <td>libreoffice-bugs@lists.freedesktop.org
          </td>
        </tr>

        <tr>
          <th>Reporter</th>
          <td>LibreOfficiant@sfr.fr
          </td>
        </tr></table>
      <p>
        <div>
        <pre>Description:
For Each item In array
    [ statements ]
    [ Exit For ]
    [ statements ]
Next [ item ]

Steps to Reproduce:
cf. infra for new code snippet

Actual Results:
n/a

Expected Results:
n/a


Reproducible: Always


User Profile Reset: No



Additional Info:

Sub For_Each
        vector = Array(1,"deux",3.08, &hFFFFFFFF)
        For Each item In vector
                MsgBox item
        Next item
End Sub

Sub ExampleSort
Dim sEntry(9) As String
Dim iCount As Integer
Dim iCount2 As Integer
Dim sTemp As String
        sEntry = Array("Jerry", "Patty", "Kurt", "Thomas", "Michael", _
                "David", "Cathy", "Susie", "Edward", "Christine")
    For iCount = 0 To 9
        For iCount2 = iCount + 1 To 9
            If sEntry(iCount) > sEntry(iCount2) Then
                sTemp = sEntry(iCount)
                sEntry(iCount) = sEntry(iCount2)
                sEntry(iCount2) = sTemp
            End If
        Next iCount2
    Next iCount
    For iCount = 0 To 9 Step 1
        Print sEntry(iCount)
    Next iCount
End Sub</pre>
        </div>
      </p>


      <hr>
      <span>You are receiving this mail because:</span>

      <ul>
          <li>You are the assignee for the bug.</li>
      </ul>
    </body>
</html>