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 の配列の各値を表示したいのですが、可能であれば、表示された値ごとに遅延させる方法を誰かに教えてもらえますか。どうもありがとう

4

1 に答える 1

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
于 2012-08-25T00:00:21.473 に答える