Объявление переменной
В языке Visual Basic переменная может иметь различные типы данных:
Byte – занимает 1 байт памяти (целое)
Integer – занимает 2 байта памяти(целое)
Long – занимает 4 байта памяти (целое)
Single – занимает 4 байта памяти (десятичное)
Double – занимает 8 байта памяти (десятичное)
String – занимаемая память зависит от числа символов в строке.
Синтаксис объявления переменной имеет вид:
Dim Имя переменной [As ТипПеременной]
Const ИмяКонстанты[ As Тип] = ЗначениеКонстанты
Например: Dim V1 as integer, V2 as long
Dim V3 as Single
Dim stroka as String
Const Pi=3.1416
V3=(v1+v2) / 4
Функции в языке Visual Basic
В
Системные функции
Abs(x) |
Абсолютная величина числа Х |
Cint(x) |
Целое число, ближайшее к Х |
Cos(x) |
Косинус числа Х |
Fix(x) |
целое, равное числу Х без дробной части |
Int(x) |
Наибольшее целое, не превышающее х |
Sqr(x) |
Квадратный корень из числа Х |
InputBox |
Ввод данных пользователем через системное окно |
MsgBox |
Выдача сообщений пользователю через системное окно |
Финансовая функция |
|
Pmt (ПроцСтавка, ЧислоПлатежей, СуммаКредита) |
|
InputBox (Приглашение [, Заголовок] [, НачЗначение])
MsgBox (Текст [, Опция] [, Заголовок])
Функция Pmt возвращает размер разового (напр. Ежемесячного) платежа (со знаком минус!), если известны: Процентная ставка, Число платежей, Сумма кредита.
Так действует
функция InputBox
Программирование ветвлений
В Visul Basic есть две формы синтаксиса оператора ветвления: однострочная и многострочная.
If УсловноеВыражение Then Оператор1 [Else Оператор2]
If УсловноеВыражение Then ПоследовательностьОператоров1 [Else ПоследовательностьОператоров2] End If
Упражнение1:
Рассмотрим немного упрощенное юридическое правило: «В России человеку назначается пенсия, если этот человек мужчина и ему больше 60 лет, или если этот человек женщина и ей больше 55 лет, или если стаж работы человека на «вредном производстве» превысил 25 лет.
Запрограммируйте приложение «Пенсионный стаж». Пользователь вводит свой возраст, пол и стаж работы на вредном производстве (по выслуге лет). Приложение должно выдавать результат – пенсионный стаж пользователя (если он пенсионер). Экранную форму разработайте самостоятельно.
Упражнение2:
Создайте программу, которая играет с пользователем в следующую игру: Компьютер «задумывает» целое число (допустим одну из цифр – от 1 до 5). Если пользователь угадал, то появляется сообщение об успехе. Число компьютер задумывает с помощью функции RND.
Случайное число генерируется в интервале от 0 до 1. Чтобы получить число N для заданного интервала от N1 до N2, можно поступить следующим образом:
N=N1 + Int (Rnd*(N2 - N1 + 1)
!!! Обрати внимание! В разделе общих объявлений (General) можно объявить глобальные переменные (вместо оператора Dim) т.е. они доступны всем модулям проекта.
Программный код Задачи Экранная форма и панель сообщения
Задание 1
Составить программу, которая проверяла бы, не приводит ли суммирование двух целых чисел А и В к переполнению ( т.е. к результату большему, чем 32767). Если будет переполнение, то сообщить об этом, иначе вывести сумму этих чисел.
Задание 2
В небоскребе N этажей и всего один подъезд; на каждом этаже по 3 квартиры; лифт может останавливаться только на нечетных этажах. Человек садится в лифт и набирает номер нужной ему квартиры M. На какой этаж должен доставить лифт пассажира?
Составить программу для определения подходящего возраста кандидатуры для вступления в брак, используя следующие соображения: возраст девушки равен половине возраста мужчины плюс 7, возраст мужчины определяется соответственно как удвоенный возраст девушки минус 14.
Задание 3
В старояпонском календаре был принят 12-тилетний цикл. Годы внутри цикла носили названия животных: крысы, коровы, тигра, зайца, дракона, змеи, лошади, овцы, обезьяны, курицы, собаки и свиньи.
Написать программу, которая вводит номер некоторого года и печатает его название по старояпонскому календарю.
СПРАВКА:1996 год-год крысы - начало очередного цикла)
Задание 4
Составить приложение для расчета стоимости проезда в поезде в зависимости от класса и категории вагона (плацкартный или купейный), если:
Стоимость билета в вагоне первого класса равна Х рублей;
Стоимость билета в купейном вагоне 2-го класса в два раза дешевле, чем стоимость билета в первом классе;
Стоимость билета в плацкартном вагоне второго класса составляет 70% стоимости билета в купейном вагоне второго класса;
Пассажир приобрел N билетов в один вагон.
Задание 5
ЭВМ поможет Вам узнать много интересного про себя. Человек характеризуется рядом физических параметров, из которых РОСТ, МАССУ и ВОЗРАСТ знают все. Однако можно узнать о себе еще много других параметров. Сделайте это по приведенным формулам.
Данные об идеальной массе и жирности не воспринимайте слишком серьезно.
Идеальная масса: Специалисты считают, что здоровый человек должен иметь идеальную массу, которую можно вычислить по формуле:
m = (A * 3 – 450 + B) * 0.25 + 45; для мужчин
m = (A* 3 – 450 + B) * 0.225 + 40.4; для женщин
где A– рост, см;
B – возраст, лет;
Жирность. Известно, что тело молодых здоровых мужчин содержит около 15%, а тело женщин – 22% жира. истинная жирность (%) приблизительно оценивается по формуле:
X = (M - m) / M * 100 + 15 для мужчин
X = (M - m) / M * 100 + 22 для женщин
Плотность: Плотность человеческого тела близка к плотности воды (1000 кг/м3): плотность жира 890 кг/м3, мускулов 1100 кг/м3 . Для человека средняя плотность вычисляется по формуле:
b = 8.90 * X + 11 * (100 – X) (кг/м3)
Объем. Этот параметр вычисляется по формуле: V = M / b (м3)
Площадь тела. Зная массу человека М (в кг) и рост А(в см), можно вычислить площадь кожи нашего тела S (в м2) по так называемой формуле Бойде:
S = (M * 1000)(( lg (1/M) + 35.75) / 53.2)A0.3 / 3118.2 (м2)
Результатом Вашей программы будут расчетные характеристики пользователя. Кроме того, Ваша программа должна как – то отреагировать на отклонения расчетной жирности от нормы.
И учтите, пользователем Вашей программы могут быть как мужчины так и женщины.