最后一个感觉如何？？
呵呵
你也用穷举做的？
我实现的时候花了 15S左右
你把程序放过来啊～～～
2005-11-01 22:43
2005-11-01 23:05
2005-11-01 23:10
2005-11-01 23:11
2005-11-02 06:49
2005-11-02 06:53
2005-11-02 07:02
你给出的 Q4的算法有错误
InStr返回值是 字节数
而你使用的 Mid()函数 需要的是 字符数～～
呵呵～～～
Private Sub Form_load()
Dim strURL As String, i As Integer, j As Integer, strWangZhan As String
strURL = InputBox("请输入URL·")
i = InStr(strURL, "://") + 3
j = InStr(i, strURL, "/") - 1
strWangZhan = Mid(strURL, i, j - 7)
Text1 = strWangZhan
End Sub
2005-11-02 08:08
好厉害的算法 呵呵～～
强人～～
你们都比我的这个简单啊
2005-11-02 14:10
2005-11-02 22:26