Подсчитать количество гласных букв в слове и вывести на экран - VB

Узнай цену своей работы

Формулировка задачи:

Листинг программы
  1. Private Sub Command1_Click()
  2. Dim i As Byte
  3. Dim n As Integer
  4. Dim st As String
  5. st = Val(InputBox("Введите слово"))
  6. n = 1
  7. For i = 1 To Len(st)
  8. If Strings.InStr(st, "а") Then
  9. n = n + 1
  10. If Strings.InStr(st, "е") Then
  11. n = n + 1
  12. If Strings.InStr(st, "ё") Then
  13. n = n + 1
  14. If Strings.InStr(st, "и") Then
  15. n = n + 1
  16. If Strings.InStr(st, "о") Then
  17. n = n + 1
  18. If Strings.InStr(st, "у") Then
  19. n = n + 1
  20. If Strings.InStr(st, "ы") Then
  21. n = n + 1
  22. If Strings.InStr(st, "э") Then
  23. n = n + 1
  24. If Strings.InStr(st, "ю") Then
  25. n = n + 1
  26. If Strings.InStr(st, "я") Then
  27. n = n + 1
  28. End If
  29. End If
  30. End If
  31. End If
  32. End If
  33. End If
  34. End If
  35. End If
  36. End If
  37. End If
  38. Next
  39. MsgBox ("кол-во гласных = " + Str(n))
  40. End Sub
Вот мой програмный код))) В итоге,в любом случае,мне выдает "Кол-во гласных букв =1" Буду очень благодарен,если укажите на ошибки,и напишите верный вариант прогамного кода)

Решение задачи: «Подсчитать количество гласных букв в слове и вывести на экран»

textual
Листинг программы
  1. Dim st As String
  2. st = Val(InputBox("все, что угодно === в результате будет 0"))
  3. Print st
  4. st = InputBox("а так будет то, что написано")
  5. Print st

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

8   голосов , оценка 4.125 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут
Похожие ответы