vb高手，急

自己写个函数吧
public function ChangeToEng(byval n as integer,str as string)
'n作为输入的数字，str作为输出的英文
select case n
case 0
str="zero"
case 1
str="one"
case 2
str="two"
case 3
str="three"
case 4
str="four"
case 5
str="five"
case 6
str="six"
case 7
str="seven"
case 8
str="eight"
case 9
str="nine"
end select
end function

好像没有现成的可以用，需要自己写方法

select x
case 0 : str="zero"
case 1 : str="one"
case 2 : str="two"
case 3 : str="three"
case 4 : str="four"
case 5 : str="five"
case 6 : str="six"
case 7 : str="seven"
case 8 : str="eight"
case 9 : str="nine"
end select
debug.pring str

应该是没有，