VB 背单词 课程设计.doc

背单词软件是英语学习类软件的分支，是专门针对用户背诵英语单词，掌握词汇量而制作的辅助学习软件。由于媒介为个人电脑，所以背单词软件有着其它背单词工具无法达到的智能化与互动性，但相对应的，过于依赖电脑和较差的便携性成为其缺陷。所以作为背单词的软件的设计思路应该简单为原则。用户操作必须简单、方便为原则。（1） 本题目共提供了“大学英语四级词汇”和“大学英语六级词汇”两个词库文件（分别是grade4.txt和grade6.txt），通过“词库设置”中的“词库”组合框可以选择想要的词库。默认的词库是“大学英语四级词汇”。（2） 为了便于用户使用，程序允许选择想要记忆的单词范围。默认的单词范围是“A至Z”，即全部单词。如果选择的范围是“A至C”，那么程序只显示以A、B和C字母开头的单词。程序应保证“起始字母”在“终止字母”之前，即不会出现类似于“C至A”的情况。（3） 据需要选择“随机”或“循环”复选框。如果不选择“随机”，则显示单词时是以单词在词库中的顺序（即字母的顺序）显示的，否则以随机顺序显示。如果不选择“循环”复选框，单词显示一遍之后自动停止回到起始状态。如果选择了“循环”复选框，显示一遍之后会自动从头开始显示。在随机方式之下，循环是没有意义的，所以当“随机”复选框选定时，“循环”复选框应变为无效且呈现未选定状态。（4） 毕后，单击“开始”按钮，窗口最上方显示区域从右向左以字幕方式动态显示所选的单词，包括词性和词义。在显示过程中可以改变字体大小、滚动速度和背景显示颜色。单击“暂停”按钮可以暂停滚动，这时“暂停”按钮变为“继续”，单击会继续滚动。单击“退出”按钮退出主界面。（一） 主要界面A、首界面：可以选择“点击进入”按钮或者“退出”按钮，继续程序。B、选择点击进入之后，进入主程序界面。C、单击使用说明按钮，弹出对话框。（二） 关键控件A、 按钮控件：本程序中运用大量按钮控件，分别控制首界面中“点击进入”、“退出”，主程序界面中“开始”、“暂停”、“退出”、“使用说明”以及滚动条两侧“左移”、“右移”功能。在首界面中，单击“点击进入”按钮后，首界面消失，进入主程序界面。单击“退出”按钮，弹出”是否退出”的对话框。在主程序界面中，单击“开始”按钮之前， “暂停”按钮为灰显状态。单击“开始”按钮，滚动条开始滚动，此时单击“暂停”按钮，滚动条停止滚动，“暂停”按钮变更为“继续”按钮，单击”继续“按钮，滚动条继续滚动。单击“退出”按钮，回归首界面。单击“使用说明”，弹出“使用说明”窗体。点击“左移” 、“右移”按钮，滚动条相应左右移动。B、 标签控件：本程序使用大量标签控件，以便标注各个控件的功能。C、 组合框控件本程序中共有三个组合框，分别控制词库范围（大学英语四级词汇、大学英语六级词汇）、首字母范围的选择。D、 滚动条控件本程序中共有四个滚动条控件，分别控制滚动速度、滚动条背景颜色的更改。E、 复选框控件通过对复选框按钮的选择，选择播放方式（随机、循环）。点击“随机”框 ，“循环”框为灰显状态，滚动单词内容随机播放。点击“循环”框，选择首字母范围之后，在该字母范围内循环播放。F、 单选按钮控件通过对单选按钮的选择，选择滚动字体的大小。单击“大字体”框时，字体变为20号字。单击“小字体”框时，字体为14号字。G、 图像框控件首界面中图片的放置。H、 文本框控件构成滚动字体（三）关键技术A、时钟与滚动 将时钟的Interval设定为显示速度滚动条的值的线性函数（Timer1.Interval = HScroll1.Value * 20），时钟的速度便由滚动条的值控制，成为为可调的。为了循环的执行，这里定义一个随机变量k。随着时钟计时，当text1中显示内容从左起的第一个字符的ASCII码大于零，则其字幕显示为前一个词从第四位开始取长度为这个词长度减三的部分和后一个词前三位部分，k=k+3。而当text1中显示内容从左起的第一个字符的ASCII码小于零，则其字幕显示为前一个词从第二位开始取长度为这个词长度减一的部分和后一个词第一位部分，k=k+1。如此便形成了字幕可以以不同速度滚动的效果。B、词库选择与调用文档 当词库选择的组合框1选择大学英语四级词汇时，便open大学英语四级词汇的文本文档命名为#1以input形式使用；当词库选择的组合框1选择大学英语六级词汇时，便open大学英语六级词汇的文本文档命名为#1以input形式使用。注意：文档中的单词按顺序排列，一行一个，首字前有四个空格，每一次首字母变化前加入书写“/”的一行，以便后面设定范围之用。通过while循环，文档内容以字符串nextline按行输入遇到“/”则显示空白。C、范围设定 范围设定有两个方面。1）若下限比上限小，下限设定为空白。如此便满足了下限不比上限小的要求。2）组合框2和3 是用来设定范围的，他们的每个选项都有一个编号ListIndex。设定上限时，我们再一次用到ASCII码。当用来存放nextline的数组s( )的元素s(m)的第五位（即单词首字母）的ASCII码比组合框2 的ListIndex+96的值大的时候，用来存放有效字符串的数组t(r)的下标r开始计数。令s(m)=t(r),则上限设定成功。设定下限时，我们用变量j 来对“ /”计数。当j比组合框3的ListIndex大时，跳出while循环。如此，下限便得到了控制。 D、对随机显示的控制 未选择复选框1时，用for循环按Text1.Text = Text1.Text & t(n)使字幕顺序显示；选择时，用Randomize产生1到r-1之间的随机数，将r的值依次存入到数组a(n)中，用for循环按 Text1.Text = Text1.Text & t(a(n)使字幕随机显示。 E、循环控制 由于时钟不会停，系统默认的是循环，所以我们只需对不选复选框2的情况进行控制。我们在A中提到的k值，在这里开始显示作用。当k的值大于text1显示内容的总长度后，输出空白，即不循环。F、字幕的左右移动 当点击按钮5时，我们用Text1.Text = Mid(Text1.Text, 11, Len(Text1.Text) - 10) & Left(Text1.Text, 10)来使字幕左移；当点击按钮6时，我们用 Text1.Text = Mid(Text1.Text, Len(Text1.Text) - 9, 10) & Left(Text1.Text, Len(Text1.Text) - 10)来使字幕右移。五、软件运行结果(1）、运行程序，可显示一个背单词的首界面。“点击进入”即可进入背单词的主界面（2）、提供了“大学英语四级词汇”和“大学英语六级词汇”两个词库文件，通过“词库”组合框可以选择想要的题库，默认的词库是“大学英语四级词汇”。（3）、为了便于用户使用，可以选择想要记忆的单词范围，默认的单词范围是“AZ”。.（4）、根据需要选择“随机”或“循环”复选框。如果二者都不选，则默认显示单词表显示到最后一个单词即停止；如果选择“随机”复选框，“循环”复选框变为无效且不可选定状态。如果选择了“循环”复选框，显示一遍之后会自动从头开始显示。（5）、通过“其他设置”中的“字体大小”单选框可以选择滚动单词时的字体大小。 （6）、通过操作滚动条可以设置字幕滚动速度。 (7)、通过颜色设置里面对R、G、B的调节可以实现对显示单词栏背景颜色的调整。（8）、设置完毕后，单击“开始”按钮，窗口最上方显示区域从右向左以字幕方式动态显示所选的单词，包括词性和词义，如图14.4所示。在显示过程中可以改变字体大小、滚动速度和显示颜色。单击“暂停”按钮可以暂停滚动，这时“暂停”按钮变为“继续”，单击会继续滚动。（9）、单击该主界面的“退出”，立即回到我们的进入界面，继续单击“退出”，即可完全退出背单词程序。（10）、若对本运行软件操作有疑问，进入主界面后可以单击左下角的使用说明。源程序（1）主界面(Form1):Dim i%, k%, m%, r%Private Sub Check1_Click()Check2.Value = 0If Check1.Value = 1 ThenCheck2.Enabled = FalseElseCheck2.Enabled = TrueEnd IfEnd Sub实现随机与循环复选框的选择Private Sub Combo2_click()Combo3_ClickEnd SubPrivate Sub Combo3_Click()If Combo3.ListIndex < Combo2.ListIndex ThenCombo3.Text = ""End IfEnd Sub防止出现上标大于下标出现Private Sub Command1_Click()Command2.Enabled = TrueDim j%, n%Dim s() As StringDim t() As Stringj = 0k = 0m = 0r = 0Timer1.Interval = HScroll1.Value * 20If Combo1.Text = "大学英语四级词汇" ThenOpen "E:背单词程序完整大学英语四级.txt" For Input As #1ElseIf Combo1.Text = "大学英语六级词汇" ThenOpen "E:背单词程序完整大学英语六级词汇.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 nextline = " /" Thenj = j + 1s(m) = ""End IfIf Asc(Mid(s(m), 5, 1) > Combo2.ListIndex + 96 Thenr = r + 1ReDim Preserve t(r)t(r) = s(m)End IfIf j > Combo3.ListIndex ThenExit DoEnd IfLoop将词库每行数据存入s(n)中，下标对应行号。实现范围选择，并将范围内的每行数据存入t(r)中，下标对应行号。Select Case Check1.ValueCase 0Text1.Text = ""For n = 1 To rText1.Text = Text1.Text & t(n)Next nText1.Text=" " & Text1.Text 未选择随机时的文本输出 Case 1Dim a() As StringDim Y%, X%, z%Text1.Text = ""z = r - 1For n = 1 To r - 1RandomizeY = Int(z - 1) * Rnd) + 1ReDim Preserve a(n)a(n) = t(Y)For X = Y To z - 1t(X) = t(X + 1)将t()中已经选择存入a(n)中的元素剔除Next Xz = z - 1Next n将t(r)中的全部元素以随机的顺序存入a(n)For n = 1 To r - 1Text1.Text = Text1.Text & a(n)Next nText1.Text=" " & Text1.Text 随机方式输出End SelectCloseTimer1.Enabled = TrueIf Command2.Caption = "继续" ThenCommand2.Caption = "暂停"i = i + 1End SubPrivate Sub Command2_Click()If i Mod 2 = 0 ThenCommand2.Caption = "继续": Timer1.Enabled = FalseElseCommand2.Caption = "暂停": Timer1.Enabled = TrueEnd Ifi = i + 1End SubPrivate Sub Command3_Click()大学英语四六级.Visible = TrueForm1.Visible = FalseEnd SubPrivate Sub Command4_Click()Form2.Visible = TrueEnd SubPrivate Sub Command5_Click()Text1.Text = Mid(Text1.Text, 11, Len(Text1.Text) - 10) & Left(Text1.Text, 10)使滚动字幕左移10位End SubPrivate Sub Command6_Click()Text1.Text = Mid(Text1.Text, Len(Text1.Text) - 9, 10) & Left(Text1.Text, Len(Text1.Text) - 10)使滚动字幕右移10位End 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)Combo2.List(0) = "A"Combo2.List(1) = "B"Combo2.List(2) = "C"Combo2.List(3) = "D"Combo2.List(4) = "E"Combo2.List(5) = "F"Combo2.List(6) = "G"Combo2.List(7) = "H"Combo2.List(8) = "I"Combo2.List(9) = "J"Combo2.List(10) = "K"Combo2.List(11) = "L"Combo2.List(12) = "M"Combo2.List(13) = "N"Combo2.List(14) = "O"Combo2.List(15) = "P"Combo2.List(16) = "Q"Combo2.List(17) = "R"Combo2.List(18) = "S"Combo2.List(19) = "T"Combo2.List(20) = "U"Combo2.List(21) = "V"Combo2.List(22) = "W"Combo2.List(23) = "X"Combo2.List(24) = "Y"Combo2.List(25) = "Z" Combo2.ListIndex = 0Combo2.Text = Combo2.List(0)Combo3.List(0) = "A"Combo3.List(1) = "B"Combo3.List(2) = "C"Combo3.List(3) = "D"Combo3.List(4) = "E"Combo3.List(5) = "F"Combo3.List(6) = "G"Combo3.List(7) = "H"Combo3.List(8) = "I"Combo3.List(9) = "J"Combo3.List(10) = "K"Combo3.List(11) = "L"Combo3.List(12) = "M"Combo3.List(13) = "N"Combo3.List(14) = "O"Combo3.List(15) = "P"Combo3.List(16) = "Q"Combo3.List(17) = "R"Combo3.List(18) = "S"Combo3.List(19) = "T"Combo3.List(20) = "U"Combo3.List(21) = "V"Combo3.List(22) = "W"Combo3.List(23) = "X"Combo3.List(24) = "Y"Combo3.List(25) = "Z" Combo3.ListIndex = 25Combo3.Text = Combo3.List(25)Option1.Value = TrueCheck1.Value = 0Check2.Value = 0HScroll2.Value = 255HScroll3.Value = 255HScroll4.Value = 255End SubPrivate Sub HScroll1_Change()Timer1.Interval = HScroll1.Value * 20End SubPrivate Sub HScroll2_Change()Text1.BackColor = RGB(HScroll2.Value, HScroll3.Value, HScroll4.Value)End SubPrivate Sub HScroll3_Change()Text1.BackColor = RGB(HScroll2.Value, HScroll3.Value, HScroll4.Value)End SubPrivate Sub HScroll4_Change()Text1.BackColor = RGB(HScroll2.Value, HScroll3.Value, HScroll4.Value)End SubPrivate Sub Option1_Click()If Option1.Value = True ThenText1.FontSize = 14End IfEnd SubPrivate Sub Option2_Click()If Option2.Value = True ThenText1.FontSize = 20End IfEnd SubPrivate Sub Timer1_Timer()On Error Resume NextIf Asc(Left(Text1.Text, 1) > 0 ThenText1.Text = Mid(Text1.Text, 4, Len(Text1.Text) - 3) & Left(Text1.Text, 3)k = k + 3ElseText1.Text = Mid(Text1.Text, 2, Len(Text1.Text) - 1) & Left(Text1.Text, 1)k = k + 1End IfSelect Case Check2.ValueCase 0If k > Len(Text1.Text) ThenText1.Text = ""End IfEnd Select终止默认循环End Sub（2）.首界面：Private Sub Command1_Click()Form1.Visible = True大学英语四六级.Visible = FalseEnd SubPrivate Sub Command2_Click()X = MsgBox("是否退出程序", 36, "退出")If X = 6 ThenEndElse大学英语四六级.Visible = TrueEnd IfEnd SubPrivate Sub Form_Load()Move (Screen.Width - Width) / 2, (Screen.Height - Height) / 2End Sub（3）.使用说明（Form2）：Private Sub Command1_Click()Form2.Visible = FalseEnd SubPrivate Sub Form_Load()Move (Screen.Width - Width) / 2, (Screen.Height - Height) / 2End Sub19 - ( ( ( ） 明使 . ( - ( _ = .语 "退 序退否 ( _ 六 ( 面界. 循认终 "= . ) ( & . ( , + . ( ) ( , . = . ( ( ( ( . ( . . ( , . , ( . ( _ . = . ( _ = = = ( . = =( =( . "= . ) ( . )( )( " ( ) . )( . ) " . ) ( . ) " ( . )( = ( ) =( ) =0 00 = = )( . ")( . ( ") ) " ) . " ( )( . )( ") )( ) ) . )( ) " ( . ")( . ") ) = )( ") 0 = 汇级英" 汇词四大=0 居显/) - . / . ( 0移幕滚 - . = ( _ 0 幕使0, . - . , . ( = ( ( = . 语( + = 停暂 = "继 . 0 ( 停暂 续继 . = 输式 " = = (序机以全中(将 - 剔元中 择已( = (= + -( = "= . , , ( 出文机 " = & . "= . 号应下中 据行内并择现号应下 入数每 . = )( "= / " =) ( 选 # 级英整序背 "六英 # 级英大序词 汇四英大 . . . ( ( 出下标现 " . . ( _( 选框环与随 = . = . ( _ %, ) 面主程明用使下可面入疑作软运）序词出全，退单续入们我即退面主、动滚会，继变按暂动停钮停“。示度、大改中程。所 如词词词选显式字向域显最窗钮开，毕置整调景栏示现节调、对置颜 度度幕以动滚、小体字动滚框”小“置其通）示始头自之一框”了果态选不为选环，复机选；止个最示表认默都二框复循机择要根”是范认，单忆择可使于便”汇语学“词，要选框”“通库词汇六大”汇语“供界界背进入面首单个显序运结运移幕来0 . , . ) . 用，时点当字) & ) . ( 用时 击移的环不，出后长示显 值当作始里在到 我。况 选不们以环的统，钟于 控环 。随使) & . 按 中组到存 将机 - 时选显顺 环 ，框择选控的机制了到下如 跳时 框比。” “ 量，下。成上) )令数 下(数符有存，大值 的框合 母首（五 素)(的 放用。 到次我时上 号有项的，围设是 组 的限不了此白为下小限若。个设 设围白空则“入行 符容档循 过。围设便，/书入母次，个有字个列排词档：用式 以为档本词六英 ，词六大选组选词使形 以为文本级英大 时词语择 的择词 文用选果效度不可字便此 ，位词后部一度个度位第一为字其小 字一起内显 +，三词和的度词这取位从个为其零码 的字的从内中 当钟着。机一里行环为调为控的动速钟）* 数的条滚速设 的将 滚与技关字动控置的中控字号体字”“。字为，”体单大字动择钮单控钮放放围字，围母首框循。播容词态灰框循框”“环机式播，的按控改的色条、滚制分条个中控择的围、词级英汇四大围制控合个共控能的控注，件大使件动移相动钮右 移点窗明“，说使单首，按“单动动滚“击，”“变停“滚条钮按击此动条动”“单态灰”“之”“击界框对的否出按退“面序，面首钮进击，面能”右移“动以明“出、停”“界主出、”“界首分控大中件控框话，按使面面程，进击序程钮”者钮进“以：界面面钮按“动继会，为变暂时滚以可停单色显和滚大体可过示词性括的示态式以右域上口钮开“毕态定选且为框复，定选随以的义是，方示始从动之显选环“果如始止动后示，框环“如。顺则的显的即序的词是时则，择果框复“机择要 况的至于类不即母终“母证序。头母 只序”至是择选。部，“是的默词的想许允使于”汇语大库的库的择以组“”设过， 别件个汇六英和汇语英供提则为、须作。原该思的软单以。其成差脑赖，对，性化的法工它其词以脑电媒。习助作而握词英用门是支类学件软 软学门词作。电它工，对差以软原须、提汇六个 ，“以库库于许词的部择” 母证终不类 择复果时序显顺“，动始“之始，的以，且态毕上以示性过体显停以变会“钮：“者钮进程使框大分界主“出以“”，钮序退否对击“灰单条按条变“滚动，使，明 相件大控能共围大词、中条、的按播环框框容播母字放单择大”为”字控动技 设的数 钟的控行一。中从 码个取的和 一 字一度部词，可度果词的词 本文使选大 六档式档列字次书便围过档 “围 若下此不 设，号 时 用的素（母合的大有数 令上， 。框 跳下制的框 选 机存组 . 随环控统环们况到始值显后环击用 (. 点用 移运显面进供语六词”选“语于可，认”机复默示止机环为选了之示其置框动滚幕度对节示整毕窗域向词词。改度“钮暂继滚、退入单出运作可使主 % _ = 随框 _ . 标 ( . . 汇 词英 " 整 /=" 数号并据下 = ,.= (-+ ( 剔-将以( = 暂 . = + ( = =., .0幕 (= 移 .-/ 四 英汇 0 )." ). " (. ( ( (.( 0 () " . ." ) .) ( ). =.=( = = = _ =. _ . , . ( ( ( = ( (. ( & )." 终 面 ( 六 ( 退 " 语. _ . ） ( ( 19