当前位置：文档之家 › VB课程设计背单词

VB课程设计背单词

  • 格式：doc
  • 大小：161.50 KB
  • 文档页数：17

VB课程设计(论文)任务书土木建筑学院建筑环境与能源应用工程专业 2 班一、课程设计(论文)题目：背单词二、课程设计(论文)工作自年月日起至年月日止三、课程设计(论文) 地点: 计算中心四、课程设计(论文)内容要求：1. 本课程设计的目的（1）进一步巩固和加深对“VB程序设计”课程基本知识的理解和掌握，了解VB 语言在项目开发中的应用。

（2）学习程序设计开发的一般方法，了解和掌握项目开发过程与方式，培养正确的设计思想和分析问题、解决问题的能力，特别是项目设计能力。

（3）通过对标准化、规范化文档的掌握并查阅有关技术资料等，培养项目设计开发能力。

2. 课程设计的任务与要求2.1基本要求：(1) 对系统功能进行需求分析；(2) 使用Visual basic开发环境进行程序开发；(3) 提出系统的设计方案；(4) 提出系统的设计方案；(5) 编写源程序代码并进行调试。

2.2创新要求在基本要求达到后，可进行创新设计。

2.3课程设计报告撰写与装订要求课程设计报告的撰写要求表述简明，图表准确。

报告按如下内容和顺序用A4纸进行打印并装订成册。

（1）封面采用统一的课程设计封面，并按要求填写好封面要求的个人信息和选题。

（2）设计任务书（3）评阅书（4）目录（5）正文（6）主要参考文献2.4 课程设计评分标准：（1）达到课程设计的目的与要求，程序的可读性较好，并调试正确，60分；（2）能正确回答设计的中老师所提问题，可增加10分；（3）课程设计报告书写规范整齐，可增加10分；（4）心得体会认真总结，可增加10分；（5）程序有创新性，可增加10分；成绩评定实行优秀、良好、中等、与格和不与格五个等级。

不与格者需重做。

2.5 课程设计进度安排（1）准备阶段（6学时）：选择设计题目、了解设计目的要求、查阅相关资料。

（2）程序模块设计分析阶段（8学时）：程序总体设计、详细设计。

(3) 代码编写调试阶段（10学时）：程序模块代码编写、调试、测试。

(4) 撰写论文阶段（6学时）：总结课程设计任务和设计内容，撰写课程设计论文。

学生签名：20 年月日课程设计（论文）评阅意见评阅人职称20 年月日目录第1章系统概要 (1)1.1窗体概要 (1)1.2窗体运行顺序 (1)第2章总体设计 (2)2.1设计思路 (2)2.2窗体功能与控键 (2)第3章码 (4)第4章运行程序代结果与分析 (9)第5章心得体会 (11)参考文献 (12)第1章系统概要1.1 窗体概要图1-1本窗体包含了多个控件。

整个窗体最上方是用来显示单词的text控件；左下方用了一个Frame，其中是两个Label和三个Combo控件，用来选择单词词库以与单词显示范围；这个框架下方是两个Check和三个Command控件，用来选择单词显示方式以与控制单词的显示；右边也用了一个Frame，其中有对于显示单词的一些其他设置，使用了六个Label、两个Option和四个Hscroll 控件，分别控制显示单词的字体大小、显示速度以与显示单词背景的颜色设置。

1.2 窗体运行顺序控件是应用程序非常重要的组成部分，通过各种控件，应用程序可以实现不同的功能，通过本系统的设计，可以实现如下功能：1.选择词库可以切换四级词汇和六级词汇。

2.选择范围可以从A到Z自由切换范围。

3.选择随机可随机播放单词，并且循环变得不可选，选择循环可以循环播放单词，并且随机变得不可选。

4.播放的单词可以选择字体大小、显示速度、颜色设置。

5.点击开始可开始播放单词，点击暂停可暂停播放。

6.运行结束可在程序主窗体中点击“退出”按钮即可结束运行程序。

第2章总体设计2.1 设计思路背单词软件是英语学习类软件的分支，是专门针对用户背诵英语单词，掌握词汇量而制作的辅助学习软件。

由于媒介为个人电脑，所以背单词软件有着其它背单词工具无法达到的智能化与互动性，但相对应的，过于依赖电脑和较差的便携性成为其缺陷。

所以作为背单词的软件的设计思路应该简单为原则。

用户操作必须简单、方便为原则。

1.本题目提供了“大学英语四级词汇”和“大学英语六级词汇”两个词库文件，通过“词库设置”中的“词库”组合框可以选择想要的词库。

默认的词库是“大学生英语四级词汇”。

2.为了便于用户使用，程序允许选择想要记忆的单词范围，默认的单词范围是“A”至“Z”，即全部单词。

如果选择的范围是“A至C”，那么程序只显示以A,B和C字母开头的单词。

程序应保证“起始字母”在“终止字母”之前，即不会出现类似于“C至A”的情况。

3.据需要选择“随机”或“循环”复选框。

如果不选择“随机”，则显示单词是以单词在词库中的顺序显示的，否则以随机顺序显示，如果不选择“循环”复选框，单词显示一遍之后会自动从头开始显示。

在随机方式之下，循环是没有意义的，所以当“随机”复选框选定时，“循环”复选框应变为无效且呈现为选定状态。

4.毕后，单机“开始”按钮，窗口最上方显示区域从右向左以字幕方式动态显示所选的单词，包括词性和词义。

在相爱你是过程中可以改变字体大小，滚动速度和背景显示颜色。

单击“暂停”按钮可以暂停滚动，这是“暂停”按钮变为“继续”，单击会继续滚动。

单机“退出”按钮退出主界面。

本程序在主窗体设置有“开始”、“暂停”、“结束”、三个子窗体控件。

2.2 窗体功能与控键主窗体提供开始、暂停和结束三个快捷按钮。

当程序运行时，显示主窗体，当用户点击相应的控制按钮时，程序进入相应的运行窗体。

在不同的运行窗体根据控件属性值的相关提示进行下一步操作各窗体控件与其属性值与属性名见下列表（表2-1）。

第3章程序代码Private s() As String, t() As String, r%Private Sub Check1_Click()Check2.Value = 0If Check1.Value = 1 ThenCheck2.Enabled = FalseElseCheck2.Enabled = TrueEnd IfEnd SubPrivate Sub Check2_Click()Check1.Value = 0If Check2.Value = 1 ThenCheck1.Enabled = FalseElseCheck1.Enabled = TrueEnd IfEnd Sub实现随机与循环复选框的选择，选择了随机框则循环框呈不可选择状态，选择了循环框则随机框呈不可选择状态。

Private Sub Combo3_Click()If Combo3.ListIndex < Combo2.ListIndex ThenCombo3.Text = "Z"MsgBox "起始字母必须在终止字母之前", 64, "系统提示"Exit SubEnd IfEnd Sub范围选择防止出现下标大于上标，否则会出现系统提示“起始字母必须在终止字母之前”。

Private Sub Command1_Click()Command2.Enabled = TrueDim nextline As Stringm = 0r = 0If Combo1.Text = "大学英语四级词汇" ThenOpen App.Path + "\大学英语四级词汇.txt" For Input As #1ElseIf Combo1.Text = "大学英语六级词汇" ThenOpen App.Path + "\大学英语六级词汇.txt" For Input As #1End If词库选择Do While Not EOF(1)On Error Resume NextLine Input #1, nextlinem = m + 1ReDim Preserve s(m)s(m) = nextlineIf Asc(Left(s(m), 1)) > Combo2.ListIndex + 96 Thenr = r + 1ReDim Preserve t(r)t(r) = s(m)End IfIf Asc(Left(s(m), 1)) > Combo3.ListIndex + 97 ThenExit DoEnd IfLoop将词库每行数据存入s(m)中，下标对应行号，实现范围选择，并将范围内的每行数据存入t(r)中，下标对应行号。

Close #1Timer1.Enabled = TrueEnd SubPrivate Sub Command2_Click()If Timer1.Enabled = True ThenCommand2.Caption = "继续": Timer1.Enabled = FalseElseCommand2.Caption = "暂停": Timer1.Enabled = TrueEnd IfEnd SubPrivate Sub Command3_Click()If MsgBox("您确定要退出吗？", 4 + 32, "系统提示") = vbNo Then Exit Sub Unload Form1End SubPrivate Sub Form_Load()Move (Screen.Width - Width) / 2, (Screen.Height - Height) / 2窗口显示居中Combo1.List(0) = "大学英语四级词汇"Combo1.List(1) = "大学英语六级词汇"Command2.Enabled = FalseCombo1.Text = Combo1.List(0)For i = 1 To 26Combo2.List(i - 1) = Chr(64 + i)Next iCombo2.Text = Combo2.List(0)Combo2.ListIndex = 0For i = 1 To 26Combo3.List(i - 1) = Chr(64 + i)Next iCombo3.Text = Combo3.List(25)Combo3.ListIndex = 25Option1.Value = TrueCheck1.Value = 0Check2.Value = 0HScroll2.Value = 0HScroll3.Value = 0HScroll4.Value = 0Timer1.Enabled = FalseTimer1.Interval = HScroll1.Max - HScroll1.ValueEnd SubPrivate Sub HScroll1_Change()Timer1.Interval = HScroll1.Max - HScroll1.ValueEnd SubPrivate Sub HScroll1_Scroll()Timer1.Interval = HScroll1.ValueEnd SubPrivate Sub HScroll2_Change()Text1.ForeColor = RGB(HScroll2.Value, HScroll3.Value, HScroll4.Value) Text1.BackColor = Not CLng(Text1.ForeColor) And &HFFFFFFEnd SubPrivate Sub HScroll2_Scroll()Text1.ForeColor = RGB(HScroll2.Value, HScroll3.Value, HScroll4.Value) Text1.BackColor = Not CLng(Text1.ForeColor) And &HFFFFFFEnd SubPrivate Sub HScroll3_Change()Text1.ForeColor = RGB(HScroll2.Value, HScroll3.Value, HScroll4.Value) Text1.BackColor = Not CLng(Text1.ForeColor) And &HFFFFFFEnd SubPrivate Sub HScroll3_Scroll()Text1.ForeColor = RGB(HScroll2.Value, HScroll3.Value, HScroll4.Value) Text1.BackColor = Not CLng(Text1.ForeColor) And &HFFFFFFEnd SubPrivate Sub HScroll4_Change()Text1.ForeColor = RGB(HScroll2.Value, HScroll3.Value, HScroll4.Value) Text1.BackColor = Not CLng(Text1.ForeColor) And &HFFFFFFEnd SubPrivate Sub HScroll4_Scroll()Text1.ForeColor = RGB(HScroll2.Value, HScroll3.Value, HScroll4.Value) Text1.BackColor = Not CLng(Text1.ForeColor) And &HFFFFFFEnd SubPrivate Sub Option1_Click()If Option1.Value = True ThenText1.FontSize = 20End IfEnd SubPrivate Sub Option2_Click()If Option2.Value = True ThenText1.FontSize = 33End IfEnd SubPrivate Sub Timer1_Timer()Static n%, f As BooleanOn Error Resume NextSelect Case Check1.ValueCase 0If n = r And Check2.Value = 1 Thenn = 0ElseIf n = r And Check2.Value = 0 Thenf = FalseTimer1.Enabled = FalseExit SubEnd IfIf f = False Then Text1.Text = Space(46) & t(n + 1)If Len(Text1.Text) > 0 ThenText1.Text = Right(Text1.Text, Len(Text1.Text) - 1): f = TrueElsef = False: n = n + 1End IfCase 1Randomize TimerIf f = False Then Text1.Text = Space(46) & t(Int((r - 1) * Rnd + 1)) If Len(Text1.Text) > 0 ThenText1.Text = Right(Text1.Text, Len(Text1.Text) - 1): f = True Elsef = FalseEnd IfEnd Select终止默认循环End Sub第4章运行结果与分析4. 主窗体运行分析图4-1图4-2首先选择词库，可选大学英语四级词汇和大学英语六级词汇，然后选择范围，以首字母为范围，从A到Z，不可前边的首字母先于后边的首字母，否则系统会提示“起始字母必须在终止字母前”，下边可以选择单词的显示方法，可选随机和循环，选定了其中一个另一个复选框就会变成不可被选中模式。

合集下载

vb课程设计

vb课程设计

VB课程设计概述VB（Visual Basic）是一种基于对象的高级编程语言，用于开发各种应用程序。

在VB课程设计中，学生将学习如何使用VB语言和相关工具来设计和开发自己的应用程序。

本文将深入探讨VB课程设计的重要性、基本知识要求和实际应用。

重要性VB课程设计对学生的能力培养具有重要意义。

通过课程设计，学生可以巩固VB语言的基本知识，了解软件开发的整体过程，并培养解决问题和创新的能力。

基本知识要求在进行VB课程设计之前，学生需要掌握一些基本的知识和技能，以确保能够顺利完成设计任务。

以下是一些基本知识要求：1. VB语言基础学生需要熟悉VB语言的基本语法、数据类型、循环和条件语句等。

这些知识是进行VB课程设计的基础。

2. VB开发环境学生需要了解和熟悉VB开发环境，包括VB IDE（集成开发环境）和相关工具。

他们需要知道如何创建项目、编写代码、调试程序等。

3. 项目管理在进行VB课程设计时，学生需要学习并应用项目管理的基本原则。

他们需要制定项目计划、设置里程碑、分配任务等，以确保项目按时完成。

实际应用VB课程设计不仅仅是为了学习理论知识，更重要的是将所学知识应用到实际项目中。

以下是一些实际应用的例子：1. 学生成绩管理系统学生可以设计一个学生成绩管理系统，用于记录和统计学生的成绩信息。

他们可以使用VB语言编写界面、实现数据输入和查询功能，并使用数据库来存储和管理学生信息。

2. 聊天程序学生可以设计一个简单的聊天程序，用于实现用户之间的消息传递。

他们可以使用VB语言编写界面、实现网络通信功能，并加入一些额外的特性，如文件传输、表情符号等。

3. 计算器应用学生可以设计一个计算器应用，用于进行数学计算。

他们可以使用VB语言编写界面、实现基本的数学运算功能，并加入一些科学计算和统计功能。

总结VB课程设计是学生掌握VB语言和软件开发能力的重要途径。

通过课程设计，学生能够巩固和应用所学的知识，并培养解决问题和创新的能力。

中级常用VB词汇表

中级常用VB词汇表

VB词汇表Interger 整型Long 长整形Single 单精度浮点型Double 双精度浮点型Currency 货币型Date 日期型Boolean 布尔型String 字符型Byte 字节型Object 对象型Variant 变体类型Dim 定义、声明（变量）Option explicit 显式声明Empty 空（变体类型的默认初始值）Null 无（数据库中未知数据或尚未赋值的数据）Error 错误Const 定义、声明（常量）MOD 模运算（取余运算）And 与Or 或Not 非Print 打印（输出）Private sub 私有过程Cls 清屏If then 如果---就---If then e lse 如果---就---否则---If then e lseif 如果---就----如果---就---否则Select case 如果----就选择----Do loop while 执行----当----Do loop until 执行----直到-----Do while loop 当----执行-----Do until loop 直到---执行---For next 当---到----时----执行---Exit 退出End 结束Redim 动态定义数组Function 函数Sub 子过程Call 调用Public 公共Abs 绝对值Ltrim 去左边空格Rtrim 去右边空格Trim 去两边空格Left 左Right 右Mid 中间Str 数值型转化为字符型Val 字符型转化为数值型Now 现在Date 日期Day 天Weekday 星期几Month 月Year 年Time 时间Hour 小时Minute 分钟Second 秒Randomize 随机生成Name 名称Caption 标题Form 窗体Borderstyle 边框风格Backcolor 背景色Forecolor 前景色Picture 图片Width 宽度Height 高度Moveable 可移动Font 字体Enable 可响应Visible 可视性Controlbox 控制框Maxbutton 最大化按钮Minbutton 最小化按钮Load 加载Unload 卸载Click 单击Dblclick 双击Resize 改变大小Show 显示Hide 隐藏Alignment 对齐Autosize 自动调整大小Wordwrap 自动调整大小Textbox 文本框Locked 锁定Maxlength 最大长度Multiline 多行输出Scrollbars 滚动条Passwordchar 密码输入框Change 改变Lostfocus 失去焦点Gotfocus 获得焦点Commandbutton 命令按钮Style 外观Downpicture 命令按钮按下显示图形Disabledpicture 命令按钮无效时显示图形Tooltiptext 按钮上显示文本Colums 列表List 列表项Listindex 列表项下标Listcount 列表项总数Multiselect 多项选择Additem 添加列表项Removeitem 删除列表项Clear 清除Combolist 组合框Msgbox 对话框vbCritical 停止图标vbquestion 询问图标vbexclamation 警告图标vbinformation 信息图标defaultbutton 默认按钮inputbox 输入框break 中断connectionstring 数据链接字符串recordsource 记录源commandtype 命令类型recordset 记录集recordcount 记录总数absoluteposition 第几条记录EOF 最后一个条记录标志BOF 第一条记录标志Fields 字段Movefirst 移到第一条记录Movelast 移到最后一条记录Movenext 移到下一条记录Moveprevious 移到前一条记录Addnew 增加新记录Update 更新Delete 删除Cancelupadte 取消更新Find 查找Datasource 数据源Datafield 数据源字段DSN 数据源名Open 打开UID 用户名PWD 密码Close 关闭Cursortype 游标类型Adopenstatic 静态游标Adopendynamic 动态游标Cursorlocation 游标位置Aduseclient 客户段游标Aduseserver 服务器游标Locktype 锁定方式Adlockreadonly 只读锁定Adlockpessimistic 悲观锁Adlockoptimistic 乐观锁Activeconnection 当前连接Maxrecorders 记录最大数量Bookmark 书签Filter 过滤Adfilternone 过滤还原。

背单词简单方法课程设计

背单词简单方法课程设计

背单词简单方法课程设计一、课程目标知识目标：1. 学生能掌握至少5种有效的单词记忆方法，并理解其背后的记忆原理。

2. 学生能通过本课程学习，扩大英语词汇量，掌握课本中重点词汇及其用法。

3. 学生能运用所学单词进行简单的句子编写，提升英语表达能力。

技能目标：1. 学生能够运用不同的记忆法快速记忆并巩固单词，提高学习效率。

2. 学生通过小组合作和互动交流，提高团队协作能力和口语表达能力。

3. 学生通过参与课堂活动，培养自主探究和解决问题的能力。

情感态度价值观目标：1. 学生培养对英语学习的兴趣，树立自信心，积极参与课堂活动。

2. 学生在学习过程中，养成积极思考、勇于尝试和不断探索的良好习惯。

3. 学生通过学习英语，了解不同文化背景，培养跨文化交际意识和尊重多元文化的价值观。

课程性质：本课程以实用性和趣味性为特点，结合课本内容，教授学生高效的单词记忆方法，帮助学生轻松掌握英语词汇。

学生特点：考虑到学生所在年级，具有一定的英语基础，但学习兴趣和动机各不相同，本课程旨在满足不同学生的学习需求，提高他们的学习兴趣和积极性。

教学要求：教师应关注学生的个体差异，采用多样化的教学手段，激发学生的学习兴趣，注重培养学生的实际运用能力和跨文化交际意识。

同时，通过课堂反馈和评估，及时调整教学策略，确保课程目标的实现。

二、教学内容本课程以课本为基础，结合以下教学内容，帮助学生掌握高效的单词记忆方法：1. 单词记忆原理介绍：讲解记忆的基本原理，如联想记忆、图像记忆等，让学生了解并运用到单词学习中。

教学内容：课本第二章“Memory and Learning”部分内容。

2. 五种常用单词记忆法：结合课本实例，详细介绍五种记忆法，包括拼音记忆法、家族词汇记忆法、词根词缀记忆法、场景记忆法和故事记忆法。

教学内容：课本第三章“Vocabulary Learning”部分内容。

3. 单词记忆实践：选取课本重点词汇，指导学生运用所学记忆法进行实际操作，巩固记忆。

VB背单词相关代码

VB背单词相关代码

这个是我们老师做的，代码是对的，但放到有写机子上无法运行背单词Option ExplicitOption Base 1Dim words() As String, X As StringDim n As Integer, j As Integer, k As Integer Dim i As IntegerDim cur As Integer, st As Integer, en As IntegerPrivate Sub chkRand_Click()If chkRand.Value = 1 ThenchkLoop.Value = 0chkLoop.Enabled = FalseElsechkLoop.Enabled = TrueEnd IfEnd SubPrivate Sub cmd_exit_Click()EndEnd SubPrivate Sub cmd_start_Click()Dim X As StringLabel12.Left = Picture1.Left + Picture1.Width'读入词库文件If Combo1.Text = Combo1.List(0) ThenOpen App.Path & "\grade4.txt" For Input As #1ElseOpen App.Path & "\grade6.txt" For Input As #1End Ifn = 0Do Until EOF(1)n = n + 1ReDim Preserve words(n)Line Input #1, words(n)LoopClose #1st = 1Do Until Chr(Asc(words(st))) = LCase(Combo2.Text)st = st + 1Loopen = nDo Until Chr(Asc(words(en))) = LCase(Combo3.Text)en = en - 1Loopcur = stTimer1.Enabled = TrueTimer2.Enabled = Truecmd_stop.Enabled = Truecmd_stop.Caption = "暂停"End SubPrivate Sub cmd_stop_Click()If cmd_stop.Caption = "暂停" Thencmd_stop.Caption = "继续"Timer1.Enabled = FalseTimer2.Enabled = FalseElsecmd_stop.Caption = "暂停"Timer1.Enabled = TrueTimer2.Enabled = TrueEnd IfEnd SubPrivate Sub Combo2_click()If Combo2 > Combo3 Then Combo3 = Combo2 End SubPrivate Sub Combo3_Click()If Combo2.ListIndex > Combo3.ListIndex Then Combo3.ListIndex = Combo2.ListIndexEnd SubPrivate Sub Form_Load()Dim i As IntegerFor i = 0 To 25Combo2.AddItem Chr(65 + i)Combo3.AddItem Chr(65 + i)NextCombo1.ListIndex = 0Combo2.ListIndex = 0Combo3.ListIndex = 25End SubPrivate Sub HScroll1_Change()Timer2.Interval = HScroll1.ValueEnd SubPrivate Sub HScroll4_Change()Picture1.BackColor = RGB(HScroll2.Value, HScroll3.Value, HScroll4.Value)Label12.ForeColor = Not CLng(Picture1.BackColor) And &HFFFFFFEnd SubPrivate Sub HScroll4_scroll()Picture1.BackColor = RGB(HScroll2.Value, HScroll3.Value, HScroll4.Value)Label12.ForeColor = Not CLng(Picture1.BackColor) And &HFFFFFFEnd SubPrivate Sub HScroll2_Change()Picture1.BackColor = RGB(HScroll2.Value, HScroll3.Value, HScroll4.Value)Label12.ForeColor = Not CLng(Picture1.BackColor) And &HFFFFFFEnd SubPrivate Sub HScroll2_scroll()Picture1.BackColor = RGB(HScroll2.Value, HScroll3.Value, HScroll4.Value)Label12.ForeColor = Not CLng(Picture1.BackColor) And &HFFFFFFEnd SubPrivate Sub HScroll3_Change()Picture1.BackColor = RGB(HScroll2.Value, HScroll3.Value, HScroll4.Value)Label12.ForeColor = NotCLng(Picture1.BackColor) And &HFFFFFFEnd SubPrivate Sub HScroll3_scroll()Picture1.BackColor = RGB(HScroll2.Value, HScroll3.Value, HScroll4.Value)Label12.ForeColor = Not CLng(Picture1.BackColor) And &HFFFFFFEnd SubPrivate Sub Option1_Click()If Option2.Value = True ThenLabel12.FontSize = 24ElseLabel12.FontSize = 16End IfEnd SubPrivate Sub Option2_Click()If Option2.Value = True ThenLabel12.FontSize = 24ElseLabel12.FontSize = 16End IfEnd SubPrivate Sub Timer2_Timer()If cmd_stop.Caption = "继续" ThenExit SubEnd IfLabel12.Left = Label12.Left - 100If cur <= en ThenIf Label12.Left + Label12.Width + 500 > Picture1.Left ThenLabel12.Caption = words(cur)ElseIf chkRand.Value = 1 Thencur = Rnd * (en - st) + stElsecur = cur + 1End IfLabel12.Left = Picture1.Left +Picture1.Width + 1000End IfElseIf chkLoop.Value = 1 Thencur = stElseTimer1.Enabled = FalseTimer2.Enabled = Falsecmd_stop.Enabled = False cmd_stop.Caption = "暂停" End IfEnd IfEnd Sub。