梦想在远方

Function check_id(byval s)
	check_id = false
	arrExp = Array(7, 9, 10, 5, 8, 4, 2, 1, 6, 3, 7, 9, 10, 5, 8, 4, 2)'加权因子  
	arrValid = Array(1, 0, "X", 9, 8, 7, 6, 5, 4, 3, 2)'校验码  
	sum = 0
	For i = 1 To len(s)-1
	  sum = sum + Mid(s,i,1) * arrExp(i-1)
	Next
	If Cstr(arrValid(sum mod 11)) = Ucase(Cstr(Mid(s,18,1))) Then
	  check_id = true
	End If  
End Function