Получение многоразрядного числа - Алгоритмы - Интересные решения для программистов - Примеры кода

Алгоритмы → Получение многоразрядного числа → Visual Basic

Многоразрядное число – это число, состоящее из определенного количества разрядов. Например, число 1000 состоит из 4 разрядов, а число 999 – из 3-х разрядов, 99 – из 2-х, а число 1 состоит из 1 разряда. Данная функция поможет сохранить определенную разрядность для любого числа путем добавления дополнительных нулей перед указанным числом.Другими словами, число 999, будет представлено как 0999, число 99 – 0099 и т.д.Создайте стандартный EXE-проект. На форме (Form) разместите элемент TextBox и CommandButton.

format, mask, number, vb, visual basic

KOS_MOS

unknown

19.10.2008

Меню

Подписка на RSS:

Подпишись на RSS-ленту

Поиск

Облако тегов

	Алгоритмы → Получение многоразрядного числа → Visual Basic Многоразрядное число – это число, состоящее из определенного количества разрядов. Например, число 1000 состоит из 4 разрядов, а число 999 – из 3-х разрядов, 99 – из 2-х, а число 1 состоит из 1 разряда. Данная функция поможет сохранить определенную разрядность для любого числа путем добавления дополнительных нулей перед указанным числом.Другими словами, число 999, будет представлено как 0999, число 99 – 0099 и т.д.Создайте стандартный EXE-проект. На форме (Form) разместите элемент TextBox и CommandButton. Public Function nasGetMultiDgital _ (Optional lngNum As Long = 0, _ Optional lngDigitPlace As Long = 0) As String If lngDigitPlace <= 0 Then nasGetMultiDgital = lngNum Exit Function End If Dim strFormat As String Dim i As Long For i = 1 To lngDigitPlace strFormat = strFormat & "0" Next i nasGetMultiDgital = Format(lngNum, strFormat) End Function Private Sub Command1_Click() Text1 = nasGetMultiDgital(CLng(Text1), 6) End Sub format, mask, number, vb, visual basic KOS_MOS unknown 19.10.2008 Ваше имя Ваш E-mail (если хотите отслеживать комментарии) Дoкажи, что ты не робот Текст комментария	Меню CodeIgniter Алгоритмы Базы данных Дата и Время Интернет Интерфейс Мультимедиа ОС и Железо Работа с текстом Разное Технологии Файлы Подписка на RSS: Подпишись на RSS-ленту Поиск Облако тегов .net array asp bash browser charset check class clean convert count create css curl database date delete directory download element email equivalent extension file find form format function get height html http ie image javascript jquery load mysql number page perl php random scriplet send shell size sql string text time url utf8 variable vb visual basic width window xml xslt