写一个函数,针对实际数据进行转换现实

Function Change(byval str as string)
  dim sex as string
  if str="1" then
     sex="男"
  else
     sex="女"
  endif
  return sex
end function