roboforum.ru

**Master** » 17 дек 2009, 18:24

Попросили помочь написать программку на 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 секунды:
Нижнее подчеркивание это пробелы

**MiBBiM** » 17 дек 2009, 18:39

http://msdn.microsoft.com/ru-ru/library/wb216dct.aspx

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

MsgBox(Format(1.234, "#.#"))   ' Displays "1.2".

**-= Александр =-** » 18 дек 2009, 01:19

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

**Master** » 18 дек 2009, 12:19

Блин не получается

**SSG** » 18 дек 2009, 13:42

Взято с 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

**Master** » 21 дек 2009, 03:16

Как я понял стандартной функции нет, а писать самому не охота, а то точно не примут РГР

Всем спасибо за помощь. :beer:

**Michael_K** » 21 дек 2009, 03:53

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

Вам в МСДН труднее зайти, чем форум парить?
"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

**Master** » 21 дек 2009, 11:31

уже поздно
Просто нужно было срочно, а я все не успевал и кодить, и хелп читать, поэтому и запостил.
Но все равно спасибо.

roboforum.ru

Помогите с Visual Basic

Помогите с Visual Basic

Re: Помогите с Visual Basic

Re: Помогите с Visual Basic

Re: Помогите с Visual Basic

Re: Помогите с Visual Basic

Re: Помогите с Visual Basic

Re: Помогите с Visual Basic

Re: Помогите с Visual Basic

Кто сейчас на конференции