Домашка VBA 20010-2011x - ICEF.ru / Сайт студентов МИЭФ

Расписание
Занятия пройдут:
1 группа — четверг, 23 декабря с 17:00 до 22:00
2 группа — суббота, 25 декабря с 10:00 до 15:00
Занятия пройдут в большом компьютерном классе МИЭФ (Ж-733). Напоминаю, что желательно
прихватить свой ноутбук.
Про группы
Как вы понимаете, в Ж-733 места мало (20 мест), потому желательно группы уровнять по размеру
– оттого станет лучше всем. Пять человек с субботы, перепишитесь на четверг!
Как надумаете менять группу, сразу пишите – platinum@icef.ru.
Про деньги
Я ожидаю оплату за первое занятие от следующих лиц:




Гришин Дмитрий
Даракова Екатерина
Кузяева Анна
Цымбал Георгий
Домашняя работа
Домашку рекомендую выполнять честно – делайте сами, это поможет понять вам ваш уровень
подготовки. Делать надо все задания (которые можете), начиная с самого простого.
Присылайте работу, даже недоделанную, мне на почту (platinum@icef.ru). Раньше пришлёте,
больше времени будет у вас на исправление ошибок.
Deadline –среда для 1-й группы, пятница – для 2-й.
Во всех заданиях предполагается корректная работа программы при любых значениях входных
параметров.
Задание на 6 баллов
В первое поле пользователь вводит текст. Программа должна во второе поле выводить тот же
текст, но в обратном порядке.
Примечание
Вам пригодится функция Mid(a,b,c) – извлечь часть строки, где
a – исходная строка
b –начать с какого по счету символа
с – сколько символов извлечь
Задание на 7 баллов
Сделать калькулятор.
По нажатию на кнопку Считать производится одна из четырёх операций с первым и вторым
числом. При этом должно верно обрабатываться ситуация деления на ноль, а также неверный
ввод (буквы). Пробелы в полях ввода нужно убирать автоматически.
По нажатию на кнопку Очистить все три поля очищаются.
Закрыть закрывает окно.
Примечание
1) Как работать c OptionButton:
Z = OptionButton1
Теперь Z = TRUE если OptionButton1 выбран, Z = FALSE если OptionButton1 не выбран.
2) Закрыть программу: команда Unload Me
3) Прочитать значение из поля:
Z =TextBox1
Записать:
TextBox1 = Z
Задание на 8 баллов
В первое поле пользователь вводит число. Программа должна сократить его и вывести
соотвествующую приставку для числа. При этом число должно быть сокращено до первого знака
после запятой. Приставки, которые следует использовать: тыс, млн, млрд, трл. Если число меньше
тысячи, то никакой приставки не нужно.
Примечание
Округление: Round(a, b)
A – число для округления
B – количество знаков после запятой
Задание на 9 баллов
В первое поле пользователь вводит строку, в которой все числа разделены пробелами. Из них
требуется выбрать все положительные нечетные числа и для них найти сумму и их количество.
В примере выше проверку не проходят слово «привет», «8», «9к» и «-9». По прочим числам
подсчитана сумма и их количество.
Примечание
Строку превратить в массив, разбив её по пробелу
Dim words() ‘ создает массив неопределенного размера
Words = split( text, “ ” ) ‘ разбить строку text по разделителю (пробелу в данном случае)
Задание на 10 баллов
Пользователь вводит две последовательности чисел, разделенные пробелами. По нажатию на
кнопку Сравнить в ListBox выводятся все числа из первой последовательности, которые больше
как минимум трёх чисел из второй последовательности.
При этом нечисловые значения в обеих последовательностях игнорируются.
Примечание
ListBox.AddItem X – добавит в список значение X
ListBox.Clear – очищает список