Question

您好我是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中显示我的数组中的每个值，如果有可能，有人可以教我如何为每个显示的值进行延迟。非常感谢

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

如何获取数组中的每个值并将其显示在列表框中

1 个答案: