結果 : while wend loop in visual basic