[اسلام الكبابى]

إقتباس :أو ممكن يكون رقمين أو ثلاثة أو عشرة بحيث ما يتعدى الرقم 21 ممكن يكون مقارب له

هذا هو الكود ليجمع لك ثلاثة أرقام
وبنفس الطريقة يمكنك عمل الكود ليجمع لك أى عدد من الأرقام

PHP كود :

Dim I, N1, N2 As Integer
Dim NUM, SUM As Integer
Dim X(99) As Integer
Dim TART(99) As Integer
Dim XCHOS(99) As Integer
Dim XBEST(99) As Integer

Private Sub Command1_Click()

 NUM = InputBox("ما عدد الأرقام  الموجودة", "")
SUM = InputBox("ما هو المجموع المطلوب", "")
Rem"المجموع المطلوب هو الذى افترضته فى مثالك 21"
For I = 1 To NUM

 X(I) = InputBox("أدخل العدد رقم " & I, "")
TART(X(I)) = I
 Next I

XMIN = X(NUM): DEFMIN = 9999
For N1 = 1 To NUM
For N2 = N1 + 1 To NUM
XCHOS(1) = X(N1): XCHOS(2) = X(N2)
XX = SUM - XCHOS(1) - XCHOS(2)
If XX < 0 Then GoTo 50

If TART(XX) > 0 And TART(XX) > N2 Then XCHOS(3) = XX: GoTo 100
For I = XX - 1 To XMIN Step (-1)

If TART(I) > 0 And TART(I) > N2 Then
XCHOS(3) = I: DEF = XX - I
If DEF < DEFMIN Then DEFMIN = DEF: XBEST(1) = XCHOS(1): XBEST(2) = XCHOS(2): XBEST(3) = XCHOS(3)
GoTo 50
 End If
      Next I
50 Next N2
     Next N1
     Print XBEST(1); XBEST(2); XBEST(3); " أفضل 3 أرقام هى ": GoTo 200
100 Print XCHOS(1); XCHOS(2); XCHOS(3); " أفضل 3 أرقام هى "
200  Z = MsgBox("", 69, "")
End Sub