ДЕМОНСТРАЦИОННЫЕ ПРИМЕРЫ. ' Программа выводит таблицу ASCII-кодов

Пример 1

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

' Программа выводит таблицу ASCII-кодов

option explicit

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

sub ASCII(N,M)

dim i

dim a

a=""

For i=N to M

a=a&CStr(i)&" - "&chr(34)&chr(i)&Chr(34)&"; "

Next

msgbox a,,"Вывод таблицы ASCII"

end sub

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

ASCII 32,129

ASCII 130,200

ASCII 201,255

Пример 2

'Имя файла Len_+_Mid.vbs

'Демонстрация операции конкатенации "+"

'а также функций работы со строками Len и Mid

option explicit

dim str

MsgBox "Демонстрация функции Len, которая возвращает длину строки"

str=CStr(inputbox("Введите строку","Окно ввода","Первая строка"))

Msgbox "Длина строки "&chr(34)&str&chr(34)&" - "&CStr(len(str))

dim str1,str2,str3

MsgBox "Демонстрация операции конкатенации "+" "

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

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

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

dim concat 'конкатенация строк

concat=str1+str2+str3

Msgbox "Конкатенация трех строк: "&chr(34)&concat&chr(34)

MsgBox "Демонстрация функции Mid, которая возвращает подстроку строки"

str=CStr(inputbox("Введите последовательность символов","",""))

dim start 'начало вырезки

start=CInt(inputbox("Введите целое положительное число",_

"Введите начало вырезки","0"))

dim length

length=CInt(inputbox("Введите целое положительное число",_

"Введите длину вырезки",Cstr(len(str))))

Msgbox "mid из "&chr(34)&str&chr(34)&vbcrlf&_

" - "&chr(34)&mid(str,start,length)&chr(34),0,"Результат"

Пример 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

Пример 9

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

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

dim ch

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

dim i,j

dim s

dim str

str=""

For i=0 to ch

s=0

For j=1 to Len(Cstr(i))

s=s+Cint(Mid(Cstr(i),j,1))^3

Next

If Cint(s)=Cint(i) Then

str=str+Cstr(i)+"; "

End If

Next

msgbox str

Не нашли, что искали? Воспользуйтесь поиском: