vb中asc函数的使用方法