简易英汉-汉英字典（1）打开VisualBasic.NET开发环境：“开始”“MicrosoftVisualStudio2005”“MicrosoftVisualStudio2005”；（2）新建一个项目：“文件”“新建”“项目”选择“VisualBasic.NETWindows应用程序”，为项目起名“批改算术题”“确定”。（3）从“工具箱”选中相应控件，然后拖动到Windows窗体中并设置控件“属性”和“格式”。（4）在窗体设计器中，双击任何控件，弹出“代码窗口”，编写相应控件主要事件代码程序如下：PrivateSubtxt英文_TextChanged(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handlestxt英文.TextChangedDimindexAsInteger=0'当前查找到的英文单词的索引号，从第一个单词开始DimisFoundAsBoolean=False'是否找到DimstrList,strTextAsStringREM只要还没有找到且还有没有查找的单词，就执行循环体DoWhileNotisFoundAndindex<lst英文.Items.CountstrList=lst英文.Items(index)'当前查找的单词strText=txt英文.Text'用户输入的单词IfstrList.StartsWith(strText)Then'比较单词是否以该字母开始lst英文.SelectedIndex=indexisFound=TrueEndIfindex+=1'查找下一个LoopEndSubPrivateSubtxt中文_TextChanged(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handlestxt中文.TextChangedDimindexAsInteger=0'当前查找到的中文词语索引号，从第一个词语开始DimisFoundAsBoolean=False'是否找到DimstrList,strTextAsStringREM只要还没有找到且还有没有查找的词语，就执行循环体DoWhileNotisFoundAndindex<lst中文.Items.CountstrList=lst中文.Items(index)'当前查找的词语strText=txt中文.Text'用户输入的汉字IfstrList.StartsWith(strText)Then'比较词语是否以该汉字开始lst中文.SelectedIndex=indexisFound=TrueEndIfindex+=1'查找下一个LoopEndSubPrivateSublst英文_SelectedIndexChanged(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handleslst英文.SelectedIndexChangedlst中文.SelectedIndex=lst英文.SelectedIndexEndSubPrivateSublst中文_SelectedIndexChanged(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handleslst中文.SelectedIndexChangedlst英文.SelectedIndex=lst中文.SelectedIndexEndSubPrivateSubbtn增加_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handlesbtn增加.ClickDimindexAsInteger'保存新单词插入位置的索引号lst英文.Items.Add(txt英文.Text)'将新单词添加到列表中index=lst英文.Items.IndexOf(txt英文.Text)'获取新单词位置的索引号lst中文.Items.Insert(index,txt中文.Text)'在相应位置插入对应的中文词语txt英文.Text=""txt中文.Text=""EndSubPrivateSubbtn删除_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handlesbtn删除.ClickDimindexAsInteger'保存要删除单词的索引号index=lst英文.SelectedIndex'获取要删除单词的索引号lst英文.