vba中中文数字和阿拉伯数字转换，也说下sub求面积的问题

vba中，如何将数字1转换成中文的一？又比如，如何将数字2转换成中文的二？
答案：
如果只是简单地转换一位数字，下面的公式可以很快搞定(假设数据存放在A1)，如果是多位数字转换，这个公式就不适用；二转2的思路是一样的：
=LOOKUP(A1,{0,"零";1,"一";2,"二";3,"三";4,"四";5,"五";6,"六";7,"七";8,"八";9,"九";10,"十"})


另外，一个问题：计算圆环的面积，要求：采用自定义Sub过程计算圆面积？
回答：
强制用Sub的意义不大：

Public Sub area(a1 As Single, r As Single)
    Pi = 3.14159265
    a1 = Pi * r * r
End Sub
Private Sub Command1_Click()
    Dim a1 As Single
    Dim a2 As Single
    
    Call area(a1, Text1.Text)
    Call area(a2, Text2.Text)
    Text3.Text = a1 - a2
End Sub