2012-07-26 96 views
0

您好我是新來的VB和我有使用數組的問題。我的代碼就是這樣。 這是類FindFactorsObject.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 

因此,我創建一個數組並存儲結果。現在我想顯示在我的Form.vb陣列中的每個值,如果有可能有人能教我如何使延遲爲每個顯示的值。非常感謝

回答

0

始終聲明變量,如果可能的話,以他們的確切類型,你認爲他們會照顧。當你說'現在我想在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 
相關問題