Главная страница
Случайная страница
Разделы сайта
АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника
|
End Sub.
4. Создайте новую форму с двумя полями ввода чисел и четырьмя кнопками выполнения арифметических операций. Результат запишите в форму и ячейку «Z1» текущего листа.
Учтите, что на ноль делить нельзя
Private Sub CommandButton1_Click()
TextBox3.Value = TextBox1.Text + TextBox2.Text
End Sub
Private Sub CommandButton2_Click()
If TextBox2.Text < > 0 Then
TextBox3.Value = TextBox1.Text / TextBox2.Text
End If
End Sub
Private Sub CommandButton3_Click()
TextBox3.Value = TextBox1.Text * TextBox2.Text
End Sub
Private Sub CommandButton4_Click()
TextBox3.Value = TextBox1.Text - TextBox2.Text
End Sub
Private Sub UserForm_Click()
End Sub
Второй вариант (демонстрация ЛВ)
Private Sub CommandButton1_Click ()
Label12.Caption=Val (TextBox1) +
Range (“z1”) = Label12.Caption
End Sub
Private Sub CommandButton2_Click ()
Label12.Caption=Val (TextBox1) - Val (TextBox2)
Range (“z1”) = Label12.Caption
End Sub
Private Sub CommandButton3_Click ()
Label12.Caption=Val (TextBox1) * Val (TextBox2)
Range (“z1”) = Label12.Caption
End Sub
Private Sub CommandButton4_Click ()
If TextBox2 = 0 Then
Label12.Caption = ”нельзя”
Else
Label12.Caption =Val (TextBox1) / Val (TextBox2)
End If
Range (“z1”) = Label12.Caption
End Sub
Private Sub CommandButton5_Click ()
If Val (TextBox2) = 0 Then
MsgBox “Вы забыли ввести показатель! ”
‘ Label12.Caption = “нельзя”
Else
m = Val (TextBox1) / Val (TextBox2)
‘ Label12.Caption = Val (TextBox1) / Val (TextBox2)
End If
Label12.Caption = Round (m, 2)
Range (“z1”) = Label12.Caption
End Sub
|
| 5. Выполните предыдущее задание, используя для выбора арифметических действий переключатели.
Private Sub CommandButton1_Click()
If OptionButton1 Then
TextBox4.Value = TextBox1.Text + TextBox2.Text
End If
If OptionButton3 Then
TextBox4.Value = TextBox1.Text - TextBox2.Text
End If
If OptionButton2 Then
TextBox4.Value = TextBox1.Text * TextBox2.Text
End If
If OptionButton4 And TextBox2.Text < > 0 Then
TextBox4.Value = TextBox1.Text / TextBox2.Text
End If
If CheckBox1 Then
TextBox4.Value = TextBox4.Text * TextBox3.Text
End If
End Sub
Private Sub UserForm_Click()
End Sub
Учтите, что итоговое значение может быть скорректировано за счет коэффициента.
|
| | | | 6. Создайте список из 10 наименований. При выборе в списке элемента выводите на форму соответствующую ему картинку или надпись, свидетельствующую об отсутствии картинки на эту тему.
|