مشكلة في كود المتوسط

[مفقودة]

السلام عليكم

واجهتني مشكلة في كود برنامج لحساب متوسط 3 اعداد...حيث انه لايقوم بحساب المتوسط بل يظهرلي الناتج باعداد كبيرة

وهذا الكود .

Private Sub Command1_Click()
Dim a, b, d, m As Integer
a = Text1.Text
b = Text2.Text
d = Text3.Text
m = a + b + d / 3
Text4.Text = m
End Sub

هيييييييييلللللللللب مي بلييييييييييييز

[متميزه]

المشكله بالقانون لابد من اضافة الأقواس

لانه من دونها سيقوم بقسمة d / 3 ثم يجمعها مع b ,a

m = (a+b+d) / 3

[مفقودة]

شكراا عالمساعدة...لكن مازالت المشكلة مستمرة


هيلب ميييييييييييييييييييييييييييي

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

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
وذلك حتى يتعامل مع المتغيرات على أساس أنها قيم عددية