努力学习!努力提高!				
			
		向高手学习!向高手致敬!				
			
		:victory::victory::victory::victory::victory::victory:				
			
		谢谢分享,学习了。				
			
		谢谢分享,学习了。				
			
		:):):):):)				
			
		    :handshake				
			
		支持楼主,严格执行,绝不手软!
本文来自: 股海明灯论坛详细文章参考:http://www.178448.com/thread-230725-1-1.html				
			
		向你学习,量柱擒涨停				
			
		学习学习...				
			
		Function Custom_GL(NUMBER) 'Custom_GL表示软件要调用的函数名,这个不可改变
Custom_GL = False 'False表示NUMBER不会被过滤,首先初始化设置号码不被过滤
BW = CInt(Left(NUMBER, 1)) 'BW表示号码的百位
SW = CInt(Mid(NUMBER, 2, 1)) 'SW表示号码的十位
GW = CInt(Right(NUMBER, 1)) 'GW表示号码的个位
If BW < SW Then
    S = BW
    BW = SW
    SW = S
End If
If BW < GW Then
    S = BW
    BW = GW
    GW = S
End If
If SW < GW Then
    S = SW
    SW = GW
    GW = S
End If
S = SW 'S是中间数了
T = "%条件%"
If InStr("," & T & ",", "," & S & ",") <> 0 Then
    Custom_GL = True '如果满足上面条件的就是true,也就是号码就会被过滤掉
Else
    Custom_GL = False
End If
''''''''''''''''''
''''''''''''''''''
End Function '这是语法的结尾,请不要删了~~
''''''''''''''''''
''''''''''''''''''
				
			
		楼主辛苦了				
			
		:loveliness:				
			
		好好学习天天向上				
			
		学习中