x=alltrim(thisform.text1.value)if len(x)<>3 messagebox("不是三位数") returnendify=substr(x,3,1)+substr(x,2,1)+substr(x,1,1)thisform.text2.value=y
