المعين

متوازي الاضلاع

المستطيل

اسم المصفوفة(رقم العنصر)

رقم العنصر(اسم المصفوفة)

اسم المصفوفة = رقم العنصر

Inputbox

Msgbox

الاسناد

IF

Select Case

For..Next

Dim A(4) As Integer

Dim A(3) As Integer

Dim A(5) As Integer