هنا

[zeto]

فيجول بيسك 6 تشتغلون عليه مو!؟

لي عودة

[أغرد بهمس]

اخر 3اسئله عندي بس شيطلعهم من المخزن

[ضياء المالكي]

هذا فقط حل للسؤال الاول ولو كان وقت فراغ انزل حل باقي الاسئلة
لكن الحل بلغة الفجول دوت نت يعني قليل اختلاف فيه لان ماعندي بيسك 6
نحتاج :
textbox عدد 2
lible عدد 2
Button عدد 1
بعد ذلك نكتب الكود التالي :

Public Class Form1
Function Fac(n As Integer) As Integer
Dim i As Integer
Dim f As Integer = 1
For i = 1 To n
f = f * i
Next
Return f
End Function
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim no As Integer = TextBox1.Text
TextBox2.Text = (Fac(no))
End Sub
End Class

هذا التصميم

[ضياء المالكي]

حل السؤال الخامس :
نحتاج الى :
Button عدد 1
Listbox عدد 1 (لعرض الارقام)

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        'هذا الكود لايجاد الاعداد الفردية
        Dim i As Integer
        For i = 1 To 100 Step 2
            ListBox1.Items.Add(i)
        Next
    End Sub

حل السؤال السابع :
نحتاج الى :
Button عدد 1
Listbox عدد 1 (لعرض الارقام)

 Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        'هذا الكود لايجاد مضاعفات العدد3 
        Dim n As Integer = 3
        Dim i As Integer
        Dim mu As Integer
        For i = 0 To 100
            mu = i * 3
            ListBox1.Items.Add(mu)
        Next
    End Sub

[غرور]

ضياء الله يضوي حياتك بعد اختك فداوي
اشكرك ع هالمساعده وردايه
ربي يخليك
تلال لعيونك منها

[spyman]

شكرا لكل الاخوة على المساعدة
س1 :
ضيفي للمشروع تيكست واحد وكوماند واحد والكود بداخل الكوماند

[spyman]

س 2 :
ضيفي كوماند واحد

[spyman]

س 3 :
باستخدام الفور for ( الفور ما مطلوبة بالسؤال بس حليتها لانها افضل حلقات التكرار بالتعامل )

[spyman]

الثالث باستخدام الدو وايل do while

Do While i < 60
        i = i + 6
        Print i
 Loop 

[spyman]

السؤال الثالث : بأستخدام do until
بس انتهبي على شغلة ,, هنا يتنفذ الشرط الخطأ

i = 0
 Do Until i >= 60
        i = i + 6
        Print i
 Loop