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

  1. Получилось только сделать цикл до 100 а как сделать обратный до 1 не знаюvb.net1 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.net1 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


textual

Код:

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


Похожие ответы
  1. Как сделать так, чтобы в ТекстБоксе вводились только цифры?

  1. Сделала, чтоб формировалось рандомом четырехзначное число, а как сделать условие ?PureBasic1 2 3 4 5 6 7 8 Public Class Form1       Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click         TextBox1.Text = CInt(Int((9999 * Rnd()) + 1000))         End Sub End Class

  1. Пожалуйста,помогите!!! Мне нужен написанный код для этой программы в visualstudio2015 (vb.net) и желательно оформление формы(конструктор).

  1. Как перевести строку вида "+7 (777) 872-72-14" в "+77778727214" с помощью регулярных выражений

  1. Хочу напечатать Меня зовут Петя я "програмыст" вот так выот vb.net1 Debug.WriteLine("Меня зовут Петя я "програмыст" вот так выот")Естественно что напечатется только "Меня зовут Петя я " Не знаю как лучше сформулировать вопрос (думаю вы меня и так поняли)...как мне зделать чтобы ковычки в ковычках печатались?

  1. Приветствую! Парни, подскажите, есть ли варианты как можно строку содержащею цифры и буквы переконвертировать в число? Допустим вот исходная строка f0b1ccb3a9, мне нужно получить что-то вроде хеша строки, но чтобы этот хеш состоял только из цифр, то есть был Integer.

  1. есть файл с именем: VLS-700-Y-2015-ORG-088-111-123587-DCK-00061-DPT-000000-DCK-00000.xml файл выбираем через OFD1. и имя выбранного файла записывается в Textbox1.text необходимо при нажатии на кнопку создать папку rename(если она уже создана, то не создавать) в той же директории откуда и был выбран файл, скопировать его туда и переименовать, поменяв в имени только вот эту часть 123587 файла на цифры, которые введены в textbox2.text, остальное меняться не должно. например, на в textbox2.text введено: 222355 имя файла на выходе должно быть: VLS-700-Y-2015-ORG-088-111-222355-DCK-00061-DPT-000000-DCK-00000.xml заранее благодарен

  1. Допустим есть строка "Маша и 12 медвежат шли на реку". Как из этой строки получить число "12"? Если перебором каждого слова, то я знаю, но может быть есть другой способ?

  1. Дан текст из цифр и строчных английских букв, за которыми следует точка. Определить, каких букв – гласных или согласных – больше в этом тексте; напечатать все согласные буквы, которые входят только в одно слово.vb.net1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 Public Class Form1       Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click           Dim stroka As String         Dim g, s, i, j As Integer         Dim vowel As String = "aieouy"         Dim consonant As String = "bcdfghjklmnpqrstvwxz"           stroka = TextBox1.Text           For i = 1 To Len(stroka)             If InStr(1, consonant, Mid(stroka, i, 1)) Then                 s = s + 1                 Label4.Text = s             ElseIf InStr(1, vowel, Mid(stroka, i, 1)) Then                 g = g + 1                 Label3.Text = g             End If               If s - g >= 1 Then                 Label5.Text = "Согласных больше"             ElseIf s - g <= -1 Then                 Label5.Text = "Гласных больше"             ElseIf s - g = 0 Then                 Label5.Text = "Одинаково"             End If           Next i         For j = 0 To Len(consonant) - 1             For w = 0 To Len(stroka) - 1                   If stroka.Chars(w) = consonant.Chars(j) Then Label6.Text += stroka.Chars(w)               Next         Next j                 End Sub End Class Собственно , помогите решить последнею часть : напечатать все согласные буквы, которые входят только в одно слово. Пытался сделать это :vb.net1 2 3 4 5 6 7 For j = 0 To Len(consonant) - 1             For w = 0 To Len(stroka) - 1                   If stroka.Chars(w) = consonant.Chars(j) Then Label6.Text += stroka.Chars(w)               Next         Next j но тут встал вопрос, а как определить кончилось ли слово или нет, я думаю через пробел, но думаю мож есть какая-то процедура ?

  1. В поле «Логин» должны вводиться только маленькие латинские буквы и цифры, но цифры не вводятся (в TextBox1). Что дописать?vb.net1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 Public Class Form1         Private Sub TextBox1_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress         e.Handled = Not e.KeyChar Like "[a-z" + Chr(8) + "]"     End Sub       Private Sub TextBox3_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox3.KeyPress         Dim R As String = "абвгдеёжзиклмнопрстуфхцшщъьячюэы"         If R.ToLower.IndexOf(e.KeyChar.ToString.ToLower) < 0 Then e.Handled = True         If e.KeyChar = ChrW(Keys.Back) = True Then e.Handled = False     End Sub               Private Sub TextBox2_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox2.KeyPress         Me.Text = (TextBox2.Text)     End Sub       Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load       End Sub End Class