[دموووع,,,,]

Private Sub Command1_Click()
Dim a, b, c, m As Integer

a = Text1.Text
b = Text2.Text
c = Text3.Text
m = (Val(a) + Val(b) + Val(c)) / 3
Text4.Text = m
End Sub
أختي هذا البرنامج الصحيح
لابد من وضع val(A), val(b),val(c) I
وذلك حتى يتعامل مع المتغيرات على أساس أنها قيم عددية