我一直在反对这个问题 . 我试图让它成为我的程序列出两个数字之间的因子,但它将它们列在用户指定的行中,如每行有多少个因子 . 然而,无论它是什么,它只有第一个因子线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)