حل صفحة 50من التكنولوجيا

المدير العام

حل أسئلة تكنولوجيا المعلومات صفحة 50

السؤال الأول

Option Explicit

Dim x as double,y as double

Private sub command1_click()

x=val(text1.text)

y=val(text2.text)

label4.caption=x/y

end sub

Private sub command2_click()

x=val(text1.text)

y=val(text2.text)

label4.caption=x*y

end sub

Private sub command3_click()

x=val(text1.text)

y=val(text2.text)

label4.caption=x/-y

end sub

Private sub command4_click()

x=val(text1.text)

y=val(text2.text)

label4.caption=x+y

end sub

Private sub command5_click()

text1.text=" "

text2.text=" "

label4.caption=" "

end sub

السؤال الثاني

form1

Private sub command1_click()

r=text1.text

height=text2.text

form1.hide

form2.show

unload form1

end sub

Private sub command2_click()

end

end sub

Form2

Private sub command1_click()

text1.text=3.14*(r^2)

text2.text=3.14*(r^2)*height

end sub

Private sub command2_click()

end

end sub

Module

Option Explicit

Public r as double , height as double

السؤال الثالث

Option Explicit

Dim x as double ,y As double

Public Function Z(byval x as double, byval y as double)as double

Z=sqr((x^2)+(y^2))

end function

private sub command1_click()

label4.caption=Z(val(text1.text),val(text2.text))

end sub

ناسف عن الخطا الدى حصل سامحونا

المدير العام

مشكووووووووووووووووووووووووووووووووووووور

المدير العام

يسلمواااااااااااااااا ابو الرائد

عضو جديد

يسلموااااااااااااااا ابو الرائد

Sad

عضو فعال

يسلمو ابو الرائد
يعطيك الف عافيه يا حووت
نتتظر جديدك

تحياتى

عضو فعال

يسلمو ابو الرائد
يعطيك الف عافيه يا حووت
نتتظر جديدك

تحياتى

عضو جديد

يا اخي اول شي مشكور جدا

لكن بدنا لصف الحادي عشر

المدير العام

معلش يا جماعة سامحونااااا

عضو جديد

[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذه الصورة]

عضو جديد

[size=18]يسلموا ابو الرائد ويعطيك الف عافية[
/size]

[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذه الصورة]

عضو فعال

مشكووووووووووووووووووووووووووووووووووووووووووووووووووووووووووور كــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــتير

يا عسل

يسلمو ابو الرائد موضوعك رائع تحياتي الك .........

عضو جديد

[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذه الصورة] يا ابو رئد على اسئله

عضو جديد

جزاكم الله خيرا على هذا العمل ونشكر كل من شارك فى المنتدى

عضو جديد

الله يعطيكم العافية

عضو جديد

مشكورررررررررررررررررر

مشرف قسم النقاش الجاد

[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذه الصورة]

» [CSS] لحذف كاتب الموضوع و الرسالة من صفحة الموضوع