結果 : while loop in visual basic 6.0