roboforum.ru

Попросили помочь написать программку на VB6, я на нем раньше никогда не писал. Вобщем вроде асилил, но я не знаю как вывести результат.
Есть набор результатов вычисления, к примеру

0,135315313___0,646816156___0,614651681
0,641561561___0,51561-Е5___0,1616516
1___0,1616516___0,51561-Е14

мне бы это округлить, до 3-го знака и получить вот такой формат
0,135__0,647__0,615
0,642__0,000__0,167
1,000__0,162__0,000

или так
0,135__0,647__0,615
0,642__0______0,167
1______0,162__0

или может таблицу сделать, сейчас я вывожу все это в List

Программа считает корень кубический из числа методом итераций.
Вот исходник

Добавлено спустя 1 минуту 43 секунды:
Нижнее подчеркивание это пробелы

Помнится еще функция Round была. Ей даешь значение и количество цифер после запятой.

Взято с http://www.visual.2000.ru/develop/ms-vb/tips/0002-1.htm

Порой бывает нужно вывести числа с фиксированным количеством цифр, когда спереди добавляются нули. Например, если требуется представить число 12345 в виде 0012345. Это легко осуществимо с помощью такой функции:

Код: Выделить всё • Развернуть

Public Function FixNumber$(SourceNumber, Lend%)
  '
  ' Преобразование числа в строку с фиксированным
  ' количеством цифр (добавляем нули спереди)
  ' =======================================
  ' SourceNumber — исходное число
  ' Lend — количество цифр
  '
  Dim MaxNumber
  MaxNumber = 10 ^ Lend
  If SourceNumber >= MaxNumber Then ' превышен предел
    ' тут могут быть разные варианты
    FixNumber$ = SourceNumber      ' вывод числа полностью
    ' или
    ' FixNumber$ = String$(Lend, "?")  ' замена на знаки вопроса
  Else ' укладывается в рамки
    FixNumber$ = Right$(MaxNumber + SourceNumber, Lend)
  End If
End Function

Да, блин... ЕСТЬ функция формат.
Почитайте хелп по ней.

Вам в МСДН труднее зайти, чем форум парить?
"0.00000" - вот как вам нужно писать.

MyStr = Format(5459.4, "##,##0.00") ' Returns "5,459.40".
MyStr = Format(334.9, "###0.00") ' Returns "334.90".
MyStr = Format(5, "0.00%") ' Returns "500.00%".
MyStr = Format("HELLO", "<") ' Returns "hello".
MyStr = Format("This is it", ">") ' Returns "THIS IS IT".



RTFM