Hsieh

¦^´_ 1# tku0216
¨Ì·Ó¨­¤ÀÃÒ¦r¸¹³W«hÅçÃÒ
«D¦³®Ä¦r¸¹«h±Æ°£
¥Î¤@·s°}¦CÀx¦s¥¿½T¦r¸¹

1. Option Explicit
   
2. 
   
3. Sub ex()
   
4. Dim A(0 To 4) As String, Ar() As String, i&, s&
   
5. A(0) = "A123456789"
   
6. A(1) = "B521632157"
   
7. A(2) = "A001"
   
8. A(3) = "A02"
   
9. A(4) = "S512935123"
   
10. For i = 0 To 4
    
11.    If Pass(A(i)) Then
    
12.       ReDim Preserve Ar(s)
    
13.       Ar(s) = A(i)
    
14.       s = s + 1
    
15.    End If
    
16. Next
    
17. MsgBox Join(Ar, Chr(10))
    
18. End Sub
    
19. Function Pass(Mystr As String) As Boolean '¦r¸¹ÅçÃÒ
    
20. Dim x, y%, k%, i%
    
21. If Asc(Left(Mystr, 1)) < 65 Or Asc(Left(Mystr, 1)) > 90 Or Len(Mystr) <> 10 Then Pass = False: Exit Function
    
22. k = Application.Match(Left(Mystr, 1), Array("A", "B", "C", "D", "E", "F", "G", "H", "J", "K", "L", "M", "N", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z", "I", "O"), 0) + 9
    
23. y = (k Mod 10) * 9 + Int(k / 10)
    
24. x = Array(0, 0, 8, 7, 6, 5, 4, 3, 2, 1, 1)
    
25. For i = 2 To Len(Mystr) - 1
    
26.    y = y + Val(Mid(Mystr, i, 1)) * x(i)
    
27. Next
    
28. Pass = 10 - (y Mod 10) = Val(Right(Mystr, 1))
    
29. End Function

½Æ»s¥N½X