Private Sub CommandButton1_Click()

' Deklarisanje promenjivih
Dim Broj1 As Integer
Dim Broj2 As Integer

Dim Zbir As Integer
Dim Razlika As Integer
Dim Proizvod As Integer
Dim Kolicnik As Integer


' Dodeljivanje vrednosti
Broj1 = 9
Broj2 = 3


Zbir = Broj1 + Broj2
Razlika = Broj1 - Broj2
Proizvod = Broj1 * Broj2
Kolicnik = Broj1 / Broj2


' ---- Testing 2 ----
Debug.Print Broj1 & " + " & Broj2 & " = " & Zbir
Debug.Print Broj1 & " - " & Broj2 & " = " & Razlika
Debug.Print Broj1 & " * " & Broj2 & " = " & Proizvod
Debug.Print Broj1 & " / " & Broj2 & " = " & Kolicnik


End Sub




'########### DOMACI ZADATAK :) ############
'__________________________________________


' izracunavanje povrsine
Private Sub CommandButton2_Click()

' Deklarisanje promenjivih
Dim stranicaA As Integer
Dim stranicaB As Integer

Dim povrsinaPravougaonika As Integer


' Dodeljivanje vrednosti
stranicaA = 10
stranicaB = 5


povrsinaPravougaonika = stranicaA * stranicaB

MsgBox "Povrsina Pravougaonika je : " & povrsinaPravougaonika
End Sub

 
 
 ' izracunavanje obima
Private Sub CommandButton3_Click()

' Deklarisanje promenjivih
Dim stranicaA As Integer
Dim stranicaB As Integer

Dim obimPravougaonika As Integer


' Dodeljivanje vrednosti
stranicaA = 10
stranicaB = 5


obimPravougaonika = (2 * stranicaA) + (2 * stranicaB)

MsgBox "Obim Pravougaonika je : " & obimPravougaonika
End Sub