《课程设计及心得体会》由会员分享，可在线阅读，更多相关《课程设计及心得体会（16页珍藏版）》请在金锄头文库上搜索。
1、多重窗体及菜单的设计（一）功能描述该程序主要包括多重窗体和文本编辑器，多重窗体由三个窗体构成，要实 现的功能是三个窗体的隐藏与出现，文本编辑器要实现的是每个下拉菜单中的 功能。（二）概要设计整个系统可以分解成三个子功能模块，各模块之间的衔接关系为：从模块 一到模块二的衔接是 form1.hide， form2.show ；从模块二到模块三的衔接是 form2.hide, form3.show；从模块三返回模块二的衔接是 form3.hide, form2.show, 用框图显示各模块间的衔接关系：Form1 是登陆界面,当输入的账号和密码正确时,单击命令按钮, form1隐藏，form2出现。
2、Form2是实现菜单中各子菜单的功能，将每个子菜单的功能 实现后，单击统计菜单项，form2隐藏，form3出现。Form3是显示form2中随 机产生的 10 个数的最小值，最大值，平均值，该功能实现后，单击命令按钮， 使 form3 隐藏，返回 form2。（三）详细设计模块一各功能实现过程：Form1 的设计界面如下：Form1 中的程序：Private Sub Form_Load()Text1.Text = Text1.MaxLength = 6Text2.Text = Text2.MaxLength = 6Text2.PasswordChar = *End SubPrivate Su
3、b Text1_LostFocus()If Not IsNumeric(Text1.Text) Then MsgBox 账号必须为数字, , 警告 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 IfE
4、nd IfForm1.HideForm2.ShowEnd Sub 如果输入的密码错误，密码错误提示模块二各功能实现过程Form2 的设计界面：Form2 中的控件的程序： 文件菜单项下的子菜单的界面及程序(1)新建Private Sub New_Click()Text1.Text = End Sub(2) 打开 Private Sub Open_Click()CommonDialog1.Action = 1Text1.Text = Open CommonDialog1.FileName For Input As #1 Do While Not EOF(1)Line Input #1, inpu
5、tdataText1.Text = Text1.Text + inputdata + vbCrLf Loop Close #1End Sub 打开的界面：(3) 另存为Private Sub SaveAs_Click()CommonDialog1.FileName = Default.TxtCommonDialog1.DefaultExt = TxtCommonDialog1.Action = 2Open CommonDialog1.FileName For Output As #1Print #1, Text1.TextClose #1End Sub(4)打印Private Sub Prin
6、t_Click()CommonDialog1.Action = 5For i = 1 To CommonDialog1.CopiesPrinter.Print Text1.TextNext iPrinter.EndDocEnd Sub(5)结束Private Sub Exit_Click()EndEnd Sub编辑菜单下的界面及程序：(1)复制Private Sub Copy_Click()st = Text1.SelTextEnd Sub(2)剪切Private Sub Cut_Click()st = Text1.SelTextText1.SelText = End Sub(3)粘贴Priv
7、ate Sub Paste_Click()Text1.SelText = stEnd Sub 格式菜单下的程序：(1)字体Private Sub Font_Click()CommonDialog1.Flags = cdlCFBoth Or cdlCFEffectsCommonDialog1.Action = 4Text1.FontName = CommonDialog1.FontNameText1.FontSize = CommonDialog1.FontSizeText1.FontBold = CommonDialog1.FontBoldText1.FontItalic = CommonDi
8、alog1.FontItalicText1.FontStrikethru = CommonDialog1.FontStrikethruText1.FontUnderline = CommonDialog1.FontUnderlineText1.ForeColor = CommonDialog1.ColorEnd Sub(2)颜色Private Sub Color_Click()CommonDialog1.Action = 3Text1.ForeColor = CommonDialog1.ColorEnd Sub 格式下的字体和颜色的运行结果：数据菜单下的界面及程序：(1)求最大公约数Priva
9、te Sub Get_Click()n1 = InputBox(输入 n) ml = InputBox(输入 m) If m1 n1 Then m = ml: n = nlElsem = nl: n = mlEnd Ifr = m Mod nDo While r 0m = n n = r r = m Mod n LoopPicturel.Print ml; ,; nl; 的最大公约数为; n End Sub 最大公约数运行界面：(2)随机产生 10个数 Private Sub Rise_Click()Dim i%List1.ClearFor i = 0 To 9a(i) = Int(Rnd *
10、 101 + 0)List1.AddItem a(i)Next iEnd Sub 随机数据的产生界面：(3)排序Private Sub Rank_Click() Dim i%, j%, t% List1.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 9 List1.AddItem a(i)Next iEnd Sub 排序界面：(4)删除最大值 Private Sub
11、Deletemax_Click() Dim i%, j%, t%List1.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 9 List1.AddItem a(i)Next iList1.RemoveItem 9 End Sub 删除最大值的界面：(5)删除最小值Private Sub Deletemin_Click() Dim i%, j%, t%List1.Clea
12、rFor 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 9 List1.AddItem a(i)Next iList1.RemoveItem 0End Sub 删除最小值界面(6)添加数据Private Sub Add_Click() List1.AddItem Text1 Text1 = End Sub 统计菜单下的程序： Private Sub Count_Click()Form2
13、.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 9 If a(i) max Then max = a(i)End If avg = avg + a(i)Next i avg = avg / 10Text1.Text = min Text2.Text = maxText3.Text = avgEnd Sub 统计运行下的界面：（四）心得体会通过这次程序设计，使我对VB有了更深的认识和了解。上机课上设计的都 是实现一个功能的程序，这次程序设计将每一个功能结合在一起使用，综合性增 强了，难度加大了，对我来说是个挑战。在程序设计过程中，首先做了整体框架，三个窗体，文本编辑器和第一个窗 体功能的实现以及前三个菜单项的程序，因为以前上机课做了这种类型的程序， 所以对我来说不难。最难的就是数据的产生与排序，由于这部分知识有欠缺，所 以无从下手。后来通过请教其他同学，终于搞清了这部分内容。接下来程序就顺 利多了。还有最后单击结束弹出messagebox，又让我区别了 messagebox函数形 式和过程形式。设计完成后运行程序也出现了好多问题。在调试过程中，发现细 节很重要，单词和符号的错误会导致无法运行。在随机数据产生的运行时，如果 单击第二次，数据会出现在第一个随机产生的数据之后，才知道先要清空列表， 这些都是在调试中发现的。这次课程设
