dim ColaA as string,ColaB as string,tmpCola as stringprivate sub form_load()ColaA="可乐A"ColaB="可乐B"end subprivate sub cmdChange_Click() tmpCola=ColaBColaB=ColaAColaA=tmpColaend subprivate sub SeeChange()
print ColaA,ColaB,tmpColaend sub由于这是一行行敲出来的，代码比较粗糙，试试吧
