Program vb - podstawowe działania matematyczne

Podstawowe działania
matematyczne

Sšdzę iż ten program nie wymaga komentarza:)

widok etykiety programu

Dim A, B As Single

Private Sub dodawanie_Click()
A = CSng(txtA)
B = CSng(txtB)
lblWynik.Caption = A + B
lblZnak.Caption = "+"
End Sub

Private Sub dzielenie_Click()
A = CSng(txtA)
B = CSng(txtB)
lblWynik.Caption = A / B
lblZnak.Caption = "/"
End Sub

Private Sub mnożenie_Click()
A = CSng(txtA)
B = CSng(txtB)
lblWynik.Caption = A * B
lblZnak.Caption = "*"
End Sub

Private Sub odejmowanie_Click()
A = CSng(txtA)
B = CSng(txtB)
lblWynik.Caption = A - B
lblZnak.Caption = "-"
End Sub

Pobierz program