本当はVBで書いてあったんだけど、VBよく知らんからとりあえずそれっぽく
思い出して書いてみた。 何も知らない新人が作ったとかじゃなくて、一応
それなりの年数勤めてて、周りの評判だと出来る人らしいんだけどね、、、

i=1;
while(1){
　switch(i){
　　case 1:
　　　a[i] = "aaa";
　　　break;
　　case 2:
　　　a[i] = "bbb";
　　　break;
　　case 3:
　　　a[i] = "ccc" + foo(i);
　　　break;
// caseが20件位さらに続く
　　default:
　　　　goto HOGE;
　}
　i = i + 1;
}
HOGE:
// 上のループで作った配列の処理とかが続く