把三个函数合并成下面一个函数就行。Function F(ByVal v As Long) As Long Dim l As Long While v > 0 l = v Mod 10 v = v \ 10 Select Case lCase 0 fw = fw + l :fl = fl + l Case 1,2fq = fq + l:fw = fw + l :fl = fl + lCase 3fq = fq + l Case 5fq = fq + l :fw = fw + lCase 6fq = fq + l :fl = fl + lCase 7 fw = fw + l Case 9 fl = fl + l End Select Wend End Function
