半角转换为全角MsgBox Chr(Asc("f") - 23680)全角转换为半角MsgBox Chr(Asc("f") + 23680)
a是全角的，asc("a")是负值 a是半角的，asc("a")是正值
