Question

VB中LIKE的用法

Combo4.Text的点击事件

Dim namecheck As Boolean
Dim xm As String
Dim ry As String
xm = Combo4.Text
ry = wxry.Text
namecheck = xm Like ry
If namecheck <> 1 Then
wxry.Text = wxry.Text + Combo4.Text
End If

Combo4.Text用来选择人名，如
张三
李四
王五
wxry.Text 用来显示选择的人名

比如wxry.Text中已经有“张三”，则wxry.Text中不会再出现2个“张三”
请指教程序有什么问题

Answer 1

　　相对于本身的潜在功能，L I K E可能是最被忽视的一个操作符了。它的最基本用途是检查一个字符串与给定样式的匹配程度。
　　比如，很容易检查一个产品ID号是否由一个字母以及3个数字组成：
　　If ProductID Like "[A-Za-z][0-9][0-9][0-9]" Then Print
　　"OK"
　　或者：
　　If ProductID Like
　　"[A-Za-z]###" Then Print "OK"
　　除了上述基本功能，LIKE在其他情况下也非常有用。
　　比如，可以检查一个字符串只包含大写字母：
　　If Not StringVar Like "*[!A-Z]*" Then Print
　　"OK"
　　同理，也可以检查一个字符串只包含数字：
　　If Not StringVar Like "*[!0-9]*" Then Print
　　"OK"
　　检查一个字符串只包含字母或者数字符：
　　If Not StringVar Like "*[!A-Za-z0-9]*" Then Print
　　"OK"
　　检查一个字符串是否为合法的VB变量名，就是说开头是一个字母，跟随字母或数字符：
　　If VarName like "[A-Za-z]*" And Not Mid$(VarName, 2) Like
　　"*[!A-Z_a-z0-9]*" Then Print "OK"
　　检查字符串是否至少包含2个空格（连续的或者间隔的）：
　　If TestString Like "* * *" Then Print
　　"OK"
　　进一步确认2个空格是不连续的：
　　If TestString Like "* ?* *" Then Print
　　"OK"
　　检查一个有符号整数是很复杂的事情，因为必须计算出前导符号并且计算好"#"符号的正确数目：
　　If NumValue Like "#" Or (Len(NumValue) > 1 And NumValue Like
　　"[-+0-9]" & String$(Len(NumValue) - 1, "#")) Then Print
　　"OK"
　　检测NumValue是否包含一个有符号的十进制数值。这种情况下，我们必须要确定存在一个前导符号以及只有一个十进制分隔符，并且所有其他字符都是数字符：
　　If NumValue Like "#" Or (Len(NumValue) > 1 And
　　Left$(NumValue, 1) Like "[-+.0-9]" And Not Mid$(NumValue, 2) Like "*[!.0-9]*"
　　And Not NumValue Like "*.*.*" ) Then Print
　　"OK"

Answer 2

like用来比较两个字符串。

语法

result = string Like pattern

Like 运算符的语法具有以下几个部分：

部分 描述
result 必需的；任何数值变量。
string 必需的；任何字符串表达式。
pattern 必需的；任何字符串表达式，遵循“说明”中的模式匹配约定。

Answer 3

你这样是不能行的,要用到数组