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