Подсчитать количество гласных букв в слове и вывести на экран - VB
Формулировка задачи:
Листинг программы
- Private Sub Command1_Click()
- Dim i As Byte
- Dim n As Integer
- Dim st As String
- st = Val(InputBox("Введите слово"))
- n = 1
- For i = 1 To Len(st)
- If Strings.InStr(st, "а") Then
- n = n + 1
- If Strings.InStr(st, "е") Then
- n = n + 1
- If Strings.InStr(st, "ё") Then
- n = n + 1
- If Strings.InStr(st, "и") Then
- n = n + 1
- If Strings.InStr(st, "о") Then
- n = n + 1
- If Strings.InStr(st, "у") Then
- n = n + 1
- If Strings.InStr(st, "ы") Then
- n = n + 1
- If Strings.InStr(st, "э") Then
- n = n + 1
- If Strings.InStr(st, "ю") Then
- n = n + 1
- If Strings.InStr(st, "я") Then
- n = n + 1
- End If
- End If
- End If
- End If
- End If
- End If
- End If
- End If
- End If
- End If
- Next
- MsgBox ("кол-во гласных = " + Str(n))
- End Sub
Решение задачи: «Подсчитать количество гласных букв в слове и вывести на экран»
textual
Листинг программы
- Dim st As String
- st = Val(InputBox("все, что угодно === в результате будет 0"))
- Print st
- st = InputBox("а так будет то, что написано")
- Print st
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д