呵呵，有趁机问自己问题的嫌疑。这个 Q 是你原创的吧?
Q4.写一个程序，我输入一个url字符串，把他的web地址提出来
比如我输入http:\\www.sina.com.cn\index.html
那么它的web地址应该是www.sina.com.cn.
Dim strURL As String, i As Integer, j As Integer, strWangZhan As String
strURL = "http://www.sina.com.cn/index.html"
i = InStr(strURL, "://") + 3
j = InStr(i, strURL, "/")
strWangZhan = Mid(strURL, i, j - 1) '抽取网址，strWangZhan 就是网址了
Q4.写一个程序，我输入一个url字符串，把他的web地址提出来
比如我输入http:\\www.sina.com.cn\index.html
那么它的web地址应该是www.sina.com.cn.
Dim strURL As String, i As Integer, j As Integer, strWangZhan As String
strURL = "http://www.sina.com.cn/index.html"
i = InStr(strURL, "://") + 3
j = InStr(i, strURL, "/")
strWangZhan = Mid(strURL, i, j - 1) '抽取网址，strWangZhan 就是网址了
