Пример 3

'Имя файла Udvoenie.vbs

'Программа удваивает каждую букву введенного слова

option explicit

dim str

str=Cstr(Inputbox("Введите слово","Удвоение букв"))

dim i

dim str1

str1=""

for i=1 to len(str)

str1=str1+mid(str,i,1)+mid(str,i,1)

next

msgbox "Результат: "&str1

Пример 4

'Имя файла Palindrom.vbs

'Программа проверяет является ли строка палиндромом.

'Палиндром - слово, которое читается одинаково слева на право и справа налево

option explicit

dim str, STR1, RTS

dim i

str=CStr(inputbox("Введите параметр","Введите строку",""))

STR1=Ucase(str) ' Переводим символы строки в верхний регистр

STR1=replace(STR1," ","") ' Удаление пробелов

RTS=""

'Записываем слово в обратном порядке

For i=1 to len(STR1)

RTS=Mid(STR1,i,1)+RTS

Next

msgbox str&": полиндром - "&(RTS=STR1)

Пример 5

'Имя файла Dva_podryad.vbs

'Программа определяет есть ли в строке два одинаковых подряд идущих символа

dim otvet

otvet="нет"

dim str

str=Inputbox("Введите строку","Поиск двух повторяющиеся подряд букв в строке")

dim i

For i=1 to len(str)-1

If Mid(str,i,1)=Mid(str,i+1,1) Then

otvet="есть"

End If

Next

msgbox "В "&str&" "&otvet&" 2 одинак. букв. подр.",,"Результат:"

Пример 6

'Имя файла A_or_B.vbs

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

option explicit

dim str

str=Inputbox("Введите строку","Кто раньше "&Chr(34)&"а"&Chr(34)&" или "&_ Chr(34)&"б"&Chr(34))

dim rez

rez="Тут нет ни а ни б"

dim i

i=0

str=LCase(str)

Do

i=i+1

If Mid(str,i,1)="а" Then

rez="А встретилось раньше"

End if

If Mid(str,i,1)="б" Then

rez="Б встретилось раньше"

End if

loop until Mid(str,i,1)="а" or Mid(str,i,1)="б" or (i>len(str))

msgbox rez,,"Результат:"

Пример 7

'Имя файла Podslovo.vbs

'Подсчёт сочетаний «Кря» во введенном слове

option explicit

dim str

str=Inputbox("Введите строку","Поиск подслова кря:")

str=LCase(str) ' Переводим элементы строки в нижний регистр

dim i

dim s

dim fstr 'то подслово что ищем

fstr="кря"

s=0

For i=1 to (len(str)-len(fstr)+1)

If mid(str,i,len(fstr))=fstr Then

s=s+1

End If

Next

msgbox fstr&" повторяется в слове "&str&" "&Cstr(s)&" раз"

Пример 8

' Имя файла Cifra_v_chisle.vbs

'Встречается ли цифра в числе

'-------------------------------------

function Poisk(chislo,cifra)

chislo=Cstr(chislo)

cifra=Cstr(cifra)

dim i

poisk=Cbool(false)

i=1

While mid(chislo,i,1)<>cifra and i<=len(chislo)

i=i+1

WEnd

If i<=len(chislo) Then

poisk=Cbool(true)

End If

end function

'--------------------------------------

dim chislo, cifra

msgbox "Программа определяет, встречается ли введённая цифра"&_

" в введённом числе"

chislo=Inputbox("Введите число")

cifra=Inputbox("Какой цифрой Вы интересуетесь")

If IsNumeric(chislo) and IsNumeric(cifra) and len(cifra)=1 Then

chislo=CDbl(chislo)

Cifra=CByte(cifra)

If poisk(chislo,cifra) Then

msgbox "Такая цифра есть"

Else

msgbox "Такой цифры нет"

End If

Else

msgbox "Вы ввели неправильную строку"

End If