Сокращение ответа - Microsoft Office Word

STIFLER32 · 20.03.2012, 22:38

Имеется Макрос:

PHP код:


			
Private Sub fa(ByVal s As Integer, ByRef L As Double)

L = 1

For i = 1 To s

L = L * i

Next i

End Sub





Sub test1()

Dim x1 As Double

Dim x2 As Double

Dim x3 As Double

Dim n As Integer

Dim m As Integer



Dim c As Double

n = Val(InputBox("Введите n"))

m = Val(InputBox("Введите m"))

fa n, x1

fa m, x2

f2 = n - m

fa f2, x3

c = x2 / (x3 * x1)

MsgBox (Str(c))

End Sub

При вводе чисел, скажем: 5 и 1
Ответ показан в виде: 3,472222222222E-04
Как сделать, чтобы он был короче? Скажем: 3,47 или 3,472

shanemac51 · 20.03.2012, 23:08

Код:

MsgBox (format(c,"0.00"))

STIFLER32 · 20.03.2012, 23:40

постоянно выводит 0,00...

viter.alex · 21.03.2012, 03:02

Конечно, выводит нули. А что вы хотели при округлении до двух знаков? Вы на ответ-то свой взглянули? С каких радостей он будет 3,47 или 3,472? В записи без степеней это будет 0,000347 или 0,0003472. Так-то

@лeся · 22.03.2012, 18:41

Цитата:

Сообщение от viter.alex

Конечно, выводит нули. А что вы хотели при округлении до двух знаков? Вы на ответ-то свой взглянули? С каких радостей он будет 3,47 или 3,472? В записи без степеней это будет 0,000347 или 0,0003472. Так-то

улыбнуло )))))))))

20.03.2012, 22:38	#1
STIFLER32 Пользователь Регистрация: 12.11.2009 Сообщений: 13	Сокращение ответа Имеется Макрос: PHP код: `Private Sub fa(ByVal s As Integer, ByRef L As Double) L = 1 For i = 1 To s L = L * i Next i End Sub Sub test1() Dim x1 As Double Dim x2 As Double Dim x3 As Double Dim n As Integer Dim m As Integer Dim c As Double n = Val(InputBox("Введите n")) m = Val(InputBox("Введите m")) fa n, x1 fa m, x2 f2 = n - m fa f2, x3 c = x2 / (x3 * x1) MsgBox (Str(c)) End Sub` При вводе чисел, скажем: 5 и 1 Ответ показан в виде: 3,472222222222E-04 Как сделать, чтобы он был короче? Скажем: 3,47 или 3,472

20.03.2012, 23:08	#2
shanemac51 Участник клуба Регистрация: 12.08.2010 Сообщений: 1,077	Код: `MsgBox (format(c,"0.00"))` Имя-Галина== почта shanemac51@yandex.ru скайп shanemac51 c 8-15мск будни Сфера интересов--word-excel-access-распознавание

21.03.2012, 03:02	#4
viter.alex Балуюсь кодами Участник клуба Регистрация: 09.01.2009 Сообщений: 1,837	Конечно, выводит нули. А что вы хотели при округлении до двух знаков? Вы на ответ-то свой взглянули? С каких радостей он будет 3,47 или 3,472? В записи без степеней это будет 0,000347 или 0,0003472. Так-то Лучше день потерять — потом за пять минут долететь!©

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Сокращение кода.	Eldrich	JavaScript, Ajax	0	07.09.2011 20:01
Сокращение if	AxenicX	Общие вопросы C/C++	2	07.11.2009 16:08
Сокращение вывода	Nightwolf	Microsoft Office Access	1	23.04.2009 08:33
сокращение дроби	Demonmov	Microsoft Office Excel	4	15.04.2009 11:54
Сокращение выражения	Simon..14	Общие вопросы C/C++	4	25.01.2009 13:33

20.03.2012, 23:40	#3
STIFLER32 Пользователь Регистрация: 12.11.2009 Сообщений: 13	постоянно выводит 0,00...