Введение 8 Этапы создания Windowsприложения 8
 Скачать 6.98 Mb.
|
5.11. Пример. Программа-калькуляторРассмотрим программу, имитирующую работу калькулятора. Исходными данными являются два числа и знак операции. Программа должна выполнять следующие действия: сложение (+), вычитание (-), умножение (*), деление (/), вычисление остатка от деления (%), целочисленное деление (\). Также необходимо реализовать повтор ввода исходных данных и вычислений по желанию пользователя. Так же как в предыдущей программе для ввода исходных данных будем использовать функцию InputBox, а дл вывода результатов – функцию MsgBox. Поэтому на форме расположен только один элемент управления – это кнопка, запускающая программу. Разработку программы начнем с описания переменных. Переменные a и b предназначены для хранения пары чисел, над которыми выполняется операция. Так как исходные числа могут быть любыми, то для их хранения необходимо использовать рациональный тип данных. Например, Single. В переменной c будет храниться результат арифметической операции. Так как все действия мы будем выполнять над рациональными числами, то результат тоже будет рациональным числом. Поэтому переменная с тоже будет иметь тип Single. Dim a, b, c As Single Переменная znak предназначена для хранения знака операции. Знак операции – это символ. Поэтому переменная znak имеет тип Char. Dim znak As Char Переменная otvet предназначена для хранения результата функции MsgBox. Эта переменная позволит нам определить, желает ли пользователь повторить вычисления. Dim otvet As Integer В начале программы ставим метку nachalo. Она позволит нам организовать повтор ввода значений и вычисления результата. nachalo: Вводим исходные числа. Как всегда при вводе числовой информации используем преобразование Val. a = Val(InputBox("Введите число a")) b = Val(InputBox("Введите число b")) Вводим знак операции. Так как знак операции является символом, то при его вводе дополнительных преобразований не требуется. znak = InputBox("Введите знак операции (+ - * / % \") Анализируем знак операции. В зависимости от его значения выполняем те или иные вычисления. Обратите внимание, что символы указываются в кавычках. Select Case znak Case "+" Здесь выполняется операция сложения. c = a + b MsgBox("c=" + Str(c)) Case "-" Здесь выполняется операция вычитания. c = a - b MsgBox("c=" + Str(c)) Case "*" Здесь выполняется операция умножения. c = a * b MsgBox("c=" + Str(c)) Case "/" Здесь выполняется операция деления. Но перед вычислением необходимо проверить, равен ли знаменатель нулю. If b = 0 Then Если в переменной b хранится ноль, то деление невозможно. Поэтому вместо ответа выводится сообщение. MsgBox("Ошибка! Деление на ноль") Else В противном случае вычисляется частное чисел a и b и выводится результат. c = a / b MsgBox("c=" + Str(c)) End If Case "\" Операция целочисленного деления выполняется по таким же правилам, как и простое деление. Так как исходные переменные рациональные, то перед выполнением целочисленного деления Visual Basic 2005 автоматически произведет математическое округление чисел до целых. If b = 0 Then MsgBox("Ошибка! Деление на ноль") Else c = a \ b MsgBox("c=" + Str(c)) End If Case "%" При вычислении остатка от деления действуют те же правила, что и при делении. Исходные числа, так же как и в предыдущем случае, автоматически округляются до целых. If b = 0 Then MsgBox("Ошибка! Деление на ноль") Else c = a Mod b MsgBox("c=" + Str(c)) End If Case Else Если выполнение программы попало в этот блок, значит, знак операции введен с ошибкой. Поэтому здесь не выполняются никакие вычисления, а выводится поясняющее сообщение. MsgBox("Неизвестный знак операции") End Select После окончания вычислений спрашиваем пользователя, желает ли он выполнить еще один расчет, и предлагаем ему два варианта ответа: «Да» и «Нет». Для этого в функции MsgBox второй параметр задаем в виде 32 + 4. 32 определяет пиктограмму со знаком вопроса, а 4 – набор кнопок «Да» и «Нет». Результат функции MsgBox записываем в переменную otvet для дальнейшего анализа. otvet = MsgBox("Выполнить еще один расчет?", 32 + 4) Анализируем ответ пользователя. Если он нажал кнопку «Да», то в переменную otvet будет записано число 6. В этом случае надо передать управление в начало программы. Для этого мы заранее поставили там метку nachalo. If otvet = 6 Then GoTo nachalo End If Программа закончена. Ее текст приведен в приложении 10. |