急！！各位高手帮帮忙！

Question

个位高手您们好：
    小弟有个问题实在不能解决，想请您们帮帮忙。具体情况就是：想用VB做一个小工具，将随意输入的3个ip地址通过与运算汇总成一个。

Answer 1

算ip这样Private Sub Command1_Click()
    Dim str1() As String
    Dim str2() As String
    Dim str3() As String
    Dim strAnd(3) As String    str1 = Split(Text1.Text, ".")
    str2 = Split(Text2.Text, ".")
    str3 = Split(Text3.Text, ".")
    
    For i = 0 To 3
        strAnd(i) = str1(i) And str2(i)
        strAnd(i) = strAnd(i) And str3(i)
    Next i
    
    Debug.Print Join(strAnd, ".")
End Sub