窗体上有List1、List2两个列表框，程序运行时，在两个列表框中分别选中1个项目，如图a所示，单击名称为Command1的“交换”按钮，则把选中的项目互换，互换后的位置不限，如图b所示。下面的程序可实现这一功能，请填空。Private Sub Command1_Click()If List1.Text=”” or List2.Text=”” ThenMsgBox”请选择交换的物品！”ElseList1.AddItem List2.TextList2.RemoveItem（　11　）（　12　） List1.RemoveItem List1.ListIndexEnd IfEnd Sub

当能确定水尺零点高程突变的原因和日期时，进行水位订正应（）。

A.变动前应采用原应用高程

B.校测后采用新测高程

C.突变期间水位按时间比例改正

D.变动开始至校测期间应加一改正数