VB6 给IP字符串127.0.0.1换最后一位的代码，倒查函数 InStrRev2023年6月7日 15:30
新建From1（窗体），新建Command1（按钮CommandButton），代码：
Private Sub Command1_Click()
strIP = "127.0.0.1"
pos = InStrRev(strIP, ".")
strIP = Left(strIP, pos) + "255"
MsgBox strIP
End Sub运行结果：
127.0.0.255
全部回复（0）