1.8. Примеры программ работы с числами

Rem Программа_2.1 – определение наибольшего из n чисел

Sub Main()

Dim i As Integer

Dim n As Integer ‘ количество чисел

Dim x As Single, max As Single ‘ очередное число и наибольшее из всех указанных чисел

max = 0

n = InputBox ( "Введите количество чисел")

For i = 1 To n

x = InputBox ("Введите" & Str(i) & "-е число" ‘Str – функция преобразования числа в строку

If x > max Or i = 1 Then max = x

Next i

MsgBox "max = " & Str(max)

End Sub

Rem Программа_2.2 – сортировка массива чисел методом ‘’пузырька”

Sub Main()

Dim T(5) As Single, X As Single

Dim i As Integer, OSTANOV As Integer

For i = 1 To 5

T(i) = InputBox ("Введите " & Str(i) & "-е число")

Next i

M: OSTANOV = 1 ‘ переменная, принимающая значение 0, если есть перестановка чисел

For i = 1 To 4

If T(i) > T(i + 1) Then

X = T(i + 1): T(i + 1) = T(i): T(i) = X ‘ два числа меняются местами

OSTANOV = 0

End If

Next I

If OSTANOV = 0 Then GoTo M

MsgBox “Результат: ” & Str(T(1)) & “ “ & Str(T(2)) & “ “ & Str(T(3)) & “ “ & Str(T(4)) & “ “ & _

Str(T(5))

End Sub

1.9. Обработка строк. Примеры

Функция Len(СТРОКА) выдает длину строки – количество символов в строковом выражении, являющемся аргументом функции.

Функция Chr() преобразует ASCII-код в соответствующий символ; аргумент является целым числом из диапазона от 0 до 255.

Функция Asc() выдает ASCII-код символа, указанного в качестве аргумента (он должен быть в кавычках), либо код первого символа строки.

Функция Chr() возвращает символ, соответствующий указанному ANSI-коду; аргумент может быть целым числом от 0 до 255.

Выделение крайних слева символов строки Left(СТРОКА, ЧИСЛО), ЧИСЛО –это аргумент целого типа, задающий количество выделяемых символов из аргумента СТРОКА.

Выделение правых крайних символов Right(СТРОКА, ЧИСЛО).

Выбор подстроки Mid(СТРОКА, НАЧАЛО, ДЛИНА), где СТРОКА – строка, из которой, начиная с позиции НАЧАЛО (номер символа), выбирается количество символов, указанное в параметре ДЛИНА.

Функция Lcase() возвращает заданную строку в виде строчных букв из диапазона от 32 до 127.

Функция Ucase() противоположна предыдущей функции.

Функция Ltrim$() устраняет в строке ведущие пробелы (пробелы перед первым непробельным символом).

Функция Rtrim() убирает в строке последние пробелы.

Trim() удаляет пробелы в начале и в конце строки.

Создание строки из пробелов Space(), аргумент функции – длина строки.

Spc – в операторе Print# и методе Print выводит указанное число пробелов.

Преобразование строки в число Val(), аргумент должен содержать допустимые для представления числа символы; если нецифровой знак встречается первым в строке, то результат равен нулю; если вместо правильного представления числа указан текст, то возникает прерывание.

Функция Str() представляет числовой аргумент как символьную строку.

Rem Программа_2.3 – сортировка слов методом "пузырька"

Sub Main()

Dim I As Integer, OSTANOV As Integer

Dim T(5) As String, X As String

For I = 1 To 5

T(I) = InputBox ("Введите " & Str(I) & "-е слово ")

Next I

M: OSTANOV = 1

For I = 1 To 4

If T(I) > T(I + 1) Then

X = T(i + 1): T(i + 1) = T(i): T(i) = X

OSTANOV = 0

End If

Next I

If OSTANOV = 0 Then GoTo M

MsgBox “Результат сортировки 5-ти слов: ” & T(1) & “ “ & T(2) & “ ” & T(3) & “ “ & T(4) & _

“ “ & T(5)

End Sub