vb如何交换两位数