مشاهده نسخه کامل
: درخواست کمک
jims band
11-05-2009, 17:30
سلام.من چطوری میتونم کاری کنم که از چند شرط استفاده کنم مثلا" به یه سؤال داده بودن که باید سه تا جعبه متن میساختیم و اگه اعداد داخل اونا تشکیل مثلث میدادن یه پیغام بره.
یه سؤال دیگه
چطوری میتونم کاری کنم که مثلا" وقتی میگیم a+b=c اگه هر کدوم از مجهول ها رو ندیم محاسبه کنه.
Tom Clancy's
11-05-2009, 20:17
سلام.من چطوری میتونم کاری کنم که از چند شرط استفاده کنم مثلا" به یه سؤال داده بودن که باید سه تا جعبه متن میساختیم و اگه اعداد داخل اونا تشکیل مثلث میدادن یه پیغام بره.
یه سؤال دیگه
چطوری میتونم کاری کنم که مثلا" وقتی میگیم a+b=c اگه هر کدوم از مجهول ها رو ندیم محاسبه کنه.
شرط تشکیل مثلث اینه که جمع هر دوضلع از ضلع دیگه بزرگ تر باشه.
a+b>c
a+c>b
b+c>a
مثل
Dim a As Integer, b As Integer, c As Integer
a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)
If a + b > c And a + c > b And b + c > a Then
MsgBox ("Yes! This Is Triangle")
Else
MsgBox ("No! This Is Not Triangle")
End If
برای محاسبه بدون دادن هرکدوم از مجهولات باید از شرط استفاده کنی که اگه چیزی داده نشد اون متغیر برابر چی باشه
موفق باشی
vBulletin , Copyright ©2000-2025, Jelsoft Enterprises Ltd.