Function cube ( ByVal n As integer ) as integer
Dim r As integer
r= n*n*n
Return r
End Function

Private Sub cube_btn_Click(sender As Object, e As EventArge) Handles cube_btn_Click
rslt.Text= cube (5
End Sub



1- في الدالة cube حدد اسم المتغير الذي سوف يتم ارجاع القيمة المخزنة بداخله

2 - عند النقر على الزر cube_btn حدد القيمة التي ستمرر للدالة cube

3 - عند النقر على الزر cube_btn واتفيذ الدالة cube حدد القيمة التي ستظهر داخل الأداة rslt

إجابة السؤال الخامس تكون كالتالي :-

1) r

2) 5

3) 125

جميل جدا جدا امتحان رائع

امتحان عالى عالى عالى