Форум программистов, компьютерный форум, киберфорум
Наши страницы
Visual Basic .NET
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/6: Рейтинг темы: голосов - 6, средняя оценка - 5.00
Gravitas
-4 / 2 / 0
Регистрация: 26.01.2013
Сообщений: 102
1

Напечатать цифры от нуля до ста и обратно

12.09.2014, 18:07. Просмотров 1051. Ответов 5
Метки нет (Все метки)

Получилось только сделать цикл до 100 а как сделать обратный до 1 не знаю
vb.net
1
2
3
4
5
Dim a As Long
        a = 0
m1:     MsgBox(a & " ")
        a = a + 1
        If a >= 100 Then MsgBox("Счет до 100 окончен") Else GoTo m1
Добавлено через 5 минут
vb.net
1
2
3
4
5
6
7
8
Dim a As Long
        a = 0
m1:     MsgBox(a & " ")
        a = a + 1
        If a >= 100 Then GoTo m2 Else GoTo m1
m2:     a = a - 1
        MsgBox(a & "  ")
        If a = 1 Then MsgBox("Счет окончен") Else GoTo m2
После мучений что-то получилось.Но как сделать что-бы доходило до 100 а не до 99
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
12.09.2014, 18:07
Ответы с готовыми решениями:

Преобразовать строку в цифры и обратно
Что то у меня не получается преобразовать в цифры. Вот пример что я делаю Dim temp2 As String =...

Работа с файлами. Записать в файл g наибольшее значение первых ста компонент файла f, затем - следующих ста компонент и т.д
Дан файл f, компоненты которого являются целыми числами. Записать в файл g наибольшее значение...

Записать в файл g наибольшее значение первых ста чисел файла f, затем - следующих ста чисел и т.д
Дан файл f, компоненты которого являются целыми числами. Число компонентов файла делится на 100....

Напечатать все цифры, входящие в заданную строку и подсчитать количество вхождений каждой цифры
Напишите программу, которая печатает все цифры, входящие в заданную строку и подсчитывает...

Дано 4 цифры, напечатать цифры в порядке возрастания
в программе ввел 4 числа,она должна распологать цифры в порядке возрастания,без всяких массивов и...

5
dimsaratov
348 / 287 / 78
Регистрация: 02.10.2013
Сообщений: 475
Записей в блоге: 5
12.09.2014, 18:11 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

vb.net
1
2
3
4
5
6
7
8
9
Dim i As Integer = 0
Dim iStep As Integer = 1
     Do
            i += iStep
            Debug.WriteLine(i)
            If i = 100 Then
                iStep = -1
            End If
     Loop Until i = 0
3
Gravitas
-4 / 2 / 0
Регистрация: 26.01.2013
Сообщений: 102
12.09.2014, 18:18  [ТС] 3
Давай попроще.Я до лупа и до не дошел еще.На примерах моего кода.

Добавлено через 12 секунд
Потом подкормлю +
0
ovva
2386 / 2021 / 494
Регистрация: 02.02.2013
Сообщений: 1,881
Записей в блоге: 2
12.09.2014, 19:10 4
м.б. так более понятно
vb.net
1
2
3
4
5
6
7
8
Dim a As String = ""
For i As Integer = 1 To 100
    a &= i.ToString & " "
Next
For i As Integer = 99 To 1 Step -1
    a &= i.ToString & " "
Next
MsgBox(a)
0
Памирыч
Почетный модератор
20877 / 8761 / 1080
Регистрация: 11.04.2010
Сообщений: 11,013
12.09.2014, 19:27 5

Не по теме:

Цитата Сообщение от Gravitas Посмотреть сообщение
Потом подкормлю +
:D


...
1
dr_Morro
183 / 103 / 29
Регистрация: 05.08.2013
Сообщений: 463
18.09.2014, 12:51 6
Цитата Сообщение от Gravitas Посмотреть сообщение
Давай попроще.Я до лупа и до не дошел еще.На примерах моего кода.
Вот:
vb.net
1
If a >= 101 Then GoTo m2 Else GoTo m1
0
18.09.2014, 12:51
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
18.09.2014, 12:51

Текст в цифры и обратно
Подскажите пожалуйста как лучше сделать: Мне нужно взять некоторые данные из таблицы Access, они в...

Перевод римские цифры в арабские и обратно
Помогите решить задачу на C++ перевод римские цифры в арабские и обратно. PLEASE.

Преобразование из кода Морзе в цифры и обратно
в общем есть задание Цифры представляются кодом Морзе следующим образом: 1 . - - - - 6 - . . . ....


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
6
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru