自己顶，刚学正则，这是可能用到的

匹配中文字符的正则表达式： [\\u4e00-\\u9fa5]

或许你也需要匹配双字节字符，中文也是双字节的字符

匹配双字节字符(包括汉字在内)：[^\\x00-\\xff]

注：可以用来计算字符串的长度（一个双字节字符长度计2，ASCII字符计1）

更多常用正则表达式匹配规则：

英文字母:[a-zA-Z]

数字:[0-9]

匹配中文，英文字母和数字及_:

//code from http://caibaojian.com/zhongwen-regexp.html
^[\\u4e00-\\u9fa5_a-zA-Z0-9]+$

同时判断输入长度：·

[\\u4e00-\\u9fa5_a-zA-Z0-9_]{4,10}

^[\\w\\u4E00-\\u9FA5\\uF900-\\uFA2D]*$

1、一个正则表达式，只含有汉字、数字、字母、下划线不能以下划线开头和结尾：

^(?!_)(?!.*?_$)[a-zA-Z0-9_\\u4e00-\\u9fa5]+$

其中：

^ 与字符串开始的地方匹配

(?!_)　　不能以_开头

(?!.*?_$)　　不能以_结尾

[a-zA-Z0-9_\\u4e00-\\u9fa5]+　　至少一个汉字、数字、字母、下划线

$　　与字符串结束的地方匹配

放在程序里前面加@，否则需要\\\\进行转义 @"^(?!_)(?!.*?_$)[a-zA-Z0-9_\\u4e00-\\u9fa5]+$"

（或者：@"^(?!_)\\w*(?<!_)$" 或者 @" ^[\\u4E00-\\u9FA50-9a-zA-Z_]+$ " )

2、只含有汉字、数字、字母、下划线，下划线位置不限：

^[a-zA-Z0-9_\\u4e00-\\u9fa5]+$

参考

Dim s1 As String = "5号循环水泵"
Dim s2 As String = "6号循环水泵"
Dim count As Integer = 0
For Each s As String In s1
    If s2.Contains(s) = True Then
        count += 1
    End If
Next

msgbox(count)
msgbox(count/s1.length)

具体实例上传上来测试。