Разговор с компьютером

Решение задачи номер 31

Пусть компьютер перед распечаткой каждого слова ставит его порядковый номер. И еще: если слово длинней 10 букв, компьютер должен добавить – «Тяжелая жизнь.».

 

Решение:

Public Class Form1
    Dim slovo As String
    Dim a As Integer = 0


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Do
            slovo = InputBox("Введите слово") ' пользователь вводит слово
            a += 1 'цикл счётчик попыток
            If Len(slovo) > 10 Then 'счёт количества символов
                Debug.WriteLine(a & " " & slovo & " Тяжёлая жизнь")
            Else
                Debug.WriteLine(a & " " & slovo & "!")
            End If

        Loop Until slovo = "Хватит" 'выход из цикла


        Debug.WriteLine("Хватит так хватит")


    End Sub

Думаю из пояснения всё ясно, более подробных пояснений не требуется. Задачу можно решить несколькими способами.