buda basit bir kod 3 tane notu yazın butona basınca butonun üstünde ortalama yazıyor 3 adet textt 1 adet
Command buton gerekiyor
Command butona çift tıklayıp
Private Sub Command1_Click()
Dim s1, s2, s3, ort As Integer
s1 = Val(Text1.Text)
s2 = Val(Text2.Text)
s3 = Val(Text3.Text)
ort = (s1 + s2 + s3) / 3
Command1.Caption = ort
End Sub
Bunları yazın