课程设计及心得体会

《课程设计及心得体会》由会员分享，可在线阅读，更多相关《课程设计及心得体会（17页珍藏版）》请在装配图网上搜索。

1、多重窗体及菜单的设计（一）功能描述该程序主要包括多重窗体和文本编辑器，多重窗体由三个窗体构成，要实 现的功能是三个窗体的隐藏与出现，文本编辑器要实现的是每个下拉菜单中的 功能。（二）概要设计整个系统可以分解成三个子功能模块，各模块之间的衔接关系为：从模块 一到模块二的衔接是forml.hide，form2.show；从模块二到模块三的衔接是 form2.hide，form3.show；从模块三返回模块二的衔接是 form3.hide，form2.show， 用框图显示各模块间的衔接关系：Forml是登陆界面，当输入的账号和密码正确时，单击命令按钮，forml 隐藏，form2出现。Form2是

2、实现菜单中各子菜单的功能，将每个子菜单的功能 实现后，单击统计菜单项，form2隐藏，form3出现。Form3是显示form2中随 机产生的10个数的最小值，最大值，平均值，该功能实现后，单击命令按钮， 使form3隐藏，返回form2。（三）详细设计模块一各功能实现过程：Forml的设计界面如下：Form1中的程序：Private Sub Form_Load()Text1.Text =Text1.MaxLength = 6Text2.Text =Text2.MaxLength = 6Text2.PasswordChar = *”End SubPrivate Sub Text1_LostFo

3、cus()If Not IsNumeric(Text1.Text) ThenMsgBox ”账号必须为数字”,警告Text1.Text =Text1.SetFocusEnd IfEnd Sub如果输入账号不是数字时，账号错误提示:单击命令按钮时：Private Sub Command1_Click()Dim i As IntegerIf Text2.Text 123456 Theni = MsgBox(密码错误，5 + vbExclamation,”警告”)If i 6 ThenEndElseText2.Text =Text2.SetFocusEnd IfEnd IfForm1.HideFor

4、m2.ShowEnd Sub如果输入的密码错误，密码错误提示模块二各功能实现过程:Form2的设计界面：Form2中的控件的程序：文件菜单项下的子菜单的界面及程序:(1)新建Private Sub New_Click()Textl.Text =End Sub(2)打开Private Sub Open_Click()CommonDialog1.Action = 1Text1.Text =Open CommonDialog1.FileName For Input As #1Do While Not EOF(1)Line Input #1, inputdataText1.Text = Text1.T

5、ext + inputdata + vbCrLfLoopClose #1End Sub打开的界面：(3) 另存为Private Sub SaveAs_Click()CommonDialogl.FileName = Default.TxtCommonDialogl.DefaultExt = TxtCommonDialog1.Action = 2Open CommonDialogl.FileName For Output As #1Print #1, Textl.TextClose #1End Sub(4) 打印Private Sub Print_Click()CommonDialogl.Acti

6、on = 5For i = l To CommonDialogl.CopiesPrinter.Print Textl.TextNext iPrinter.EndDocEnd Sub(5)结束Private Sub Exit_Click()EndEnd Sub编辑菜单下的界面及程序:复制Private Sub Copy_Click()st = Textl.SelTextEnd Sub(2) 剪切Private Sub Cut_Click()st = Text1.SelTextText1.SelText =End Sub(3) 粘贴Private Sub Paste_Click()Text1.Se

7、lText = stEnd Sub格式菜单下的程序：(1)字体Private Sub Font_Click()CommonDialog1.Flags = cdlCFBoth Or cdlCFEffectsCommonDialog1.Action = 4Text1.FontName = CommonDialog1.FontNameText1.FontSize = CommonDialog1.FontSizeText1.FontBold = CommonDialog1.FontBoldText1.FontItalic = CommonDialog1.FontItalicText1.FontStri

8、kethru = CommonDialog1.FontStrikethruTextl.FontUnderline = CommonDialogl.FontUnderlineTextl.ForeColor = CommonDialogl.ColorEnd Sub(2)颜色Private Sub Color_Click()CommonDialog1.Action = 3Textl.ForeColor = CommonDialogl.ColorEnd Sub格式下的字体和颜色的运行结果：数据菜单下的界面及程序:(1)求最大公约数Private Sub Get_Click()n1 = InputBox

9、(输入 n)ml = InputBox(输入 m)If m1 nl Thenm = ml: n = nlElsem = nl: n = mlEnd Ifr = m Mod nDo While r 0m = nn = rr = m Mod nLoopPicturel.Print ml; ”,”; nl;”的最大公约数为”;nEnd Sub最大公约数运行界面：(2)随机产生10个数Private Sub Rise_Click()Dim i%Listl.ClearFor i = 0 To 9a(i) = Int(Rnd * 101 + 0)Listl.AddItem a(i)Next iEnd Su

10、b随机数据的产生界面：排序Private Sub Rank_Click() Dim i%, j%, t% Listl.ClearFor i = 0 To 8For j = 0 To 8 - iIf a(j) a(j + 1) Then t = a(j) a(j) = a(j + 1) a(j + 1) = tEnd IfNext jNext iList1.ClearFor i = 0 To 9List1.AddItem a(i)Next iEnd Sub排序界面：文件 编辑 格式 数据 统计 结束293053587171767882(4)删除最大值Private Sub Deletemax_C

11、lick()Dim i%, j%, t%Listl.ClearFor i = 0 To 8For j = 0 To 8 - iIf a(j) a(j + 1) Thent = a(j) a(j) = a(j + 1) a(j + 1) = tt = a(j) a(j) = a(j + 1) a(j + 1) = tEnd IfNext jNext iList1.ClearFor i = 0 To 9List1.AddItem a(i)Next iList1.RemoveItem 9End Sub删除最大值的界面:(5)删除最小值Private Sub Deletemin_Click() Dim

12、 i%, j%, t%Listl.ClearFor i = 0 To 8For j = 0 To 8 - iIf a(j) a(j + 1) Then t = a(j) a(j) = a(j + 1) a(j + 1) = tEnd IfNext jNext iList1.ClearFor i = 0 To 9List1.AddItem a(i)Next iList1.RemoveItem 0End Sub删除最小值界面(6)添加数据Private Sub Add_Click() Listl.AddItem Textl Textl =End Sub统计菜单下的程序：Private Sub Co

13、unt_Click()Form2.HideForm3.ShowEnd Sub添加数据界面：结束菜单下的程序：Private Sub End_Click()MsgBox 班级:08级财务管理(2)班学号:20808109姓名:惠莹莹，课程设计End Sub结束运行界面：Form3的设计界面Form3的程序：Private Sub Command1_Click()Form3.HideForm2.ShowEnd Sub出现最大值，最小值，平均值Private Sub Form_Activate()Dim max%, min%, avg%min = a(0)max = a(0)avg = a(0)Fo

14、r i = 1 To 9If a(i) max Thenmax = a(i)End Ifavg = avg + a(i)Next iavg = avg / 10Textl.Text = minText2.Text = maxText3.Text = avgEnd Sub统计运行下的界面：（四）心得体会通过这次程序设计，使我对VB有了更深的认识和了解。上机课上设计的都 是实现一个功能的程序，这次程序设计将每一个功能结合在一起使用，综合性增 强了，难度加大了，对我来说是个挑战。在程序设计过程中，首先做了整体框架，三个窗体，文本编辑器和第一个窗 体功能的实现以及前三个菜单项的程序，因为以前上机课做了

15、这种类型的程序， 所以对我来说不难。最难的就是数据的产生与排序，由于这部分知识有欠缺，所 以无从下手。后来通过请教其他同学，终于搞清了这部分内容。接下来程序就顺 利多了。还有最后单击结束弹出messagebox，又让我区别了 messagebox函数形 式和过程形式。设计完成后运行程序也出现了好多问题。在调试过程中，发现细 节很重要，单词和符号的错误会导致无法运行。在随机数据产生的运行时，如果 单击第二次，数据会出现在第一个随机产生的数据之后，才知道先要清空列表， 这些都是在调试中发现的。这次课程设计让我受益匪浅，不仅设计出了程序，而且让我对这些知识有了 总体的认识，也感谢老师给我们提供了这样一次机会。在课程设计中，频繁的使 用VB的各个控件使我对它们很熟悉。在设计的过程中，我又掌握了很计算机知 识，都是一些非常实用的东西，以后的生活中我也会学习更多的知识。