結果 : loop in visual basic 6.0