09-04-19, 05:20 PM
لو عندي 2 array واحدة string و الاخري int
و عندي
على اساس test مثلآ اذا كانت test = 3 يتم اختيار 3 اختيارات من قائمة str مختلفة مثلآ test2 test4 test1
مثل هذا يتم تكرار الاختيار مثل Test1-Test3-Test1 هل يوجد حل لي هذا ؟
كود :
Dim test = New Integer() {1, 2, 3}
Dim str = New String() {"Test1", "Test2", "Test3", "Test4"}
كود :
Dim random = New Random()
كود :
Dim str = New String() {"Test1", "Test2", "Test3", "Test4"}
Dim test = New Integer() {1, 2, 3}
Dim random = New Random()
If test(random.Next(1, 3)) = 3 Then
MsgBox($"{str(random.Next(1, 3))}-{str(random.Next(1, 3))}-{str(random.Next(1, 3))}")
ElseIf test(random.Next(1, 3)) = 2 Then
MsgBox($"{str(random.Next(1, 3))}-{str(random.Next(1, 3))}")
ElseIf test(random.Next(1, 3)) = 1 Then
MsgBox(str(random.Next(1, 3)))
End If
مثل هذا يتم تكرار الاختيار مثل Test1-Test3-Test1 هل يوجد حل لي هذا ؟