Отправляет email-рассылки с помощью сервиса Sendsay

RFpro.ru: Консультации по информатике

Подписаться Бесплатная «Серебряная» новостная рассылка . Подписчиков 294 RSS
←   Март 2011   →
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31


За последние 60 дней ни разу не выходила


Сайт рассылки: http://rusfaq.ru/issues/8/19/228
Открыта: 17-04-2009

Автор
Калашников О.А.

Статистика

294 подписчиков
0 за неделю
←   Все выпуски   →

RFpro.ru: Консультации по информатике


Хостинг портала RFpro.ru:
Московский хостер
Профессиональный ХОСТИНГ на базе Linux x64 и Windows x64

РАССЫЛКИ ПОРТАЛА RFPRO.RU

Лучшие эксперты данной рассылки

Асмик Александровна
Статус: Академик
Рейтинг: 7567
∙ повысить рейтинг » 		Абаянцев Юрий Леонидович aka Ayl
Статус: Профессионал
Рейтинг: 2374
∙ повысить рейтинг » 		Роман Селиверстов
Статус: Профессор
Рейтинг: 1942
∙ повысить рейтинг »

/ НАУКА И ОБРАЗОВАНИЕ / Точные и естественные науки / Информатика

Номер выпуска:216
Дата выхода:29.03.2011, 22:00
Администратор рассылки:lamed (Профессор)
Подписчиков / экспертов:135 / 135
Вопросов / ответов:0 / 0

Статья отправлена lamed (Профессор)
дата отправки: 29.03.2011, 20:24

Лабораторные работы по информатике. VBA. Ветвление.

Уважаемые читатели. Этой статьей мы начинаем небольшой сборник лабораторных работ по программированию на VBA, которые предлагались стдентам экономического факультета КГТА в течение двух лет. Для выполнения использован Microsft Excel XP/2003.

1. Цель работы: знакомство со средой разработки Excel – VBA и выполнение простейших программ.
2. Необходимые предварительные знания:
2.1 Структура простейшей программы. Sub и End Sub
2.2 Переменные. Имена. Объявление Dim. Тип Integer
2.3 Среда Excel
2.4 Ввод InputBox и вывод Debug.Print
2.5 Ветвление. It..Else If..Else..End If
2.6 Комментарии.

Ход работы:
1. Запустить Excel.
2. Перейти в режим: Сервис->Макрос->Безопасность. Установить уровень не выше среднего.
3. Перейти в режим: Сервис->Макрос->Редактор Visual Basic. Установить режим отладочной печати (Immediate window). Добавить модуль Insert->Module. Переименовать его как Примеры.4. Рассмотреть примеры программ из настоящей работы, скопировать их в созданный модуль, запустить.
5. Выполнить задания.

Код:
Sub p01()
' Сумма двух чисел
  Dim a As Integer, b As Integer,
с As Integer
' Объявление переменных с именами a, b, с и типом Integer
  a = InputBox("Введите а")
  b = InputBox("Введите b ")
  с = a + b 'Складываем значения переменных a и b и результат заносим  переменную (ячейку) с
 ' результат заносим в ячейку sum
  MsgBox (с)
End Sub

Код:
Sub p02()
' Абсолютная величина числа
  Dim x As Integer, y As Integer
 
  x = InputBox("Введите число")
  
  If x >= 0 Then y = x Else y = -x
   
  MsgBox (y)
End Sub

Код:
Sub p03()
' Наибольшее из трех чисел
' Вариант 1
  Dim a As Integer, b As Integer, c As Integer, max As Integer

  a = InputBox("Первое число")
  b = InputBox("Второе число")
  c = 
 InputBox("Третье число")
  
  If (a > b) And (a > c) Then
    max = a
  ElseIf (b > a) And (b > c) Then
      max = b
  Else
      max = c
  End If
      MsgBox (max)
End Sub

Код:
Sub p04()
' Наибольшее из трех чисел
' Вариант 2
  Dim a As Integer, b As Integer, c As Integer, max As Integer

  a = InputBox("Первое число")
  b = InputBox("Второе число")
  c = InputBox("Третье число")

    max = a
  If b > max Then max = b
  If c > max Then max = c
  
  MsgBox (max)
End Sub

Задания для самостоятельной работы
1. Наибольшее из четырех чисел
2. Сколько корней имеет квадратное уравне ние a*x^2+b*x+c=0
3. Название дня недели по его номеру
4. Количество уроков по номеру дня недели
5. Название месяца по его номеру
6. Количество дней в месяце по номеру (год - невисокосный)
С замечаниями и пожеланиями можно обращаться в личную почту.
В следующей статье будут рассмотрены программы с использованием оператора выбора SELECT... CASE.
Удачи!

Оценить выпуск »
Нам очень важно Ваше мнение об этом выпуске рассылки!

Задать вопрос экспертам этой рассылки »

Скажите "спасибо" эксперту, который помог Вам!

Отправьте СМС-сообщение с тестом #thank НОМЕР_ОТВЕТА
на короткий номер 1151 (Россия)
Номер ответа и конкретный текст СМС указан внизу каждого ответа.

Полный список номеров »

* Стоимость одного СМС-сообщения от 7.15 руб. и зависит от оператора сотовой связи. (полный список тарифов)
** При ошибочном вводе номера ответа или текста #thank услуга считается оказанной, денежные средства не возвращаются.
*** Сумма выплаты эксперту-автору ответа расчитывается из суммы перечислений на портал от биллинговой компании.

© 2001-2011, Портал RFPRO.RU, Россия
Авторское право: ООО "Мастер-Эксперт Про"
Калашников О.А. | Гладенюк А.Г.
Хостинг: Компания "Московский хостер"
Версия системы: 2011.6.30 от 17.03.2011
В избранное