1. Разместите на форме объекты в соответствии с тем, как показано на рис. 12.7.
2. Установите значения свойства Name для текстового поля txtRezult.
3. Установите значения свойства Name для кнопок < = > и <СЕ> — cmdRavno и cmdCE соответственно.
4. Установите значения свойства Name для всех остальных командных кнопок — cmd. Они образуют массив объектов. Значение свойства Index — от 0 до 4 в порядке расположения.
5. Установите значения свойства Caption для формы и кнопок в соответствии с рис. 12.7.
6. Внимательно проанализируйте представленный ниже программный код, а затем наберите его.
Option Explicit
Dim х As Single, у As Single '1-e и 2-е число
Dim RezuIt As Single 'Результат
Dim t As Integer 'Переменная хранит номер(индекс) нажатой кнопки
Private Sub cmd_Click(index As Integer)
t = index
х = Val(txtRezult.Text)
txtRezult.Text = ""
TxtRezult.SetFocus
End Sub
Private Sub cmdCE_Click()
txtRezult.Text = ""
TxtRezult.SetFocus
End Sub
Private Sub cmdRavno_Click()
RezuIt = 0
Select Case t
Case 0 ' Щелкнуть по кнопке < + > (ее номер в массиве равен 0)
RezuIt = х + у
Case 1 ' Щелкнуть по кнопке < - > (ее номер в массиве равен 1)
|
|
RezuIt = х - у
Case 2 ' Щелкнуть по кнопке < * > (ее номер в массиве равен 2)
RezuIt = х * у
Case 3 ' Щелкнуть по кнопке < / > (ее номер в массиве равен 3)
If у <> 0 Then
RezuIt = х / у
txtRezult.Text = Str(RezuIt)
Else
txtRezult.Text = "Error! Division by zero"
End If
Case 4 ' Щелкнуть по кнопке < ^ > (ее номер в массиве равен 4)
RezuIt = х ^ у
End Select
If t <> 3 Then txtRezult.Text = Str(RezuIt)
End Sub
Private Sub txtRezult_Change()
у = Val(txtRezult.Text)
End Sub
7. Напишите процедуру, которая контролирует, какие клавиши нажимаются при вводе информации в текстовое поле и блокирует ввод текста при неправильном наборе чисел (проверяются ASCII-коды нажатых клавиш). Проанализируите, а затем наберите представленный ниже код процедуры.
Private Sub txtRezult_KeyPress(KeyAscii As Integer)