论文部分内容阅读
自我介绍：我叫柳为，是来自武汉的一名经贸专业的大学生，1999年开始看稀饭，除了高三一年因学习紧张而中断外，基本上期期购买。稀饭对我的生活影响很大，现在我虽然读的是经贸专业，不过计算机水平却让很多计算机系的朋友都佩服，这无疑是稀饭的功劳，愿稀饭越办越好。
2007年第13期的《只要会打字就能编程序》一文中，作者用易语言教我们编写了一个搜索软件。虽然代码比较简单，但过程比较复杂，而且没有注册的易语言程序根本不能编译。我们才学了VB，所以决定用VB编一个搜索软件，功能绝不逊色于原文，甚至在界面本身可以显示搜索结果。
运行VB，在界面上添加一个文本控件(text属性为空），一个按钮控件（caption属性为search），然后添加WebBrowser控件，方法为点击“工程→部件”，勾选“Microsoft Internet Control”点击确定。双击工具栏的WebBrowser控件，在主窗体添加WebBrowser控件，所有控件的名称属性默认即可。接下来添加程序代码。
Private Sub Command1_Click()
Dim url As String
On Error Resume Next '出错后继续
If Text1.Text = "" Then MsgBox "请先输入关键字": Exit Sub '防止不输入关键词
url = "http://www.baidu.com/s?wd=" +Text1.Text '将关键词放入查询语句中
Webbrowser1.Navigate url'调用浏览器显示查询结果
End Sub
创新度：★★★
实用度：★★★
分类：新型方案
小编手记：作者以百度搜索为例进行了制作，其他的搜索引擎大家可以用类似方法加上去。大家可以到http://work.newhua.com/200716/hyb1.rar下载程序及其源程序，建议采用1024*768分辨率运行，效果是很不错的。
额外奖：30元
2007年第13期的《只要会打字就能编程序》一文中，作者用易语言教我们编写了一个搜索软件。虽然代码比较简单，但过程比较复杂，而且没有注册的易语言程序根本不能编译。我们才学了VB，所以决定用VB编一个搜索软件，功能绝不逊色于原文，甚至在界面本身可以显示搜索结果。
运行VB，在界面上添加一个文本控件(text属性为空），一个按钮控件（caption属性为search），然后添加WebBrowser控件，方法为点击“工程→部件”，勾选“Microsoft Internet Control”点击确定。双击工具栏的WebBrowser控件，在主窗体添加WebBrowser控件，所有控件的名称属性默认即可。接下来添加程序代码。
Private Sub Command1_Click()
Dim url As String
On Error Resume Next '出错后继续
If Text1.Text = "" Then MsgBox "请先输入关键字": Exit Sub '防止不输入关键词
url = "http://www.baidu.com/s?wd=" +Text1.Text '将关键词放入查询语句中
Webbrowser1.Navigate url'调用浏览器显示查询结果
End Sub
创新度：★★★
实用度：★★★
分类：新型方案
小编手记：作者以百度搜索为例进行了制作，其他的搜索引擎大家可以用类似方法加上去。大家可以到http://work.newhua.com/200716/hyb1.rar下载程序及其源程序，建议采用1024*768分辨率运行，效果是很不错的。
额外奖：30元