Пример 4

Пример 3

Пример 2

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

'Имя файла 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,"Результат"

'Имя файла 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

'Имя файла 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)

Дата добавления: 2014-12-29