Урок информатики «Создание калькулятора с использованием языка программирования Visual Basic»
план-конспект занятия по информатике и икт (11 класс) по теме

Private Sub Command1_Click()

Text1.Text = "" 'при нажатии на кнопку CE, у двух текстовых полей свойство Caption будет равным " ", а 3-его будет равным 0

Text2.Text = ""

Text3.Text = "0"

End Sub

Private Sub Command2_Click() 'при нажатии на кнопку *, 1 текстовое поле будет умножено на второе, и это будет равно 3-ему

Text3.Text = Val(Text1.Text) * Val(Text2.Text)

End Sub

Private Sub Command3_Click() 'при нажатии на кнопку /, 1 текстовое поле будет разделенно на второе, и это будет равно 3-ему

If Val(Text2.Text) <> 0 then Text3.Text = Val(Text1.Text) / Val(Text2.Text) Else Text3.text="Ошибка: На нуль делить нельзя"

End Sub

Private Sub Command4_Click() 'при нажатии на кнопку +, 1 текстовое поле будет прибавлено ко второму, и это будет равно 3-ему

Text3.Text = Val(Text1.Text) + Val(Text2.Text)

End Sub

Private Sub Command5_Click() 'при нажатии на кнопку --, 1-ое текстовое поле будет отнято от второго, и это будет равно 3-ему

Text3.Text = Val(Text1.Text) - Val(Text2.Text)

End Sub

Private Sub Form_Load()

Form1.Caption = "Калькулятор 2003" 'при загрузке формы, ее заголовок будет "Калькулятор 2003"

End Sub