英汉小词典课程设计VBWord文档下载推荐.docx
- 文档编号:16269493
- 上传时间:2022-11-22
- 格式:DOCX
- 页数:15
- 大小:272.65KB
英汉小词典课程设计VBWord文档下载推荐.docx
《英汉小词典课程设计VBWord文档下载推荐.docx》由会员分享,可在线阅读,更多相关《英汉小词典课程设计VBWord文档下载推荐.docx(15页珍藏版)》请在冰豆网上搜索。
3.2功能模块的划分
搜索:
在程序中输入单词,可搜索到此单词的中文意思。
添加:
向小词典中增添没有的单词。
修改:
修改所选中的单词。
删除:
删除所选中的单词。
3.3各控件的属性
控件
名称
属性
属性值
备注
Button1
搜索
click
Forecolor:
black
Backcolor:
White
Font:
宋体,9pt,
用于搜索英文单词中文意思
Button2
添加
black
White
宋体,9pt,
用于添加英文单词及中文意思
Button3
修改
宋体,9pt,,
修改单词及其中文意思
Button4
删除
删除单词及其中文意思
Form1
英汉小词典
load
宋体,9pt,
Lable1
请输入对应的单词
Boredstyle:
Fixed3D
Textbox1
TextChanged
输入单词
Listbox1
SelectedIndex
Changed
Borderstyle:
fixed3D
WindowText
显示小词典中单词内容
3.4功能模块的说明〔主要流程和代码〕
3.4.1
Button1用于当在textbox1中输入一个单词时,Listbox1中该单词所在的位置能被选中,同时在Listbox2中能够显示单词的中文解释
图1.2搜索
Button2用于向列表框中添加单词
图1.3添加
Button3用于修改列表框中的单词
图1.4修改
Button4用于删除列表框中选定的单词
图1.5删除
3.4.2主要功能模块流程图
Button1搜索:
Button2添加:
Button3修改:
Button4删除:
3.4.3程序代码:
PublicClassForm1
Dima(),b()AsString
PrivateSubForm1_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.Load
Dimc
(1)AsString
DimiAsInteger
FileOpen(1,"
英汉小词典.txt"
OpenMode.Input)'
利用Fileopen〔〕函数翻开文件"
)
DoWhileNotEOF
(1)
c=Split(LineInput
(1),"
"
)'
对文本内容利用Split函数按空格别离,放到数组中,并在Listbox中显示
ListBox1.Items.Add(c(0))'
向列表框中添加工程
ListBox2.Items.Add(c
(1))
Loop
ReDimb(ListBox2.Items.Count-1)'
重新定义数组b〔〕
Fori=0ToListBox2.Items.Count-1
b(i)=ListBox2.Items(i)
Next
ReDima(ListBox1.Items.Count-1)'
重新定义数组a〔〕
Fori=0ToListBox1.Items.Count-1
a(i)=ListBox1.Items(i)
ListBox2.Items.Clear()'
清空列表框中的工程
FileClose
(1)
EndSub
PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.Click
Dima,bAsString'
定义字符串变量
a=TextBox1.Text
b=NotListBox1.Items.Contains(a)
IfTextBox1.Text="
"
Then
MessageBox.Show("
不能输入空字符,请重新输入"
EndIf
ListBox1.Text=a
PrivateSubListBox1_Click(ByValsenderAsObject,ByValeAsSystem.EventArgs)HandlesListBox1.Click
TextBox1.Text=ListBox1.Items(ListBox1.SelectedIndex)'
选中Listbox1中的内容,该内容在Textbox1中显示
PrivateSubListBox1_SelectedIndexChanged(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesListBox1.SelectedIndexChanged
ListBox2.Items.Clear()
ListBox2.Items.Add(b(ListBox1.SelectedIndex))'
在Listbox2中显示Listbox1中选中的英
PrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.Click
Dims,iAsString'
定义字符串变过量及整形变量
Diml,m,nAsInteger
s=InputBox("
请输入想要添加的单词"
"
添加一个新的单词"
用Inputbox函数进展输入
Ifs="
MsgBox("
单词不能为空,请输入单词"
5,"
输入单词"
DoWhileMsgBox("
)=MsgBoxResult.Retry
单词添加"
i=InputBox("
请输入中文意思!
Ifi="
中文解释不能为空,请输入中文翻译"
输入中文"
Ifs=a(l)Then
单词已存在"
m=UBound(a)'
添加单词,并将单词及其中文解释分别添加在Listbox1和Listbox2中
Forl=0Tom
Ifs<
a(l)ThenExitFor
Nextl
ReDimPreservea(m+1)'
重新定义a〔〕数组,显示添加后数组
Forn=mTolStep-1'
从工程最后往上移,腾出位置
a(n+1)=a(n)
a(l)=s
ReDimPreserveb(m+1)'
重新定义b〔〕数组,显示添加后数组
Forn=mTolStep-1
b(n+1)=b(n)
b(l)=i
ListBox1.Items.Clear()
Forn=0ToUBound(a)
ListBox1.Items.Add(a(n))
OpenMode.Output)
Forn=0ToUBound(b)
PrintLine(1,a(n)&
&
b(n))'
将添加的单词及中文解释添加到txt文本中显示
添加成功"
PrivateSubButton3_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton3.Click
Dimm,nAsString
DimjAsInteger
If-1=ListBox1.SelectedIndexThen
请选择单词再进展修改"
ListBox1.Focus()
ExitSub
m=InputBox("
请修改单词"
修改单词"
a(ListBox1.SelectedIndex))
n=InputBox("
请输入修改单词的中文解释"
b(ListBox1.SelectedIndex))
a(ListBox1.SelectedIndex)=m
b(ListBox1.SelectedIndex)=n
Forj=0ToUBound(b)
ListBox1.Items.Add(b(j))
修改成功"
,"
修改"
PrintLine(1,a(j)&
b(j))'
将修改后的单词及中文解释在txt中重新显示
PrivateSubButton4_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton4.Click
Dimx,i,hAsInteger
DimmAsString
IfListBox1.SelectedIndex=-1Then'
未选中ListBox1中的任一项
请先选择单词"
):
ExitSub
Else
确认删除吗?
1)
IfMsgBox("
1)=MsgBoxResult.OkThen
m=a(ListBox1.SelectedIndex)
h=UBound(a)'
从数组中删除数据
Forx=0Toh
Ifm=a(x)ThenExitFor
Nextx
Fori=x+1Toh
a(i-1)=a(i)
h=h-1
ReDimPreservea(h)
b(i-1)=b(i)
ReDimPreserveb(h)'
重新定义a〔〕数组,显示删除后数组
Fori=0ToUBound(a)
ListBox1.Items.Add(a(i))
删除成功"
删除"
Fori=0ToUBound(b)'
将删除的单词及中文解释从txt文本中剔除
PrintLine(1,a(i)&
b(i))
EndClass
4课程设计总结:
4.1完成情况
课程设计完毕时,所设计程序根本完成,实现了课程设计所要求的根本功能,通过此次实践我们掌握了VB2005的根本操作,提高了我们面向对象程序设计的综合设计能力,到达了预期的目的。
4.2遇到的问题及解决
编写程序时,局部语句掌握不流畅,程序运行时出现错误。
经过上网查询相关资料以及询问教师后将问题解决。
5〔附录〕参考文献
李春葆,金晶,曾平.VB.NET2005程序设计教程.:
清华大学,2021
龚沛曾.VisualBasic.NET程序设计教程.高等教育,2021
孙践知.VisualBasic.NET程序设计.清华大学,2021
孙秀梅、巩建华、等.VisualBasic开发实战1200例.清华大学;
(2011年1月1日)
◆
评论读取中....
XX应用技术学院课程设计任务书
课程名称
程序设计根底VB.net课程设计
课程代码
B704009
设计题目
题目序号
3
设计时间
20——20
系〔院〕
专业
班级
一、课程设计任务〔条件〕、具体技术参数〔指标〕
1.所需知识点:
〔1〕文本文件读写
〔2〕字符串处理
〔3〕数组使用
〔4〕列表框和组合框控件的使用
2.功能要求:
根本要求:
设计如下列图的程序界面,左边列表框中的单词表由读取文件英汉词典.txt得到,选择某单词后,会在上面的文本框中显示相应的内容,并且在右边显示相应的中文解释。
详情参考样例文件。
拓展要求:
二、对课程设计成果的要求〔课程设计报告内容〕
1.用简练、清晰的语言描述课程设计题目的要求和功能。
2.程序整体构造〔模块划分〕以及各模块的功能描述。
3.主要模块的算法〔用流程图描述〕。
4.在各模块中,说明使用的变量名及其用途。
5.程序的界面、交互方式和操作方法的说明。
6.报告内容完整、层次清晰,绘制图表标准正确。
7.报告需要交电子版和打印版,源程序交电子版。
三、课程设计工作进度:
天数
工作进度安排
1
选择课题、熟悉和理解课题、分析课题的要求。
2
进展课题功能设计
3-5
编写程序
6-7
调试、修改程序
8-9
课程设计报告撰写
10
提交报告、演示程序并辩论。
四、主要参考资料
指导教师〔签名〕:
教研室主任〔签名〕:
年月日年月日
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 英汉 词典 课程设计 VB