本人想写这样一个程序,请大家帮帮忙!
有两个Listbox(List1,List2),一个command(cmd1)
List1中存放的是学生的数据如下

吴 兵 数学 85分

许 杨 数学 82分

周志鹏 数学 73分

李小芳 数学 76分

毛 敏 数学 85分

.....

.....

.....

.....

...

当我按下cmd1的时候,在List2中就列出得85分的那些数据.

谁帮帮我啊 急需!!!

[此贴子已经被作者于2006-3-8 14:14:06编辑过]

上传了.

谢谢斑主

呵呵..不用谢.其实只要大家多想问题.那问题就自然可以解决了..

提一个网络问题,和上面这个差不多的,list1里面已经取得了网站的所有链接

把含有某个字符的网址读取出来,放到list2中,

我在你给我的程序上做修改,可惜好几次都没成功

每次都不明白你的意思.在群里也是...

什么叫list1里面已经取得了网站的所有链接

把含有某个字符的网址读取出来,放到list2中??

应该是 把1L 所说的那个 条件85

改成活动的查询 dim tiaojian1 as ....

tiaojian1 = text1.text

..........


呵呵 乱写的

没运行的时候是这样的
[IMG]http://cn.f11.yahoofs.com/users/440d778az356ff775/a654/__sr_/7ef1cnb.jpg?phwItDEBuECGEorV[/IMG]
运行起来就是这样的
[IMG]http://cn.f11.yahoofs.com/users/440d778az356ff775/a654/__sr_/aa87cnb.jpg?phwItDEBhj35sVJR[/IMG]

代码是这样
Private Sub Form_Load()
WebBrowser1.Navigate "http://www.bc-cn.net/bbs/dispbbs.asp?boardID=6&ID=49094&page=1"
End Sub

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
Dim x As Long
For x = 0 To WebBrowser1.Document.Links.length - 1
List1.AddItem WebBrowser1.Document.Links.Item(x)
Next x
Command1.Enabled = True
End Sub

现在我在list1中有很多网址,比如说我要提出含有html字样的网址放到List2中来
这下应该清楚了吧

图都没有看到.怎么清楚呢?