Ввести строку и подсчитать количество букв "i"
Помогите пожалуйста написать несложный код, вроде бы :D
Задание: Пользователь вводит с клавиатуры строку символов(не более 80). Подсчитать и вывести на экран количество раз, которое латинская буква "i" встречается в строке.
|
Код:
Option Explicit
Const strLetter = "i"
Dim strValue
strValue = Trim(InputBox("Enter a string", "Enter a string"))
If Len(strValue) > 0 Then
WScript.Echo "Letter [" & strLetter & "] occurs " & CStr(Len(strValue) - Len(Replace(strValue, strLetter, ""))) & " times in string [" & strValue & "]."
Else
WScript.Echo "Input cancelled"
WScript.Quit 1
End If
WScript.Quit 0
|
Iska, ты меня уже столько раз спас, что я тебе вышлю свой диплом :D спасибо большое
|
Спасибо, диплома не надо. Можете помочь материально ;).
|
Время: 22:41.
© OSzone.net 2001-
