رفتن به مطلب
  • 0

در صد گرفتن


taha1371

سوال

 سلام من این کدو نوشتم و میخوام عددی که به m4 داده میشه درصد اون عدد باشه یعنی اگر کاربر عدد 5 گزاشت تو ادیت تکس +5درصد بشه 



Sub sum_Click
	If (EditText1.Text <> "" And EditText2.Text <> "") Then
	m1 = EditText1.Text
    m2 = EditText2.Text
    m3 = EditText3.Text
    m4 = EditText4.Text
	res = ((m2+m3)*m1)+ m4
	Msgbox(res,"جمع")
	Else 
		Msgbox("عددی وراد نشده است","خطا")
	End If
End Sub

 

لینک ارسال
به اشتراک گذاری در سایت های دیگر

0 پاسخ به این سوال تاکنون داده شده است

ارسال های توصیه شده

هنوز برای این سوال پاسخی ارسال نشده است

بایگانی شده

این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.

مهمان
این موضوع برای عدم ارسال قفل گردیده است.
  • کاربران آنلاین در این صفحه   0 کاربر

    • هیچ کاربر عضوی،در حال مشاهده این صفحه نیست.
×
×
  • اضافه کردن...