n = 5; m = 15;
for(i = 1; i <= 15; i++){
　if(乱数() < n/m){　// 乱数()は0から1を出力
　　// iを選択。
　　選択(i);
　　n = n - 1;
　}
　m = m - 1;
}

VBよく知らないけど、
Ｃ風に書けばこんな感じでできると思う。