鄙视！！！

你4念大学怎么读的？？毕业设计都靠别人？现在就是有人给了你现成的代码，你未必能读得懂吧？!

为什么大学不好好读呀？

是啊，你以后还是认真点吧 
看在生日都是4-16的分上帮你一下
不知道我写的是不是符合你毕业设计的要求
呵呵不要见怪，我才是中学生，还是自学的

用Combo控件当选择搜索引擎、名称Combo1  list 属性
Google
百度-网页
百度-MP3
百度-全部图片

用TEXT做输入关键字  名称 Text1

Command1 做按扭 cation属性 搜索  defualt :ture
WebBrowser1做网页显示器




代码：

Dim url As String


Private Sub Command1_Click()
On Error GoTo errHandle
If Text1.Text = "" Then
MsgBox "关键字不能为空，请重新输入!", 16, "错误提示"
Else
   Select Case Combo1.Text
   Case "Google"
       url = "http://www.google.com/search?q=" & Text1.Text
   Case "百度-网页"
  url = "http://www.baidu.com/s?wd=" & Text1.Text
   Case "百度-MP3"
  url = "http://mp3.baidu.com/m?f=ms&tn=baidump3&ct=134217728&lf=&rn=&word=" & Text1.Text & "&lm=0"
    Case "百度-全部图片"
url = "http://image.baidu.com/i?ct=201326592&cl=2&lm=-1&tn=baiduimage&word=" & Text1.Text
  End Select
  WebBrowser1.Navigate url
End If
Exit Sub




errHandle:
  MsgBox Err.Description, vbCritical + vbOKCancel, "错误提示"
End Sub

Private Sub Form_Load()
Combo1.Text = "Google"
url = "http://www.3252ra.com"   '设置打开软件未进行搜索时的默认主页
 WebBrowser1.Navigate url
End Sub

JAVA汽车销售系统+论文
ASP.NET在线医务所管理网+论文
VB学生试卷系统+论文
各种ASP.NET网站
专业定做毕业设计
语言:ASP.NET(C#)
数据库:ORACLE,SQL,ACCESS
制作专业,信誉第一,保证顺利通过答辩.
另有多个ASP,JAVA,ASP.NET,VB等毕业设计及论文出售(均已通过答辩)
价格便宜，信誉第一！

联系QQ:89564532,492111161 长期在线.

JAVA汽车销售系统+论文
ASP.NET在线医务所管理网+论文
VB学生试卷系统+论文
各种ASP.NET网站
专业定做毕业设计
语言:ASP.NET(C#)
数据库:ORACLE,SQL,ACCESS
制作专业,信誉第一,保证顺利通过答辩.
另有多个ASP,JAVA,ASP.NET,VB等毕业设计及论文出售(均已通过答辩)
价格便宜，信誉第一！

联系QQ:89564532,492111161 长期在线.