[a_abdullah]

(24-10-16, 11:48 PM)ابو ليلى كتب : طيب الاري لا نريدها لكن من اين ناتي بالارقام التي نجري عليها العمليات
فكرة Random يمكن تحقيقها ولكن النتائج ستكون كثيرة جداً لذلك انا احبذ مجموعة بسيطة من العناصر 
و لتكن موجودة في ListBox مثلا
و من ثم نستخدم نفس الحلقة السابقة ولكن نغير نوع العنصر الذي نمر عليه

PHP كود :

       Dim x, y, z As Integer
        Label1.Text = ""
        For Each item As Object In ListBox1.Items
            z = CType(item, Integer)
            x = z ^ 2
            y = z ^ 3
            Label1.Text += vbNewLine & "Square Of " & z & " = " & x & "  Cube Of " & z & " = " & y
        Next 


PHP كود :

Dim x, y, z As Integer
        x = numberTextBox1.Text
        y = number2TextBox2.Text
        z = number3TextBox3.Text
        Dim count As Integer = 1
        Do
            resultLabel1.Text = "the square of " & z & "=" & z * z & vbCrLf & "and the cube of " & z & "=" & z * z * z & vbCrLf
            count += 1
        Loop While count <= 3 


سويت المطلوب لكن عندي خطأ ما قدرت اكتشفه هو في اللوب ابيه يطلع لي الناتج في label للثلاث ارقام اللي دخلتها في textbox