در خواست یک برنامه ی ساده برای ویژوال بیسیک

[Paradise_human]

با سلام.
یک برنامه ی ساده مثل محاصبه ی میانگین 2 عدد یا 3 عدد و از این جور چیزا یا اگر برنامه ی ساده تری هست اگر امکان داره برام بنویسید
فقط فوری برای امشب احتیاج دارم.
ممون.

[سونامی]

(a = Val(t1.Text \ 100
b = Val(t1.Text Mod 100
c = Val(b \ 10
d = Val(b Mod 10
L4.Caption = Str(d) & Str(c) & Str(a

[n.s]

میانگین دو عدد :

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

؟؟؟

[Paradise_human]

هیچکدوم جواب نمیدن.
تورو خدا کامل بنویسید برای امشب احتیاج دارم.
من visual بلد نیستم.
ممنون.

[n.s]

هیچکدوم جواب نمیدن.
تورو خدا کامل بنویسید برای امشب احتیاج دارم.
من visual بلد نیستم.
ممنون.

دوست عزیز این کد بالا برای میانگین دو عدد جواب می ده که ، همین الان خودم امتحانشم کردم

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

[Paradise_human]

دوست عزیز این کد بالا برای میانگین دو عدد جواب می ده که ، همین الان خودم امتحانشم کردم

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

دوست عزیز روی جمله ی اول نوار زرد میکشه.

[سونامی]

a=val(text1.text)
b=val(text1.text)
label1.caption=val(a)+val(b)/2

[Paradise_human]

a=val(text1.text)
b=val(text1.text)
label1.caption=val(a)+val(b)/2

اینم روی جمله ی اول نوار زرد میکشه.

[سونامی]

Private Sub Command1_Click()
a = Val(Text1.Text)
b = Val(Text2.Text)
Label1.Caption = (a + b) / 2
End Sub

[n.s]

a=val(text1.text)
b=val(text1.text)
label1.caption=val(a)+val(b)/2

اینجا دیگه لازم نیست موقع نشون دادن هم val بگیرین یه بار موقع گرفتن به عدد تبدیل شدن
ـــــــــــــــــــــــــ ــــــــــــــــــــ

ولی برا من جواب داد ...برا شما رو نمیدونم چرا جواب نمیده