Нужно чтобы при каждом повторении в конце цикла в листбокс добавлялась строчка - VB

Формулировка задачи:

Здравствуйте такая ситуация- в цикле For i = 1 to n рассчитываются многократно значения переменных x и y. При чем каждый раз они разные. Нужно чтобы при каждом повторении в конце цикла в листбокс добавлялась строчка, а содержание листбокса должно выглядеть так: ___________X_____________Y 1________........__________........ 2________........__________........ ..________........__________........ n________........__________........ естественно, вместо "__" - пробелы как такое организовать?

Решение задачи: «Нужно чтобы при каждом повторении в конце цикла в листбокс добавлялась строчка»

textual
                            Листинг программы 
                        

                            Function lPad$(ByVal V, W%)
  If VarType(V) = vbSingle Or VarType(V) = vbDouble Then
    V = Format(V, "0.000")
  End If
  If Len(V) < W Then
    lPad = Space$(W - Len(V)) & V
  Else
    lPad = V
  End If
End Function
 
Private Sub Form_Load()
List1.Font = "Courier New"
For i& = 0 To 999
  List1.AddItem lPad(i, 3) & lPad(Rnd * 1000 + 2500, 12) & lPad(Rnd * 1000 + 7000, 12)
Next i
End Sub
                        

Оцени полезность:

14 голосов , оценка 4.214 из 5

Похожие ответы