結果 : while loop in visual basic