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

السلام عليكم

واجهتني مشكلة في كود برنامج لحساب متوسط 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

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

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

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

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


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

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

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