как я могу использовать 4-значные числа в vb

Мне нужно считать от 0 - 9999 в VB. Как я могу сделать формат 0000 - 9999 , так что выход:

0000, 0001, 0002, 0003, .......

Я использовал следующий код

Dim p4num As Integer = 0
Dim p3num As Integer = 0
Dim p2num As Integer = 0
Dim p1num As Integer = 0

p4num += 1
If p4num = 10 Then
    p4num = 0
    p3num += 1
    If p3num = 10 Then
        p3num = 0
        p2num += 1
        If p2num = 10 Then
            p2num = 0
            p1num += 1
        End If
    End If
End If

но я бы сделал это по-другому. Есть идеи?

0
nl ja de
там, я переиздаю свой пост сэра Ричарда Шнайдера
добавлено автор Danjor, источник

3 ответы

Может помочь ToString() . Как насчет

myint.ToString("0000")

или

myint.ToString("D4");
3
добавлено
как я могу применять коды, которые вы публикуете?
добавлено автор Danjor, источник
p1num.ToString ( "D4")
добавлено автор Danjor, источник
спасибо за помощь сэр.
добавлено автор Danjor, источник
Мой пост состоял в том, как форматировать целое число в четырехзначную строку. @ Mr47 предоставил общее решение.
добавлено автор Richard Schneider, источник
For i as integer = 0 to 9999
     Debug.WriteLine(i.ToString("0000"))
next

Непроверенный код, но должен работать ...

3
добавлено
Я собираюсь использовать Debug.WritLine (i.ToString («0000»)) тоже?
добавлено автор Danjor, источник
У меня уже есть правильный ответ, p1num.ToString ("D4") спасибо в любом случае :)
добавлено автор Danjor, источник
Это всего лишь примерный способ вывода числа. Важной частью является .ToString ("0000") . Вы можете написать файл или на консоль или ...
добавлено автор Mr47, источник

Ваш гид

Dim numbers As IEnumerable(Of Integer) = Enumerable.Range(0, 9999).ToArray()
'object j = string.Join(", ", numbers);
For Each item As var In numbers
    Console.WriteLine(item.ToString("#0000"))
Next
2
добавлено
извините :)
добавлено автор spajce, источник
я обновил свой ответ sir : D
добавлено автор spajce, источник
да, сэр Ричард прав :)
добавлено автор Danjor, источник
Это похоже на C#, а не VB!
добавлено автор Richard Schneider, источник
DotNetRuChat
DotNetRuChat
2 992 участник(ов)

Чат русскоязычного .NET сообщества http://dotnet.ru/ Вам могут быть интересны: @dotnetchat, @cilchat, @fsharp_chat, @pro_net, @xamarin_russia, @microsoftstackjobs, @uwp_ru Флуд в @dotnettalks

Microsoft Stack Jobs
Microsoft Stack Jobs
1 788 участник(ов)

Work & freelance only Microsoft Stack. Feed https://t.me/Microsoftstackjobsfeed Чат про F#: @Fsharp_chat Чат про C#: @CSharpChat Чат про Xamarin: @xamarin_russia Чат общения:@dotnettalks

pro.net
pro.net
710 участник(ов)

Обсуждение .NET Framework и всего, что с ним связано. Правила: не флудить не по теме, уважать ваших коллег и никакой рекламы (объявления о вакансиях можно согласовать с @AlexFails). Флудилка: @dotnettalks Участник @proDOT

Microsoft Developer Community Chat
Microsoft Developer Community Chat
584 участник(ов)

Чат для разработчиков и системных администраторов Microsoft Developer Community. __________ Новостной канал: @msdevru __________ Баним за: оскорбления, мат, рекламу, флуд, флейм, спам, NSFW контент, а также большое количество оффтоп тем. @banofbot

.NET Talks: Force Push Masters
.NET Talks: Force Push Masters
490 участник(ов)

Свободный чат .NET разработчиков. Правила: t.me/dotnettalks/56823 Вам могут быть интересны: @dotnetruchat, @dotnetchat, @cilchat, @fsharp_chat, @pro_net, @dotnetgroup, @xamarin_russia, @microsoftstackjobs, @uwp_ru http://combot.org/chat/-1001128250813

.NET Chat Убежище
.NET Chat Убежище
246 участник(ов)

Чат .NET разработчиков под эгидой MSK/SPB .NET Community Group Вам могут быть интересны: @fsharp_chat, @dotnetruchat, @cilchat, @xamarin_russia, @microsoftstackjobs, @dotnetgroup Флуд в @dotnettalks

.NET CIL Chat
.NET CIL Chat
54 участник(ов)

.NET CIL (aka IL aka MSIL)