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

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