КАТЕГОРИИ:
Архитектура-(3434)Астрономия-(809)Биология-(7483)Биотехнологии-(1457)Военное дело-(14632)Высокие технологии-(1363)География-(913)Геология-(1438)Государство-(451)Демография-(1065)Дом-(47672)Журналистика и СМИ-(912)Изобретательство-(14524)Иностранные языки-(4268)Информатика-(17799)Искусство-(1338)История-(13644)Компьютеры-(11121)Косметика-(55)Кулинария-(373)Культура-(8427)Лингвистика-(374)Литература-(1642)Маркетинг-(23702)Математика-(16968)Машиностроение-(1700)Медицина-(12668)Менеджмент-(24684)Механика-(15423)Науковедение-(506)Образование-(11852)Охрана труда-(3308)Педагогика-(5571)Полиграфия-(1312)Политика-(7869)Право-(5454)Приборостроение-(1369)Программирование-(2801)Производство-(97182)Промышленность-(8706)Психология-(18388)Религия-(3217)Связь-(10668)Сельское хозяйство-(299)Социология-(6455)Спорт-(42831)Строительство-(4793)Торговля-(5050)Транспорт-(2929)Туризм-(1568)Физика-(3942)Философия-(17015)Финансы-(26596)Химия-(22929)Экология-(12095)Экономика-(9961)Электроника-(8441)Электротехника-(4623)Энергетика-(12629)Юриспруденция-(1492)Ядерная техника-(1748)
Ввести дату цифрами, вывести её на экран словами.
|
|
|
|
Решение.
По сути, эта задача очень простая, но при написании потребуется много механической работы.
Понадобится нам всего лишь 4 переменные: m (ввести номер месяца), n (ввести номер дня), Month (вывести название месяца словами) и Day (вывести номер дня словами). Month и Day будут выведены через функцию String:
Private Sub CommandButton_Click()
Dim m As Integer
Dim Month As String
Dim n As Integer
Dim Day As String
Далее вводим дату, которую мы захотим увидеть словами:
m = CInt(InputBox("Ввести номер месяца"))
n = CInt(InputBox("Ввести номер дня месяца"))
Далее с помощью оператора Case мы вводим данные для словесного отображения месяца. Каждому числу должно соответствовать своё название месяца:
Select Case m
Case 1
Month = "Января"
Case 2
Month = "Февраля"
Case 3
Month = "Марта"
Case 4
Month = "Апреля"
Case 5
Month = "Мая"
Case 6
Month = "Июня"
Case 7
Month = "Июля"
Case 8
Month = "Августа"
Case 9
Month = "Сентября"
Case 10
Month = "Октября"
Case 11
Month = "Ноября"
Case 12
Month = "Декабря"
End Select
* Все месяцы указаны в родительном падеже.
Далее аналогичную операцию, которую мы проделали с месяцами надо провести и с датой. Поэтому выбираем случай (Select Case) c нумерацией дней:
Select Case n
Case 1
Day = "Первое"
Case 2
Day = "Второе"
Case 3
Day = "Третье"
Case 4
… и так до 31. =)
End Select
И, наконец, просто выводим ответ через MsgBox:
MsgBox ("Этот день " & Day & " " & Month)
End Sub
Смотрим J
8.1. Вводим номер месяца
8.2. Выводим ответ на экран
Задача №9
Элементы равнобедренного прямоугольного треугольника пронумерованы следующим образом: 1 – катет a; 2 – гипотенуза
3 – высота h, опущенная на гипотенузу (h=c/2); 4 – площадь S=c*h/2.
Дан номер одного из этих элементов и его значение. Вывести значения остальных элементов данного треугольника. (В том же порядке)
Решение
Для решения этой задачи нам понадобится оператор Case и 6 переменных:
n (номер параметра, который будем вводить), a (катет), с (гипотенуза), H (высота треугольника), s (площадь треугольника) и вспомогательная переменная x (через которую мы будем считать). Начинаем вводить данные:
Private Sub CommandButton_Click()
Dim n As Integer
Dim x, a, c, H, s As Double
n = CDbl(InputBox("Введите номер параметра N "))
x = CDbl(InputBox("Введите значение " & n & "-го параметра "))
Далее нам надо выбрать, то над чем мы хотим проводить действие и задать условие – в нашем случае задать формулы:
Select Case n
Case 1
a = x
Case 2
a = x / Sqr(2)
Case 3
a = 2 * x / Sqr(2)
Case 4
a = Sqr(2 * x)
End Select
c = a * Sqr(2)
H = c / 2
s = c * H / 2
Выводим на экран ответ, в той последовательности, которая дана в условии нашей задачи.:
MsgBox ("Значение катета a = " & a)
MsgBox ("Значение гипотенузы c = " & c)
MsgBox ("Значение высоты h = " & H)
MsgBox ("Значение площади S = " & s)
End Sub
Задача решена.
Смотрим J
9.1. Вводим номер выбранного нами параметра
9.2. Вводим значение выбранного нами параметра
9.3. Одно из 4 окон ответа
Задача №10
|
|
|
|
|
Дата добавления: 2017-02-01; Просмотров: 58; Нарушение авторских прав?; Мы поможем в написании вашей работы!