السلام عليكم ورحمة الله وبركاته
كيف يمكنني الإضافة للمصفوفة ولكن بشرط عدم تكرار القيم ,,
انا كتبت هذا الكود ولكن اريد تكلمته
الرمز PHP:
Dim val(4) As String
For i = 0 To 4
Val(i) = InputBox("")
Next
For i = 0 To 4
MsgBox(val(i))
Next
وشكراً..
up
السلام عليكم ورحمة الله وبركاته
جرب هذا الكود
Dim val(4) As String
Dim i As Integer = 0
While i <= val.Length - 1
Dim value As String = InputBox("أدخل القيمة")
If Array.IndexOf(val, value) > -1 Then
MsgBox("تم إدخال هذه القيمة سابقا")
Else
val(i) = value
i += 1
End If
End Whileإن قلت قال الله قال رسولـه همزوك همز المنكر المتعالي
أو قلت قد قال الصحابة والألـى تبعاً لهم بالقول والأعمال
أو قلت قـال الشافعي وأحمد و أبو حنيفة والإمام الغالي
صدوا عن وحي الإله ودينـه واحتالوا على حرام الله بالإحلال
يا أمةً لعبت بدين نبيها كتلاعب الصبيان في الأوحال
حاشا رسول الله يحكم بالهوى تلك إذاً حكومة الضلال
جزاك الله خيراً
شكرا جوست
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية
جارٍ التحقق من المتواجدين…