我一直在反对这个问题 . 我试图让它成为我的程序列出两个数字之间的因子,但它将它们列在用户指定的行中,如每行有多少个因子 . 然而,无论它是什么,它只有第一个因子线2是因子1和2,依此类推 . 或者它的每个因子单独在1行上,并且行间距应该是空格 .

Private Sub displayFactors(dblStartValue As Double,
                           dblEndValue As Double,
                           dblFactor As Double,
                           intFactorsPerLine As Integer)
    'Local Variables

    Dim dblNewFactor As Double = 0
    Dim intlineTotal As Integer = 0
    Dim lstOutput As String = ""

    Do While dblNewFactor < dblStartValue

        dblNewFactor = dblNewFactor + dblFactor

    Loop

    Do While dblFactor <= dblEndValue

        intlineTotal = intlineTotal + 1

        Select Case intlineTotal

            Case <= intFactorsPerLine

                lstOutput = lstOutput & " " & dblNewFactor

                dblNewFactor = dblNewFactor + dblFactor

            Case Else

                lstOutput = lstOutput & Environment.NewLine & dblNewFactor

                intlineTotal = 0

        End Select

    Loop

    lstDisplay.Items.Add(lstOutput)