[Mostafa Saad]

أعتقد أني لم أفهمك جيدًا ؟!!! لا أرى مصفوفة في سؤالك المطروح ؟!!
لكن ربما يكون هذا ما تبحث عنه :

كود :

Dim Sum As Integer = 50

If ................ Then
Sum += ((2.5/100)*Sum)
MsgBox( "المبلغ هو " &  Sum.ToString )
End If

حيث أن :
50 -----> هي القيمة المبدئية للمبلغ .
............... -----> هو شرط الزيادة .