Visual Basic, .NET, ASP, VBScript
Новости | Примеры | Библиотека кодов | НеЧаВо | VBA | Справочник по VB | Справочник по WinAPI | ActiveX контролы | Статьи по VB | Мастерская разработчика | Форум VBNet | Яndex bar! | Голосование | Полезные программы | Магазин VBNet | Рассылка | Конкурсы | Юмор | Чат | Реклама на VBNet | Автора! | Ссылки | Бета-тестирование | Послать пример на сайт
 

   
   
     

Форум - Общий форум

Страница: 1 |

 

  Вопрос: Помогите с числами Добавлено: 05.01.09 21:57  

Автор вопроса:  Адиль | ICQ: 479496667 
Как записать число 1Е+16 в таком виде 10000000000000000(переменная Single или Double) VB 2005.

Ответить

  Ответы Всего ответов: 3  

Номер ответа: 1
Автор ответа:
 @lex



Вопросов: 14
Ответов: 262
  Профиль | Цитата | #1 Добавлено: 05.01.09 23:12
Как-то так)
  1. Private Sub Form_Load()
  2. Dim A As String: Dim B() As String: Dim C As String: Dim N As Long
  3. A = "1312E+5": A = LCase(A)
  4. B = Split(A, "+")
  5. If (UBound(B) > 0) And (Right(B(0), 1) = "e") And (IsNumeric(B(1))) And (IsNumeric(Left(B(0), Len(B(0)) - 1))) Then
  6. C = Left(B(0), Len(B(0)) - 1)
  7.     For N = 1 To B(1)
  8.     C = C & "0"
  9.     Next N
  10. End If
  11. MsgBox C
  12. End Sub

Ответить

Номер ответа: 2
Автор ответа:
 @lex



Вопросов: 14
Ответов: 262
  Профиль | Цитата | #2 Добавлено: 05.01.09 23:12
*CRAZY*

Ответить

Номер ответа: 3
Автор ответа:
 Father



Вопросов: 0
Ответов: 159
  Профиль | Цитата | #3 Добавлено: 05.01.09 23:31
@lex, не пугай людей. :)

  1. Dim x As Single
  2. x = 1.0E+16
  3. Dim s As String = x.ToString("0.0")
  4. MsgBox(s)



  1.  
  2. Dim x As Single
  3. Dim s As String
  4. x = 1E+16
  5. s = Format(x, "0.0")

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам