Open Library - открытая библиотека учебной информации. Функции в visual basic


Пользовательские функции рабочего листа Visual Basic

Пользовательские функции рабочего листа VBA

Функция пользователя

Пользователь может создать собственную функцию в стандартном модуле редактора VBA.

Для вызова редактора VBA задайте команду Сервис - Макрос - Редактор Visual Basic или нажмите комбинацию клавиш Alt+F11. В результате пользователь попадает в интегрируемую среду приложений IDE редактора Visual Basic. Она имеет стандартный вид для Windows-приложений:

строка меню,

панель инструментов (в данном случае Standart),

два окна Project – VBAProject и Properties.

В окне Project – VBAProject отображается реестр модулей и форм, входящих в создаваемый проект.

Модуль - это лист (не путать с рабочим листом), в котором набирается код.

Двойным щелчком на значке модуля в окне Project – VBAProject можно открыть соответствующий модуль. Значок активного модуля в окне Project – VBAProject выделяется серым цветом.

В VBA у каждого рабочего листа имеется собственный модуль. Кроме того, рабочая книга обладает своим, и если в проекте создаются пользовательские формы, то каждая из них имеет по модулю. В проекте также можно добавлять модули классов для описания создаваемых пользовательских классов (эти модули будут рассмотрены позже). Единый модуль, который нам необходим, - это стандартный модуль. Для того чтобы его добавить в проект, выберите команду Insert-Module.

Структура кода функции пользователя

В окне стандартного модуля с клавиатуры набирается текст процедуры - функции пользователя. В общем случае функция пользователя имеет следующую структуру:

Function имя_функции (список_аргументов)

[инструкции]

End Function

где

имя_функции – имя создаваемой функции, придуманное пользователем;

список_аргументов – список аргументов;

инструкции – это последовательность команд, выполняемых при нахождении значения функции. В совокупности они образуют тело функции.

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

Примечание. Разрешается досрочный выход из функции по инструкции Exit Function. В теле функции может располагаться несколько инструкций Exit Function.

Пример 1. Создание функции пользователя

Рассмотрим построение простой функции, которая возвращает стоимость товара по его стоимости без НДС и значению ставки НДС.

Вызовите редактор VBA командой Сервис - Макрос - Редактор Visual Basic или комбинацией клавиш Alt+F11. Добавьте в проект стандартный модуль командой Insert - Module. В окне модуля наберите код, представленный в листинге 1.

Листинг 1. Пользовательская функция определения стоимости товара

Function Стоимость (СтоимостьБезНДС, НДС)

Стоимость = СтоимостьБезНДС * (1 + НДС / 100)

End Function

Применение пользовательской функции для решения задачи

К созданной пользовательской функции можно обратиться через Мастер функций. По умолчанию она попадает в раздел Определенные пользователем списка Категория окна Мастера функций. Используем созданную функцию для определения стоимости товара с учетом НДС при условии, что НДС равен, например, 25 %, а стоимость товара без учета НДС равна 1000.

Алгоритм применения функции пользователя

Разместите данные, необходимые для решения задачи, на рабочем листе как показано на рисунке:

В ячейку А2 введите число 1000 (стоимость без НДС), а в ячейку В2 - число 25 (НДС).

Для определения значения стоимости товара с учетом НДС переместите табличный курсор в ячейку С2 и вызовите Мастер функций (например, командой Вставка - Функция).

В окне Мастера функций в списке Категория найдите значение Определенные пользователем, затем в списке Функция выберите функцию Стоимость и подтвердите свой выбор щелчком по командной кнопке ОК.

В появившемся окне функции Стоимость в полях СтоимостьБезНДС и НДС задайте ссылки на ячейки А2 и В2 с исходными данными для этих аргументов (щелкните левой кнопкой мыши по соответствующим ячейкам, чтобы не набирать вручную с клавиатуры их адреса) и нажмите командную кнопку ОК.

Примечание. Возможность использовать в качестве имен переменных русские названия новая функция может быть легко распознана любым пользователем по ее имени, и смысл параметров функции становится понятным.

Результат вычисления

Пример 2. Создание функции пользователя

Необходимо создать функцию определения суммы заработной платы сотрудника за отработанные дни. Аргументами функции являются: величина месячного оклада сотрудника, количество рабочих дней в месяце, количество отработанных сотрудником дней. Добавьте в проект стандартный модуль командой Insert - Module. В окне модуля наберите код, представленный в листинге 2.

Листинг 2. Пользовательская функция определения суммы заработной платы сотрудника за отработанные дни

Function Зар_плата_отраб_время (Оклад, РабДни, ОтрабДни)

Зар_плата_отраб_время = Оклад / РабДни * ОтрабДни

End Function

Алгоритм применения функции пользователя

Разместите данные, необходимые для решения задачи, на рабочем листе как показано на рисунке:

Переместите табличный курсор в ячейку Е2 и вызовите Мастер функций, в окне Мастера функций в списке Категория выберите пункт Определенные пользователем, затем в списке Функция - функцию Зар_плата_отраб_время и подтвердите свой выбор щелчком по командной кнопке ОК. В появившемся окне функции Зар_плата_отраб_время в полях Оклад, РабДни и ОтрабДни задайте ссылки на ячейки В2, С2 и D2 с исходными данными для этих аргументов и нажмите командную кнопку ОК:

Результат вычисления

Пример 3. Создание функции пользователя с использованием стандартных математических функций

Математические функции

При создании функций пользователю могут потребоваться встроенные в VBA математические функции. Перечень таких функций представлен в таблице 1.

Таблица 1. Встроенные математические функции VBA

Создадим пользовательскую функцию:

.

В новом стандартном модуле наберите код, представленный в листинге 3.

Листинг 3. Пользовательская функция с использованием встроенной математической функции

Function F(x)

Pi = Atn (1) * 4

F = Cos (Pi * x) ^ 2

End Function

В VBA нет функции, возвращающей число П ("пи"), поэтому оно определяется через функцию Ant (арктангенс): Pi = 4 * Atn (1). Число П можно задать явно, указав достаточное число значащих цифр, но этот подход менее элегантен, чем с помощью функции Ant.

Алгоритм применения функции пользователя

Разместите данные, необходимые для решения задачи, на рабочем листе (как показано на рисунке) и с помощью Мастера функций вызовите новую функцию:

Оператор условного перехода

Оператор условного перехода задает выполнение определенных групп инструкций в зависимости от значения выражения.

Синтаксис:

If condition Then [statements ] [ Else elsestatements ]

Если условие condition принимает значение True, то выполняются инструкции statements, если False, то инструкции elsestatements. Ветвь Else является необязательно.

Например, если скидка (скажем 50%) применяется только к суммам больше 10001, то в VBA это можно записать следующим образом:

If Money > 1000 Then Discount = 0.05 Else Discount = 0

или, что равносильно

If Money > 1000 Then Discount = 0.05

Допускается также использование блочной формы синтаксиса, которая часто упрощает восприятие оператора условного перехода. Обратите внимание на то, что при блочной организации оператора условного перехода используется ключевое слова End If для обозначения окончания оператора.

mirznanii.com

Функции в Visual Basic

ВНИМАНИЮ ВСЕХ УЧИТЕЛЕЙ: согласно Федеральному закону N273-ФЗ «Об образовании в Российской Федерации» педагогическая деятельность требует от педагога наличия системы специальных знаний в области обучения и воспитания детей с ОВЗ. Поэтому для всех педагогов является актуальным повышение квалификации по этому направлению!

Дистанционный курс «Организация работы с обучающимися с ограниченными возможностями здоровья (ОВЗ) в соответствии с ФГОС» от проекта "Инфоурок" даёт Вам возможность привести свои знания в соответствие с требованиями закона и получить удостоверение о повышении квалификации установленного образца (72 часа).

Подать заявку на курс

Описание презентации по отдельным слайдам:

1 слайд Описание слайда:

Функции в Visual Basic МКОУ «Усть-Багарякская СОШ»

2 слайд Описание слайда:

Математические функции

3 слайд Описание слайда:

Функция Понятие функции в языках программирования близко к понятию функции в математике. Функция может иметь один или более аргументов. Для каждого допустимого набора аргументов можно определить значение функции. В программировании говорят, что функция возвращает свое значение, если заданы значения ее аргументов. Функции обычно входят в состав выражений, значения которых присваиваются переменным.

4 слайд Описание слайда:

Типы функций Функции могут быть различных типов: математические, строковые, ввода и вывода, даты и времени и др. Тип функции определяется возможными значениями аргументов и значением функции. В математических функциях значениями как аргументов, так и функций являются числа. В языке Visual Basic математические функции реализуются с помощью методов: синус Math.Sin(), косинус Math.Cos(), квадратный корень Math.Sqrt() и др.

5 слайд Описание слайда:

Проект «Инженерный калькулятор» Разработать проект, в котором будем вычислять значения математических функций синус, косинус и квадратный корень. Создадим графический интерфейс проекта Поместить на форму: • текстовое поле TextBox1 для ввода аргумента функций; • надпись Label1 для вывода значений функции; • три кнопки Button1, Button2 и Button3 для создания событийных процедур вычисления синуса, косинуса и квадратного корня.

6 слайд Описание слайда:

Листинг кода Событийная процедура вычисления синуса примет вид: Private Sub Button1_Click() Label1.Text = Math.Sin(Val(TextBox1.Text)) End Sub Событийные процедуры вычисления косинуса и квадратного корня создаются аналогично. Запустить проект на выполнение. Вычислить значение функции, например квадратного корня из числа 65536.

7 слайд Описание слайда:

Практическое задание В системе программирования Visual Basic создать проект «Инженерный калькулятор». Расширить его возможности путем создания событийных процедур вычисления тангенса и арктангенса. В системе программирования Visual Basic создать проект «Треугольник», позволяющий вычислить гипотенузу и площадь прямоугольного треугольника, если известны его катеты.

8 слайд Описание слайда:

Строковые функции

9 слайд Описание слайда:

Понятие функции в языках программирования близко к понятию функции в математике. Функция может иметь один или более аргументов. Для каждого допустимого набора аргументов можно определить значение функции. В программировании говорят, что функция возвращает свое значение, если заданы значения ее аргументов. Функции обычно входят в состав выражений, значения которых присваиваются переменным.

10 слайд Описание слайда:

Функции могут быть различных типов: математические, строковые, ввода и вывода, даты и времени и др. Тип функции определяется возможными значениями аргументов и значением функции.

11 слайд Описание слайда:

В строковых функциях строками являются либо аргументы, либо возвращаемые функциями значения.

12 слайд Описание слайда:

Функция вырезания левой подстроки Left(). В функции вырезания подстроки (части строки) Left(Строка, Длина) значением функции является левая подстрока. Под­строка начинается от крайнего левого символа аргумента Строка и имеет количество символов, равное значению числового аргумента Длина.

13 слайд Описание слайда:

Функция вырезания правой подстроки Right(). В функции вырезания подстроки Right(Строка, Длина) значением функции является правая подстрока. Подстрока заканчивается крайним правым символом аргумента Строка и имеет количество символов, равное значению числового аргумента Длина.

14 слайд Описание слайда:

Функция вырезания произвольной подстроки Mid(). В функции вырезания подстроки Mid(Строка, Позиция, Длина) значением функции является подстрока. Подстрока начинается с символа аргумента Строка, позиция которого задана числовым аргументом Позиция, и имеет количество символов, равное значению числового аргумента Длина.

15 слайд Описание слайда:

Функция определения длины строки Len(). В функции определения длины строки Len(Строка) аргументом является строка Строка, а возвращает функция числовое значение длины строки (количество символов в строке).

16 слайд Описание слайда:

Функция Asc(). Функция Asc(Строка) осуществляет преобразование строки в числовой код первого символа. Аргументом функции является строка, а значением — число.

17 слайд Описание слайда:

Функция Chr(). Функция Chr(Число) осуществляет преобразование числового кода в символ. Аргументом функции является число, а значением — символ.

18 слайд Описание слайда:

При использовании строковых функций в языке Visual Basic 2005 необходимо полностью определять функции, например Microsoft.VisualBasic.Left()

19 слайд Описание слайда:

Строковые функции и их значения Функция Значение функции Microsoft.VisualBasic.Len("информатика") 11 Microsoft.VisualBasic.Left("Килобайт",4) "Кило" Microsoft.VisualBasic.Right("Килобайт",4) "байт" Microsoft.VisualBasic.Mid("информатика",3,5) "форма" Microsoft.VisualBasic.Asс("и") 232 Microsoft.VisualBasic.Chr(255) "я"

20 слайд Описание слайда:

Практическая работа Создать проект, который позволит производить преобразования строк с использованием строковых функций. Создадим графический интерфейс проекта. Разместить на форме: текстовое поле TextBox1 для ввода строкового аргумента Строка; текстовое поле TextBox2 для ввода числового аргумента Позиция;

21 слайд Описание слайда:

Практическая работа текстовое поле TextBox3 для ввода числового аргумента Длина; надпись Label1 для вывода результата; шесть кнопок для запуска событийных процедур. Создадим для каждой кнопки событийную процедуру, реализующую одну из строковых функций.

22 слайд Описание слайда:

Событийная процедура, реализующая функцию Mid(), будет иметь следующий вид: Private Sub Button1_Click() Label1.Text = Microsoft.VisualBasic.Mid(TextBox1.Text, Val(TextBox2.Text), Val(TextBox3.Text)) End Sub

23 слайд Описание слайда:

Событийные процедуры вырезания левой и правой подстрок, а также определения длины строки и преобразования строки в символ и символа в строку создаются аналогично. 3. Запустить проект, в первое поле ввести строку «информатика», во второе поле — позицию символа, с которого начинается подстрока, в третье поле — длину подстроки. Щелкнуть по кнопке Mid(). На надписи появится вырезанная подстрока "форма"

24 слайд Описание слайда:

Практическое задание В системе программирования Visual Basic создать проект «Строковый калькулятор». Добавить поиск подстроки в строке с помощью функции InStr(Строка,Подстрока).

Курс профессиональной переподготовки

Учитель информатики

Курс повышения квалификации

Курс повышения квалификации

Найдите материал к любому уроку,указав свой предмет (категорию), класс, учебник и тему:

Выберите категорию: Все категорииАлгебраАнглийский языкАстрономияБиологияВсеобщая историяГеографияГеометрияДиректору, завучуДоп. образованиеДошкольное образованиеЕстествознаниеИЗО, МХКИностранные языкиИнформатикаИстория РоссииКлассному руководителюКоррекционное обучениеЛитератураЛитературное чтениеЛогопедияМатематикаМузыкаНачальные классыНемецкий языкОБЖОбществознаниеОкружающий мирПриродоведениеРелигиоведениеРусский языкСоциальному педагогуТехнологияУкраинский языкФизикаФизическая культураФилософияФранцузский языкХимияЧерчениеШкольному психологуЭкологияДругое

Выберите класс: Все классыДошкольники1 класс2 класс3 класс4 класс5 класс6 класс7 класс8 класс9 класс10 класс11 класс

Выберите учебник: Все учебники

Выберите тему: Все темы

также Вы можете выбрать тип материала:

Общая информация

Номер материала: ДБ-059210

Похожие материалы

Вам будут интересны эти курсы:

Оставьте свой комментарий

infourok.ru

Функции и процедуры в Visual Basic.

Информатика Функции и процедуры в Visual Basic.

просмотров - 79

Процедура — самодостаточный блок кода, который может быть запущен из других блоков кода. В целом каждая процедура содержит код, необходимый для выполнения одной задачи. К примеру, может быть процедура с именем PlaySound, которая содержит код, необходимый для воспроизведения звукового файла. Конечно, можно писать один и тот же код для воспроизведения звукового сигнала каждый раз, когда программе нужно воспроизвести звук, но гораздо более рационально создать одну процедуру, которую можно вызвать из любого места в программе.

Процедура запускается или выполняется путем ее вызова в коде. К примеру, для запуска процедуры PlaySound нужно просто добавить строку кода, содержащую имя процедуры, как показано ниже.

PlaySound()

Вот и всœе, что нужно! Когда выполнение программы дойдет до этой строки, управление перейдет к процедуре PlaySound, и будет выполнен содержащийся там код. Управление снова будет передано на следующую строку после вызова PlaySound.

Можно вызывать сколько угодно процедур. Процедуры выполняются в том порядке, в котором они вызываются. К примеру, может существовать также процедура с именем DisplayResults; для ее выполнения после выполнения процедуры PlaySounds вызовите процедуры, как показано ниже.

PlaySounds()

DisplayResults()

Функции и процедуры

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

DisplayResults

Функции отличаются от подпрограмм, поскольку они не только выполняют код, но также возвращают значение. К примеру, представьте функцию, называемую GetDayOfWeek, возвращающую значение типа Integer, указывающее день недели. Для вызова этой функции сначала следует объявить переменную для хранения возвращаемого значения, а затем присвоить возвращаемое значение этой переменной для последующего использования, как показано ниже.

Dim Today As Integer

Today = GetDayOfWeek

В этом примере значение, возвращаемое функцией, копируется в переменную с именем Today и хранится для последующего использования.

Написание процедур

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

Sub MyFirstSub()End Sub

Ключевое слово Sub сообщает программе, что эта процедура является подпрограммой и не возвращает значение. Дальше пишется имя процедуры (MyFirstSub), пустые скобки указывают, что у этой процедуры нет входных параметров. Наконец, ключевое слово End Sub обозначает конец подпрограммы. Весь код, выполняемый подпрограммой, находится между этими двумя строками.

Объявление функций выглядит похоже, однако, крайне важно добавить тип возвращаемого значения (к примеру, Integer, String и т. д.). К примеру, функция, которая возвращает значение типа Integer, может выглядеть следующим образом.

Function MyFirstFunction() As IntegerEnd Function

Ключевое слово As Integer указывает, что эта функция возвращает значение типа Integer. Для возвращения значения из функции используйте ключевое слово Return, как показано в следующем примере.

Function GetTheNumberOne() As Integer Return 1End Function

Эта функция возвратит число 1.

Читайте также

  • - Застосування Visual Basic for Application (VBA) для створення моделей

    VBA - це всього лише інструмент, за допомогою якого створення якоїсь комп'ютерної моделі або розрахункової таблиці, може бути досягнута найменшими зусиллями. Наприклад, - одночасне визначення точки беззбитковості в багатономенклатурному виробництві для всіх видів... [читать подробенее]

  • - ОСНОВИ СИСТЕМИ ПРОГРАМУВАННЯ VISUAL BASIC

    Лекція 3 План лекції: 3.1. Елементи системи програмування Visual Basic 3.2. Робота у вікні коду 3.3. Використання змінних у програмі 3.4. Константи: змінні, які не змінюються 3.5. Функції Visual Basic 3.6. Арифметичні вирази 3.7. Логічні вирази 3.8. Структура процедури Visual Basic 3.9.... [читать подробенее]

  • - МОВА VISUAL BASIC (VB)

    Лекція 8. Програмування мовою Visual Basic (VB) та КЕРУВАННЯ ПОКАЗОМ СЛАЙДІВ ЗАПУСК ПОКАЗУ СЛАЙДІВ Показ готової презентації можна здійснити двома способами. Із меню програми PowerPoint: 1. Пункт меню Показ слайдов — команда Показ. 2. Пункт меню Вид — команда Показ... [читать подробенее]

  • - ОСНОВИ СИСТЕМИ ПРОГРАМУВАННЯ VISUAL BASIC

    План лекції: 3.1. Елементи системи програмування Visual Basic 3.2. Робота у вікні коду 3.3. Використання змінних у програмі 3.4. Константи: змінні, які не змінюються 3.5. Функції Visual Basic 3.6. Арифметичні вирази 3.7. Логічні вирази 3.8. Структура процедури Visual Basic 3.9. Оператори системи... [читать подробенее]

  • - Розглянемо деякі елементи мови програмування Visual Basic.

    Visual Basicпідтримує кілька чисельних типів даних.Для об’яви типу змінної використовуються оператори з таким, наприклад, синтаксисом: Dim variablename As type Тут variablename – ім’я змінної, type - тип змінної. Змінні, об’явлені оператором Dim, існують тільки у процедурі/модулі (локальні... [читать подробенее]

  • - Редактор Visual Basic

    Організація програм у VBA. Лабораторна робота 2 Range (“A1”). Clear Завдання до лабораторної роботи 1 У завданнях 1-4 розібрати й прокоментувати фрагменти програм. 1. Workbooks (1). Worksheets (1). Activate Range (“A1:D5”). Value =34 Worksheets (1). Cells (12, 2). Interior. ColorIndex =3 Range (“C10”). Value = Range (“A1”).... [читать подробенее]

  • - Завантаження програмного середовища Visual Basic і ознайомлення з його інтерфейсом

    Химическая накачка Под таким видом накачки понимается такой способ возбуждения, при котором необходимая энергия получается за счет неравновесного распределения химической энергии среди продуктов реакции непосредственно в системе накачки (реакторе). Как правило,... [читать подробенее]

  • - Д 1.1. Як увійти в Середовище проектування Visual Basic 6 9 страница

    ... [читать подробенее]

  • - Д 1.1. Як увійти в Середовище проектування Visual Basic 6 8 страница

    ... [читать подробенее]

  • - Д 1.1. Як увійти в Середовище проектування Visual Basic 6 7 страница

    ... [читать подробенее]

  • oplib.ru

    Тема : Функции в языке программирования Visual Basic

    Основы алгоритмизации и объектно-ориентированного программирования

    Практическая работа

    Тема: Функции в языке программирования Visual Basic

    Цель: Познакомиться с понятием функции, с типами функций. Познакомиться с математическими и строковыми функциями. Научиться создавать проекты с использованием математических и строковых функций.

    Теоретический материал (Информатика и ИКТ. Базовый курс: Учебник для 9 класса\Н.Д. Угринович):

    Функция Val. Часто необходимо преобразовать строковое значение в числовое. Аргументом функции Val является строка, а значением – число.

    Например: Значением функции Val(«2010») является число 2010. Эта функция часто применяется для преобразования строкового значения свойства Text текстовых полей в число, которое затем используется в арифметических выражениях.

    Математические функции. Понятие функции в языках программирования близко к понятию функции в математике. Функция может иметь один или более аргументов. Для каждого допустимого набора аргументов можно определить значение функции. В программировании говорят, что функция возвращает своё значение, если заданы значения её аргументов. Функции обычно входят в состав выражений, значения которых присваиваются переменным.

    Функции могут быть различных типов: математические, строковые, ввода и вывода, даты и времени и др. Тип функции определяется возможными значениями аргументов и значением функции.

    В математических функциях значение аргумента, так и функции являются числа. В языке Visual Basic имеется 12 математических функций: тригонометрические (Sin(), Cos(),Tan(), Atn()), квадратный корень Sqr(), логарифм Log(), показательная функция Exp(), получение случайного числа RND() и др.

    Проект «Инженерный калькулятор»

    1. Открыть проект «Обычный калькулятор». Добавить на форму пять кнопок для вычисления функций Sin, Cos, Tan, Sqr, St

    2. Изменить на панели Properties значения свойств объектов (см. таблицу)

      Класс объектов

      Свойство

      Новое значение

      Form1

      Caption

      Инженерный калькулятор

      Command5

      Name

      cmdSt

      Caption

      a^x

      Command6

      Name

      cmdSqr

      Caption

      SQR

      Command7

      Name

      cmdCos

      Caption

      COS

      Command8

      Name

      cmdSin

      Caption

      SIN

      Command9

      Name

      cmdTan

      Caption

      TAN

    3. Для каждой из кнопок создать событийные процедуры, реализующие вычисление соответствующих функций: синуса, косинуса, тангенса, квадратного корня, возведения в степень.

    Например: Для возведения в степень событийная процедура для кнопки cmdSt,

    Private Sub CmdSt_Click()

    Text3.Text = Val(Text1.Text) ^ Val(Text2.Text)

    End Sub

    Например: Для возведения в степень событийная процедура для кнопки cmdSqr,

    Private Sub cmdSqr_Click()

    Text3.Text = Val(Sqr (Text1.Text))

    End Sub

    1. Запустите проект на выполнение. Произведите вычисление, например, 232: ввести в числа 2 и 32 и щёлкнуть по кнопке a^x

    Задание: Разработайте проект, позволяющий вычислить гипотенузу и площадь прямоугольного треугольника, если известны его катеты.

    Строковые функции. В строковых функциях строками являются либо аргументы, либо возвращаемые функциями значения.

    В функции определения длины строки Len(Строка$) аргументом является строка Строка$, а возвращает функция числовое значение длины строки (количество символов в строке). Синтаксис функции: Len (Строка$)

    Например: Пусть аргументом функции Len будет строка «информатика», тогда значением целочисленной переменной intДлина Строки = Len(«информатика») будет число 11.

    В функции вырезания левой {правой} подстроки (части строки) Left(Строка, Длина) {Right(Строка, Длина)}значением функции является левая {правая} подстрока. Подстрока начинается от крайнего левого {правого} символа аргумента Строка и имеет количество символов, равное значению числового аргумента Длина.

    Функция Asc(Строка) осуществляет преобразование строки в числовой код первого символа. Аргументом функции является строка, а значением число.

    Функция Chr(Число) осуществляет преобразование числового кода в символ. Аргументом функции является число, а значением – символ.

    Функция Chr(Число) осуществляет преобразование числового кода в символ. Аргументом функции является число, а значением – символ.

    Таблица 1

    Функция

    Значение функции

    Len(«информатика»)

    11

    Left(«Килобайт», 4)

    «Кило»

    Right(«Килобайт», 4)

    «байт»

    Mid$(«информатика»,3,5)

    «форма»

    Asc(«и»)

    232

    Chr(255)

    «я»

    Проект «Строковый калькулятор»

    Создать проект, который позволит производить преобразования строк с использованием строковых функций.

    1. Создайте графический интерфейс проекта (см. рис)

    2. Разместите на форме:

      • Текстовое поле для ввода строкового аргумента Строка

      • Текстовое поле для ввода числового аргумента Позиция

      • Текстовое поле для ввода числового аргумента Длина

      • Текстовое поле для вывода результата

      • Шесть кнопок для запуска событийных процедур

    3. Создайте для кнопки событийную процедуру, реализующую одну из строковых функций. Событийная процедура, реализующая функцию Mid$(), будет иметь следующий вид:

    Private Sub Command3_Click()

    Text4.Text = Mid$(Text1.Text, Text2.Text, Text3.Text)

    End Sub

    1. Запустите проект, в первое поле ввести строку «информатика», во второе поле – позицию символа, с которого начинается подстрока, в третье поле – длину подстроки. Щёлкнуть по кнопке Mid(). На надписи появится вырезанная подстрока «форма».

    2. Создайте событийные процедуры вырезания левой и правой подстроки, а также определение длины строки и преобразования строки в символ и символ в строку (создаются по аналогии п.3).

    Программный код событийной процедуры для кнопки Len(), реализующей операцию определения количества символом в строке Len():

    Private Sub Command4_Click()

    Text3.Text = Len(Text1.Text)

    End Sub

    1. Проверьте работу всех функций согласно таблице 1.

    gigabaza.ru