7在VBA中重复操作VB的Do…While循环语句