Question

vb·vb 判断两个字符串是否有重复

a=2,将来可变
b=12349
c=0567
如果a和b有重复的则msgbox弹出"和b有重复的”
如果a和b有重复的则msgbox弹出"和c有重复的”
该如何写

Answer 1

添加一个COMMAND。在COMMAND中写入下代码，若a可变，可以添加一个TEXT控件，通过a=text1.text获得a的值。
Dim a As String
Dim b As String
Dim c As String

Private Sub Command1_Click()
a = "2"
b = "12349 "
c = "0567"

For i = 1 To Len(b)
If Mid(b, i, 1) = a Then
Msg = "和b有重复的" ' 定义信息。
Response = MsgBox(Msg)
End If
Next i

For i = 1 To Len(c)
If Mid(c, i, 1) = a Then
Msg = "和c有重复的" ' 定义信息。
Response = MsgBox(Msg)
End If
Next i
End Sub

Answer 2

如果你的题意思这样的话，给你一个代码，在窗体上放一个命令按纽，代码如下
Private Sub Command1_Click()
Dim a As String, b As String, c As String
a = 2
b = 12349
c = 567
a = InputBox("想给a赋值为：")
Print "a=" & a
If a = b Then MsgBox "和b有重复的"
If a = c Then MsgBox "和c有重复的"
End Sub

Answer 3

用两个循环
b和c的值是固定的吗？~