Какой язык програмирования.
Объяснение:
Dim a As String
Dim b As String
Private Sub Command1_Click()
" При нажа на кнопку с цифрой "1", в текстовом поле появится "1"
Text1.Text = Text1.Text & "1"
End Sub
Private Sub Command11_Click()
" После нажатия на "*", присваиваем переменной "a" число из текстового поля №1
a = Text1.Text
" В маленькое текстовое поле, пишем знак "*"
Text2.Text = "*"
" Отчищаем тексотовое поле №1
Text1.Text = ""
End Sub
Private Sub Command12_Click()
" При нажатии на "=", присваиваем переменной "b" второе значение, но тоже из текстового поля №1
b = Text1.Text
" Смотрим, какой знак в текстовом поле №2 и делаем нужное действие
If Text2.Text = "*"Then
Text1.Text = a * b
End If
If Text2.Text = "/" Then
Text1.Text = a / b
End If
If Text2.Text = "-" Then
Text1.Text = a - b
End If
End Sub
Private Sub Command13_Click()
" Отчищаем все текстовые поля
Text1.Text = ""
Text2.Text = ""
End Sub
Private Sub Command14_Click()
" После нажатия на "-", присваиваем переменной "a" число из текстового поля №1
a = Text1.Text
Text2.Text = "-"
Text1.Text = ""
End Sub
Private Sub Command15_Click()
" После нажатия на "/", присваиваем переменной "a" число из текстового поля №1
a = Text1.Text
Text2.Text = "/"
Text1.Text = ""
End Sub
" Все что ниже можно откоментировать одинаково: при нажатии на кнопку с определенной цифрой, она отабражается в текстовом поле №1
Private Sub Command2_Click()
Text1.Text = Text1.Text & "5"
End Sub
Private Sub Command3_Click()
Text1.Text = Text1.Text & "4"
End Sub
Private Sub Command4_Click()
Text1.Text = Text1.Text & "3"
End Sub
Private Sub Command5_Click()
Text1.Text = Text1.Text & "2"
End Sub
Private Sub Command6_Click()
Text1.Text = Text1.Text & "6"
End Sub
Private Sub Command7_Click()
Text1.Text = Text1.Text & "0"
End Sub
Private Sub Command8_Click()
Text1.Text = Text1.Text & "9"
End Sub
Private Sub Command9_Click()
Text1.Text = Text1.Text & "8"
End Sub
Private Sub Command10_Click()
Text1.Text = Text1.Text & "7"
End Sub
Хотя слово «центнер» немецкого происхождения и означает «сто мер», традиционно в Германии в старину за меру веса принимали не килограмм, а фунт, который соответствует приблизительно 500 граммам. То есть 100 фунтов — 50 килограммов. Этой мерой веса в старину пользовались люди, занятые в сельском хозяйстве: например, центнер картофеля — полный мешок, 50 кг. В разных частях Германии центнер был разный: в Баварии, например, — 56 кг; в Брауншвейге — 46,77 кг; в Саксонии — 51,4 кг. Сейчас в Германии берётся усреднённая величина 50 кг[1].
:)
всего доброго
