Evet Arkadaşlar Sizlere Not Ortalama Kodu Vericem.
Adımları İyi Takip Ederseniz Sizde Yapabilirsiniz.
Adımları İyi Takip Ederseniz Sizde Yapabilirsiniz.
Gerekli Nesneler:
1) 4 Adet Text Box
2) 1 Adet Command Button
3) Kodu CommandButonuna Yapıştırın.
1) 4 Adet Text Box
2) 1 Adet Command Button
3) Kodu CommandButonuna Yapıştırın.
Kod:
Private Sub Command1_Click()
Dim yazili1, yazili2, yazili3, ort As Integer
yazili1 = Val(Text1.Text)
yazili2 = Val(Text2.Text)
yazili3 = Val(Text3.Text)
ort = (yazili1 + yazili2 + yazili3) / 3
Text4.Text = ort
End Sub