Kullanmamız gereken araçlar :
5 adet CommandBtton , 5 adets Label, 3 adet TextBox'dır..

Form görünümünü istediğiniz gibi yapabilirsiniz . Ben aşağıdaki gibi yaptım.



Dikkat edilmesi gereken nokta kontrolleri yanlış yere yerleştirmemektir. Bunu önlemek için kontrollerin üzerine adlarını yazdım.



Şimdi program bize ne yapacak?

Program bize 4 işlemi yapacak, aynı zamanda yapılan işlemi "Label4"e yazdıracak, eğer "TextBox2" kutusuna 0 değeri girilirse, bilindiği gibi bir sayının sıfıra bölümü tanımsız olacağından bize hata mesajı verecek ve bir de ikinci işlemler yapabilmemiz için formu temizleyecek.

Geldik Şimdi Kodlara:

1.CommandButon::
    Private Sub Command1_Click() 
     Label4.Caption = "+"   'Labelin ismini değiştiriyoruz'  
     Text3.Text = Val(Text1) + Val(Text2) 'İşlemi yaptırıyoruz'
    End Sub

2.CommandButon::
    Private Sub Command2_Click()
     Label4.Caption = "-"    'Labelin ismini değiştiriyoruz'  
     Text3.Text = Val(Text1) - Val(Text2) 'İşlemi yaptırıyoruz'
    End Sub 

3.CommandButon:: 
    Private Sub Command3_Click()
     Label4.Caption = "*"    'Labelin ismini değiştiriyoruz'  
     Text3.Text = Val(Text1) * Val(Text2) 'İşlemi yaptırıyoruz'
    End Sub

4.CommandButon::
    Private Sub Command4_Click()
     If Val(Text2) = 0 Then    'Burada text2 kontrol ediliyor eğer 0 ise hata mesajı veriyor değilse işlemi yapıyor'
       MsgBox "Veri Hatası", , "Sıfıra Bölünme Hatası"
     Else
       Label4.Caption = "/"    'Labelin ismini değiştiriyoruz'  
       Text3.Text = Val(Text1) / Val(Text2) 'İşlemi yaptırıyoruz'
       End If
    End Sub

5.CommandButon::
    Private Sub Command5_Click()
     Text1.Text = ""
     Text2.Text = ""
     Text3.Text = ""
     Label4.Caption = ""
    End Sub

Kodlar bitti şimdi de programımızın çıktısına bakalım:

























kaynak : http://www.sanalkurs.net/dort-islem-yapan-program-873.html