7,763
社区成员
发帖
与我相关
我的任务
分享
Public Function hzz()
Dim K As Integer
Dim l As Integer
l = Len(PYH(j))
For K = 1 To l
hz1(K) = Mid(PYH(j), K, 1)
If hz1(K) = "A" Or hz1(K) = "I" Or hz1(K) = "E" Or hz1(K) = "V" Or hz1(K) = "U" Or hz1(K) = "O" Then
hz1(K) = Mid(PYH(j), 1, K - 1)
'Print hz1(K); K
Exit For
End If
Next
py1(j) = hz1(K)
End Function