結果 : while statement in visual basic