배열의 각 값을 가져와 목록 상자에 표시하는 방법

Question

안녕하세요 저는 VB가 처음이므로 배열을 사용하는 데 문제가 있습니다. 내 코드는 그것과 같습니다. 이것은

Public Sub FindFactors() 
    count = 0 
    temp = Convert.ToInt32(Math.Sqrt(_x)) 
    For i As Integer = 1 To temp 
     If _x Mod i = 0 Then 
      ReDim array(count) 
      array(count) = i 
      count += 1 
     End If 
    Next 

그래서 나는 배열을 생성하고 결과를 저장 클래스 FindFactorsObject.vb입니다. 이제 Form.vb에 배열의 각 값을 표시하고 가능한 경우 누군가가 표시된 값 각각에 대해 지연을 만드는 방법을 가르쳐 줄 수 있습니다. 대단히 고마워요

Answer 1

가능하면 정확한 변수를 선언하십시오. 가능한 경우 정확한 유형으로 처리하십시오. 'Form.vb의 배열에 각 값을 표시하고 싶습니다.'라고 말하면 나는 문자 그대로 이해할 수 있습니다. 양식에서 양식에 인쇄 할 것입니다.

Public Sub FindFactors(_x As Integer) 
    Dim temp As Integer = Convert.ToInt32(Math.Sqrt(_x)) 
    Dim l As New List(Of Integer) 
    For i As Integer = 1 To temp 
     If _x Mod i = 0 Then 
      l.add(i) 
     End If 
    Next 
    Dim pf As New PointF(20, 20) 
    For Each i As Integer In l 
     creategraphics.drawstring(i.ToString, New font(font.fontFamily, 24), brushes.cadetblue, pf) 
     pf = New PointF(pf.X, pf.Y + 30) 
    Next 
End Sub