dim flag(0 to 15) as integer

for i=0 to 15 
     flag(i)=0
next

i=0

While Not i = 16
    Randomize
    node = Int((16 - 0) * Rnd + 0)
    If flag(node) = 0 Then
        i = i + 1
        flag(node) = 1 
    End If
Wend

מטרת הקוד להכניס לאיברי המערך באופן אקראי איבר שלם חיובי

הבעיה שלי שאני לא מצליח להכניס למערך את הערך הרצוי 

קודם כל, ל-Randomize אתה צריך לקרוא רק פעם אחת בתחילת התכנית, וזהו.

ואני לא בטוח שהבנתי מה אתה רוצה לעשות... אתה רוצה שהמערך flag יכיל לך ערכים אקראיים מ-0 עד 15?

אוקי אני רוצה להעביר ערך חיובי מסויים (עדיף 1) לכל אחד מאיברי המערך (0-15) אך באופן רנדומלי כלומר לא רציף.....

תוריד את הIF.

אם תשאיר את הIF אז הוא ישים 1 בכל ה16 תאים.

למה אבל בכל מחזור יש NODE שונה !