高手进来小试牛刀！！ - VB6论坛

| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛 |

编程论坛 → 开发语言 → 『 VB6论坛』 → 高手进来小试牛刀！！

我的收件箱(0)

欢迎加入我们，一同切磋技术

共有 1398 人关注过本帖

标题：高手进来小试牛刀！！

取消只看楼主加入收藏

qilin520

等　级：新手上路
帖　子：22
专家分：0
注　册：2005-6-8

第 11 楼

得分:0

最后一个感觉如何？？

2005-11-01 22:43

qilin520

等　级：新手上路
帖　子：22
专家分：0
注　册：2005-6-8

第 12 楼

得分:0

呵呵

你也用穷举做的？

我实现的时候花了 15S左右

你把程序放过来啊～～～

2005-11-01 23:05

qilin520

等　级：新手上路
帖　子：22
专家分：0
注　册：2005-6-8

第 13 楼

得分:0

你的算法比我的好些

但是答案我也不能确定了～～～

2005-11-01 23:10

qilin520

等　级：新手上路
帖　子：22
专家分：0
注　册：2005-6-8

第 14 楼

得分:0

考虑用递推算法看行不行

2005-11-01 23:11

qilin520

等　级：新手上路
帖　子：22
专家分：0
注　册：2005-6-8

第 15 楼

得分:0

Q5 没按你说的那样做出来的

你放出你的代码看看

2005-11-02 06:49

qilin520

等　级：新手上路
帖　子：22
专家分：0
注　册：2005-6-8

第 16 楼

得分:0

你给出的Q7的算法我运行不起来

2005-11-02 06:53

qilin520

等　级：新手上路
帖　子：22
专家分：0
注　册：2005-6-8

第 17 楼

得分:0

大家看看Q8感觉如何？
这个才是最有趣的了

2005-11-02 07:02

qilin520

等　级：新手上路
帖　子：22
专家分：0
注　册：2005-6-8

第 18 楼

得分:0

你给出的 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

qilin520

等　级：新手上路
帖　子：22
专家分：0
注　册：2005-6-8

第 19 楼

得分:0

以下是引用slore在2005-11-2 12:44:44的发言：
Private Sub Command1_Click()
Dim a() As String
a = Split(Text1, "/")
Text1 = a(2)
End Sub

好厉害的算法呵呵～～

强人～～

你们都比我的这个简单啊

2005-11-02 14:10

qilin520

等　级：新手上路
帖　子：22
专家分：0
注　册：2005-6-8

第 20 楼

得分:0

呵呵～～

我都不清楚你说什么了～～～～

第8个感觉如何啊？

2005-11-02 22:26

快速回复：高手进来小试牛刀！！